[Koha-devel] CVS: koha/acqui.simple addbookslccn.pl,1.2,1.3 addbooks.pl,1.3,1.4

[Chris Cormack]

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

Modified Files:
        addbookslccn.pl addbooks.pl 
Log Message:
Fixed the holding branch insertion code. It was inserting the correct
homebranch but was still inserting the wrong home branch



Index: addbookslccn.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** addbookslccn.pl     31 Mar 2002 02:48:18 -0000      1.2
--- addbookslccn.pl     31 Mar 2002 06:50:08 -0000      1.3
***************
*** 260,264 ****
      $sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
      biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, 
dateaccessioned, replacementprice) values ($itemnumber,
!     $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', 
$q_homebranch, '$date', $replacementprice)");
      $sth->execute;
  }
--- 260,264 ----
      $sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
      biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, 
dateaccessioned, replacementprice) values ($itemnumber,
!     $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, 
$q_homebranch, '$date', $replacementprice)");
      $sth->execute;
  }

Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** addbooks.pl 31 Mar 2002 01:18:36 -0000      1.3
--- addbooks.pl 31 Mar 2002 06:50:08 -0000      1.4
***************
*** 262,269 ****
      my $date=(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
      my $q_homebranch=$dbh->quote($input->param('homebranch'));
!     $sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
      biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, 
dateaccessioned, replacementprice) values ($itemnumber,
!     $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', 
$q_homebranch, '$date', $replacementprice)");
      $sth->execute;
  }
  
--- 262,271 ----
      my $date=(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
      my $q_homebranch=$dbh->quote($input->param('homebranch'));
!     my $query="insert into items (itemnumber, biblionumber,
      biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, 
dateaccessioned, replacementprice) values ($itemnumber,
!     $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, 
$q_homebranch, '$date', $replacementprice)";
!     $sth=$dbh->prepare($query);
      $sth->execute;
+ #    print $query;
  }
  
***************
*** 322,328 ****
  foreach my $key (sort(keys %$branches)) {
       print "<option 
value=\"$key\">$branches->{$key}->{'branchname'}</option>";
! #      $key, '=', $branches->{$key}, "\n";
!          }  
! #       <option value='STWE'>Stewart Elementary<option value='MEZ'>Meziadin 
Elementary
  print << "EOF";
          </select></td></tr>
--- 324,328 ----
  foreach my $key (sort(keys %$branches)) {
       print "<option 
value=\"$key\">$branches->{$key}->{'branchname'}</option>";
! }  
  print << "EOF";
          </select></td></tr>