From ebfcdb97b5b2b098d2ddf953dfbc08f3f9a2c295 Mon Sep 17 00:00:00 2001 From: toins Date: Fri, 7 Jul 2006 08:02:46 +0000 Subject: [PATCH] Sub renamed according to the coding guidelines --- C4/Acquisition.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 3854177def..295b375c3e 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -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 );