[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;
 }