[Koha-cvs] koha/C4 Acquisition.pm

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/07 08:02:46

Modified files:
        C4             : Acquisition.pm 

Log message:
        Sub renamed according to the coding guidelines

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Acquisition.pm?cvsroot=koha&r1=1.35&r2=1.36

Patches:
Index: Acquisition.pm
===================================================================
RCS file: /sources/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- Acquisition.pm      4 Jul 2006 14:36:51 -0000       1.35
+++ Acquisition.pm      7 Jul 2006 08:02:46 -0000       1.36
@@ -29,7 +29,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.35 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.36 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 # used in reciveorder subroutine
 # to provide library specific handling
@@ -391,9 +391,9 @@
                                                                                
        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 );