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=?
where biblionumber=? and ordernumber=?"
);
my $suggestionid = findsuggestion_from_biblionumber( $dbh, $biblio );
my $suggestionid = GetSuggestionFromBiblionumber( $dbh, $biblio );
if ($suggestionid) {
changestatus( $suggestionid, 'AVAILABLE', '', $biblio );
ModStatus( $suggestionid, 'AVAILABLE', '', $biblio );
}
$sth->execute( $quantrec, $invoiceno, $cost, $freight, $rrp, $biblio,
$ordnum );