Sub renamed according to the coding guidelines

diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl
index 2820c59..a1b5cb7 100755 (executable)
--- a/acqui/acqui-home.pl
+++ b/acqui/acqui-home.pl
@@ -66,8 +66,8 @@ for ( my $i = 0 ; $i < $count ; $i++ ) {
 
 # 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,

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index b6f53ae..a5fbbb8 100755 (executable)
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -120,7 +120,7 @@ if ( $quantity ne '0' ) {
 
         # change suggestion status if applicable
         if ($suggestionid) {
-            changestatus( $suggestionid, 'ORDERED', '', $bibnum );
+            ModStatus( $suggestionid, 'ORDERED', '', $bibnum );
         }
     }
 

diff --git a/acqui/newbiblio.pl b/acqui/newbiblio.pl
index 13b6d7d..4f5681a 100755 (executable)
--- a/acqui/newbiblio.pl
+++ b/acqui/newbiblio.pl
@@ -67,7 +67,7 @@ if ( $ordnum eq '' ) {    # create order
             $data = bibdata($biblio);
         }
         else {
-            $data = getsuggestion($suggestionid);
+            $data = GetSuggestion($suggestionid);
         }
     }
     if ( $data->{'title'} eq '' ) {

diff --git a/acqui/suggestion-select.pl b/acqui/suggestion-select.pl
index 14f2c58..d71e63a 100755 (executable)
--- a/acqui/suggestion-select.pl
+++ b/acqui/suggestion-select.pl
@@ -42,9 +42,9 @@ my ($template, $borrowernumber, $cookie)
                         });
 
 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);