Sub renamed according to the coding guidelines
This commit is contained in:
parent
989ca91339
commit
ebfcdb97b5
1 changed files with 2 additions and 2 deletions
|
@ -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 );
|
||||||
|
|
Loading…
Reference in a new issue