22 |
use C4::Context; |
use C4::Context; |
23 |
use C4::Date; |
use C4::Date; |
24 |
use MARC::Record; |
use MARC::Record; |
25 |
|
use C4::Suggestions; |
26 |
# use C4::Biblio; |
# use C4::Biblio; |
27 |
|
|
28 |
use vars qw($VERSION @ISA @EXPORT); |
use vars qw($VERSION @ISA @EXPORT); |
321 |
my $sth=$dbh->prepare("update aqorders set quantityreceived=?,datereceived=now(),booksellerinvoicenumber=?, |
my $sth=$dbh->prepare("update aqorders set quantityreceived=?,datereceived=now(),booksellerinvoicenumber=?, |
322 |
unitprice=?,freight=?,rrp=? |
unitprice=?,freight=?,rrp=? |
323 |
where biblionumber=? and ordernumber=?"); |
where biblionumber=? and ordernumber=?"); |
324 |
|
my $suggestionid = findsuggestion_from_biblionumber($dbh,$biblio); |
325 |
|
if ($suggestionid) { |
326 |
|
changestatus($suggestionid,'AVAILABLE','',$biblio); |
327 |
|
} |
328 |
$sth->execute($quantrec,$invoiceno,$cost,$freight,$rrp,$biblio,$ordnum); |
$sth->execute($quantrec,$invoiceno,$cost,$freight,$rrp,$biblio,$ordnum); |
329 |
$sth->finish; |
$sth->finish; |
330 |
} |
} |