[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);