Sub renamed according to the coding guidelines

This commit is contained in:
toins 2006-07-07 08:02:46 +00:00
parent 989ca91339
commit ebfcdb97b5

View file

@ -391,9 +391,9 @@ sub receiveorder {
unitprice=?,freight=?,rrp=? unitprice=?,freight=?,rrp=?
where biblionumber=? and ordernumber=?" where biblionumber=? and ordernumber=?"
); );
my $suggestionid = findsuggestion_from_biblionumber( $dbh, $biblio ); my $suggestionid = GetSuggestionFromBiblionumber( $dbh, $biblio );
if ($suggestionid) { if ($suggestionid) {
changestatus( $suggestionid, 'AVAILABLE', '', $biblio ); ModStatus( $suggestionid, 'AVAILABLE', '', $biblio );
} }
$sth->execute( $quantrec, $invoiceno, $cost, $freight, $rrp, $biblio, $sth->execute( $quantrec, $invoiceno, $cost, $freight, $rrp, $biblio,
$ordnum ); $ordnum );