[Koha-devel] CVS: koha/acqui.simple addbiblioitem.pl,1.2,1.3 additem.pl,1.2,1.3 savebiblio.pl,1.2,1.3 savebiblioitem.pl,1.2,1.3 saveitem.pl,1.2,1.3

[Gynn Lomax]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv7908

Modified Files:
        addbiblioitem.pl additem.pl savebiblio.pl savebiblioitem.pl 
        saveitem.pl 
Log Message:
Fixed bug due to way hashes take values. Was stopping items being saved to
database. Added code to pick up branch list from database.


Index: addbiblioitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblioitem.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** addbiblioitem.pl    3 May 2002 02:47:33 -0000       1.2
--- addbiblioitem.pl    6 May 2002 02:47:49 -0000       1.3
***************
*** 115,119 ****
  </tr>
  <tr valign="top">
! <td colspan="4" align="center"><input type="submit" value="Add New Item"></td>
  </tr>
      
--- 115,119 ----
  </tr>
  <tr valign="top">
! <td colspan="4" align="center"><input type="submit" value="Add New 
Group"></td>
  </tr>
      

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** additem.pl  3 May 2002 02:47:33 -0000       1.2
--- additem.pl  6 May 2002 02:47:49 -0000       1.3
***************
*** 12,15 ****
--- 12,17 ----
  my $count;
  my @results;
+ my $branchcount;
+ my @branches;
  
  if (! $biblioitemnum) {
***************
*** 30,33 ****
--- 32,36 ----
      
        ($count, @results) = &getitemsbybiblioitem($biblioitemnum);
+       ($branchcount, @branches) = &branches;
  
        if ($count) {
***************
*** 70,74 ****
  <td><input name="barcode" size="10" value="$maxbarcode" /></td>
  <td align="right">Home Branch:</td>
! <td><select name="homebranch"><option value="STWE">Stewart Elementary<option 
value="MEZ">Meziadin Elementary</select></td>
  </tr>
  <tr>
--- 73,87 ----
  <td><input name="barcode" size="10" value="$maxbarcode" /></td>
  <td align="right">Home Branch:</td>
! <td><select name="homebranch">
! EOF
! 
!       for (my $i = 0; $i < $branchcount; $i ++) {
!           print << "EOF";
! <option value="$branches[$i]->{'branchcode'}">$branches[$i]->{'branchname'}
! EOF
!       } # for
! 
!       print << "EOF";
! </select></td>
  </tr>
  <tr>

Index: savebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** savebiblio.pl       3 May 2002 02:47:33 -0000       1.2
--- savebiblio.pl       6 May 2002 02:47:49 -0000       1.3
***************
*** 6,17 ****
  
  my $input = new CGI;
! my $biblio = { title       => $input->param('title'),
!                subtitle    => $input->param('subtitle'),
!                author      => $input->param('author'),
!                seriestitle => $input->param('seriestitle'),
!                copyright   => $input->param('copyrightdate'),
!                abstract    => $input->param('abstract'),
!                notes       => $input->param('notes')
!              }; # my $biblio
  my $biblionumber;
  
--- 6,18 ----
  
  my $input = new CGI;
! my $biblio = {
!     title       => $input->param('title'),
!     subtitle    => $input->param('subtitle')?$input->param('subtitle'):"",
!     author      => $input->param('author')?$input->param('author'):"",
!     seriestitle => 
$input->param('seriestitle')?$input->param('seriestitle'):"",
!     copyright   => 
$input->param('copyrightdate')?$input->param('copyrightdate'):"",
!     abstract    => $input->param('abstract')?$input->param('abstract'):"",
!     notes       => $input->param('notes')?$input->param('notes'):""
! }; # my $biblio
  my $biblionumber;
  

Index: savebiblioitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblioitem.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** savebiblioitem.pl   3 May 2002 02:47:33 -0000       1.2
--- savebiblioitem.pl   6 May 2002 02:47:49 -0000       1.3
***************
*** 9,31 ****
  my $biblioitem = {
      biblionumber      => $biblionumber,
!     publishercode     => $input->param('publishercode'),
!     publicationyear   => $input->param('publicationyear'),
!     place             => $input->param('year'),
!     illus             => $input->param('illus'),
!     isbn              => $input->param('isbn'),
!     additionalauthors => $input->param('additionalauthors'),
!     subjectheadings   => $input->param('subjectheadings'),
!     itemtype          => $input->param('itemtype'),
!     url               => $input->param('url'),
!     dewey             => $input->param('dewey'),
!     subclass          => $input->param('subclass'),
!     issn              => $input->param('issn'),
!     lccn              => $input->param('lccn'),
!     volume            => $input->param('volume'),
!     number            => $input->param('number'),
!     volumeddesc       => $input->param('volumeddesc'),
!     pages             => $input->param('pages'),
!     size              => $input->param('size'),
!     notes             => $input->param('notes')
  };
  my $biblioitemnum;
--- 9,31 ----
  my $biblioitem = {
      biblionumber      => $biblionumber,
!     publishercode     => 
$input->param('publishercode')?$input->param('publishercode'):"",
!     publicationyear   => 
$input->param('publicationyear')?$input->param('publicationyear'):"",
!     place             => $input->param('year')?$input->param('year'):"",
!     illus             => $input->param('illus')?$input->param('illus'):"",
!     isbn              => $input->param('isbn')?$input->param('isbn'):"",
!     additionalauthors => 
$input->param('additionalauthors')?$input->param('additionalauthors'):"",
!     subjectheadings   => 
$input->param('subjectheadings')?$input->param('subjectheadings'):"",
!     itemtype          => 
$input->param('itemtype')?$input->param('itemtype'):"",
!     url               => $input->param('url')?$input->param('url'):"",
!     dewey             => $input->param('dewey')?$input->param('dewey'):"",
!     subclass          => 
$input->param('subclass')?$input->param('subclass'):"",
!     issn              => $input->param('issn')?$input->param('issn'):"",
!     lccn              => $input->param('lccn')?$input->param('lccn'):"",
!     volume            => $input->param('volume')?$input->param('volume'):"",
!     number            => $input->param('number')?$input->param('number'):"",
!     volumeddesc       => 
$input->param('volumeddesc')?$input->param('volumeddesc'):"",
!     pages             => $input->param('pages')?$input->param('pages'):"",
!     size              => $input->param('size')?$input->param('size'):"",
!     notes             => $input->param('notes')?$input->param('notes'):""
  };
  my $biblioitemnum;

Index: saveitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/saveitem.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** saveitem.pl 3 May 2002 02:47:33 -0000       1.2
--- saveitem.pl 6 May 2002 02:47:49 -0000       1.3
***************
*** 11,17 ****
      biblioitemnumber => $biblioitemnum,
      homebranch       => $input->param('homebranch'),
!     replacementprice => $input->param('replacementprice'),
!     itemnotes        => $input->param('notes')
! };
  my $count;
  my @results;
--- 11,17 ----
      biblioitemnumber => $biblioitemnum,
      homebranch       => $input->param('homebranch'),
!     replacementprice => 
$input->param('replacementprice')?$input->param('replacementprice'):"",
!     itemnotes        => $input->param('notes')?$input->param('notes'):""
! }; # my $item
  my $count;
  my @results;