[Koha-cvs] koha/acqui acqui-home.pl addorder.pl newbiblio....

[Antoine Farnault]

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

Modified files:
        acqui          : acqui-home.pl addorder.pl newbiblio.pl 
                         suggestion-select.pl 

Log message:
        Sub renamed according to the coding guidelines

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/acqui-home.pl?cvsroot=koha&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/addorder.pl?cvsroot=koha&r1=1.28&r2=1.29
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newbiblio.pl?cvsroot=koha&r1=1.32&r2=1.33
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/suggestion-select.pl?cvsroot=koha&r1=1.5&r2=1.6

Patches:
Index: acqui-home.pl
===================================================================
RCS file: /sources/koha/koha/acqui/acqui-home.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- acqui-home.pl       4 Jul 2006 13:35:29 -0000       1.10
+++ acqui-home.pl       7 Jul 2006 07:51:02 -0000       1.11
@@ -66,8 +66,8 @@
 
 # suggestions ?
 my $status           = $query->param('status') || "ASKED";
-my $suggestion       = countsuggestion($status);
-my $suggestions_loop = &searchsuggestion( '', '', '', '', $status, '' );
+my $suggestion       = CountSuggestion($status);
+my $suggestions_loop = &SearchSuggestion( '', '', '', '', $status, '' );
 
 $template->param(
     classlist        => $classlist,

Index: addorder.pl
===================================================================
RCS file: /sources/koha/koha/acqui/addorder.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- addorder.pl 7 Jun 2006 19:25:59 -0000       1.28
+++ addorder.pl 7 Jul 2006 07:51:02 -0000       1.29
@@ -120,7 +120,7 @@
 
         # change suggestion status if applicable
         if ($suggestionid) {
-            changestatus( $suggestionid, 'ORDERED', '', $bibnum );
+            ModStatus( $suggestionid, 'ORDERED', '', $bibnum );
         }
     }
 

Index: newbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- newbiblio.pl        7 Jun 2006 04:29:10 -0000       1.32
+++ newbiblio.pl        7 Jul 2006 07:51:02 -0000       1.33
@@ -67,7 +67,7 @@
             $data = bibdata($biblio);
         }
         else {
-            $data = getsuggestion($suggestionid);
+            $data = GetSuggestion($suggestionid);
         }
     }
     if ( $data->{'title'} eq '' ) {

Index: suggestion-select.pl
===================================================================
RCS file: /sources/koha/koha/acqui/suggestion-select.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- suggestion-select.pl        4 Jul 2006 13:35:29 -0000       1.5
+++ suggestion-select.pl        7 Jul 2006 07:51:02 -0000       1.6
@@ -42,9 +42,9 @@
                         });
 
 if ($op eq 'connectDuplicate') {
-       connectSuggestionAndBiblio($suggestionid,$duplicateNumber);
+       ConnectSuggestionAndBiblio($suggestionid,$duplicateNumber);
 }
-my $suggestions_loop= 
&searchsuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
+my $suggestions_loop= 
&SearchSuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
 foreach (@$suggestions_loop) {
        unless ($_->{biblionumber}) {
                my (@tags, @and_or, @excluding, @operator, @value, 
$offset,$length);