From 21a410129c458874f3bd0e76b23b4fbe01a432dc Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Fri, 7 Jul 2006 07:51:02 +0000
Subject: [PATCH] Sub renamed according to the coding guidelines

---
 acqui/acqui-home.pl        | 4 ++--
 acqui/addorder.pl          | 2 +-
 acqui/newbiblio.pl         | 2 +-
 acqui/suggestion-select.pl | 4 ++--
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl
index 2820c595d5..a1b5cb78f1 100755
--- 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 b6f53ae0e7..a5fbbb8571 100755
--- 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 13b6d7de49..4f5681aea3 100755
--- 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 14f2c581f0..d71e63ad0f 100755
--- 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);
-- 
2.39.5