/[koha]/koha/C4/Acquisition.pm
ViewVC logotype

Diff of /koha/C4/Acquisition.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.2.9 by tipaul, Fri Sep 23 09:35:09 2005 UTC revision 1.9.2.10 by tipaul, Thu Dec 1 17:27:55 2005 UTC
# Line 22  require Exporter; Line 22  require Exporter;
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);
# Line 320  sub receiveorder { Line 321  sub receiveorder {
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  }  }

Legend:
Removed from v.1.9.2.9  
changed lines
  Added in v.1.9.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26