Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fixed

Browse source
This commit is contained in:
chris 2000-03-08 02:39:01 +00:00
parent fd6f874210
commit 727574e082
3 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
C4/Acquisitions.pm
View file

@ -302,7 +302,7 @@ sub modbibitem {
}
sub newbiblioitem {
my ($bibnum,$itemtype,$isbn)=@_;
my ($bibnum,$itemtype,$isbn,$volinf)=@_;
my $dbh=C4Connect;
my $query="Select max(biblioitemnumber) from biblioitems";
my $sth=$dbh->prepare($query);
@ -312,9 +312,9 @@ sub newbiblioitem {
$bibitemnum++;
$sth->finish;
$query="insert into biblioitems (biblionumber,biblioitemnumber,
itemtype,isbn)
itemtype,isbn,volumeddesc)
values
($bibnum,$bibitemnum,'$itemtype','$isbn')";
($bibnum,$bibitemnum,'$itemtype','$isbn','$volinf')";
$sth=$dbh->prepare($query);
# print $query;
$sth->execute;
@ -494,6 +494,7 @@ sub makeitems {
$sth->finish;
$item++;
for (my $i=0;$i<$count;$i++){
$barcodes[$i]=uc $barcodes[$i];
my $query="Insert into items (biblionumber,biblioitemnumber,itemnumber,barcode,
booksellerid,dateaccessioned,homebranch,holdingbranch,price,replacementprice,
replacementpricedate) values

7
acqui/acquire.pl
View file

@ -106,6 +106,13 @@ Shopping Basket For: $booksellers[0]->{'name'}
<td><input type=text size=20 name=barcode>
</td>
</tr>
<TR VALIGN=TOP bgcolor=#ffffcc >
<TD><B>Volume Info (for serials) *</B></td>
<td><input type=text size=20 name=volinf>
</td>
</tr>
</table>

6
acqui/finishreceive.pl
View file

@ -36,6 +36,12 @@ if ($quantrec != 0){
my $gst=$input->param('gst');
my $freight=$input->param('freight');
my $volinf=$input->param('volinf');
if ($volinf ne ''){
# print "$bibitemno";
$bibitemno=newbiblioitem($biblio,$itemtype,$isbn,$volinf);
# print "here $bibitemno";
}
receiveorder($biblio,$ordnum,$quantrec,$user,$cost,$invoiceno,$bibitemno,$freight);
modbiblio($biblio,$title,$author,$copyright);
modbibitem($bibitemno,$itemtype,$isbn);