gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Branch Merges.

This commit is contained in:
tonnesen 2002-06-20 17:45:55 +00:00
parent 5cc0c8f911
commit b6f149a7a4
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
acqui.simple/bulkmarcimport.pl
View File

@ -13,6 +13,8 @@
$file=$ARGV[0];
$branchname='MAIN';
unless ($file) {
print "USAGE: ./bulkmarcimport.pl filename\n";
exit;
@ -472,7 +474,7 @@ RECORD:
}
}
my $q_barcode=$dbh->quote($barcode);
my $q_homebranch="'MAIN'";
my $q_homebranch="'$branchname'";
my $q_notes="''";
#my $replacementprice=0;
my $sth=$dbh->prepare("select max(itemnumber) from items");
@ -493,7 +495,7 @@ BARCODE:
$replacementprice=~s/^p//;
($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)";
$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";
$sth->execute;

2
acqui/receive.pl
View File

@ -12,7 +12,7 @@ use strict;
my $input=new CGI;
print $input->header();
my $id=$input->param('id');
my ($count,@booksellers)=bookseller($id);
my ($count,@booksellers)=bookseller($id);
my $invoice=$input->param('invoice');
my $freight=$input->param('freight');
my $gst=$input->param('gst');