[Koha-cvs] CVS: koha/acqui.simple bulkmarcimport.pl,1.3,1.4

[Steve Tonnesen]

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

Modified Files:
        bulkmarcimport.pl 
Log Message:
Fixed search.pl so that next and previous buttons work... had to pass form
parameters in to the templates

Didn't make any changes to bulkmarcimport.pl recently, so I'm probably
squashing somebody else's changes.  Will have to fix that...


Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/bulkmarcimport.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** bulkmarcimport.pl   16 Apr 2002 19:49:15 -0000      1.3
--- bulkmarcimport.pl   15 May 2002 04:12:25 -0000      1.4
***************
*** 14,17 ****
--- 14,19 ----
  $file=$ARGV[0];
  
+ $branchname='MAIN';
+ 
  unless ($file) {
      print "USAGE: ./bulkmarcimport.pl filename\n";
***************
*** 472,476 ****
        }
        my $q_barcode=$dbh->quote($barcode);
!       my $q_homebranch="'MAIN'";
        my $q_notes="''";
        #my $replacementprice=0;
--- 474,478 ----
        }
        my $q_barcode=$dbh->quote($barcode);
!       my $q_homebranch="'$branchname'";
        my $q_notes="''";
        #my $replacementprice=0;
***************
*** 493,497 ****
            ($replacementprice) || ($replacementprice=0);
            $replacementprice=~s/\$//;
!           $task="insert into items (itemnumber, biblionumber, 
biblioitemnumber, barcode, itemnotes, homebranch, holdingbranch, 
dateaccessioned, replacementprice) values ($itemnumber, $biblionumber, 
$biblioitemnumber, $q_barcode, $q_notes, $q_homebranch, 'MAIN', '$date', 
$replacementprice)";
            $sth=$dbh->prepare($task);
            print "$task\n";
--- 495,499 ----
            ($replacementprice) || ($replacementprice=0);
            $replacementprice=~s/\$//;
!           $task="insert into items (itemnumber, biblionumber, 
biblioitemnumber, barcode, itemnotes, homebranch, holdingbranch, 
dateaccessioned, replacementprice) values ($itemnumber, $biblionumber, 
$biblioitemnumber, $q_barcode, $q_notes, $q_homebranch, '$branchname', '$date', 
$replacementprice)";
            $sth=$dbh->prepare($task);
            print "$task\n";