[Koha-cvs] Changes to koha/C4/Acquisition.pm [rel_2_2]

[paul poulain]

Index: koha/C4/Acquisition.pm
diff -u koha/C4/Acquisition.pm:1.9.2.9 koha/C4/Acquisition.pm:1.9.2.10
--- koha/C4/Acquisition.pm:1.9.2.9	Fri Sep 23 09:35:09 2005
+++ koha/C4/Acquisition.pm	Thu Dec  1 17:27:55 2005
@@ -22,6 +22,7 @@
 use C4::Context;
 use C4::Date;
 use MARC::Record;
+use C4::Suggestions;
 # use C4::Biblio;
 
 use vars qw($VERSION @ISA @EXPORT);
@@ -320,6 +321,10 @@
 	my $sth=$dbh->prepare("update aqorders set quantityreceived=?,datereceived=now(),booksellerinvoicenumber=?,
 											unitprice=?,freight=?,rrp=?
 							where biblionumber=? and ordernumber=?");
+	my $suggestionid = findsuggestion_from_biblionumber($dbh,$biblio);
+	if ($suggestionid) {
+		changestatus($suggestionid,'AVAILABLE','',$biblio);
+	}
 	$sth->execute($quantrec,$invoiceno,$cost,$freight,$rrp,$biblio,$ordnum);
 	$sth->finish;
 }