From c459c0f5d2b01b492efb3fca1cb039db9e405ba6 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 26 May 2002 09:13:45 +0000
Subject: [PATCH] Tidying up more warnings.

---
 acqui/acquire.pl    |  3 ++-
 acqui/newbasket2.pl | 10 ++++------
 acqui/newbiblio.pl  |  7 ++++---
 acqui/receive.pl    |  3 ++-
 4 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/acqui/acquire.pl b/acqui/acquire.pl
index 28a1cae7d2..4b3b66a913 100755
--- a/acqui/acquire.pl
+++ b/acqui/acquire.pl
@@ -190,7 +190,8 @@ print <<EOP
 <td><select name=bookfund size=1>
 EOP
 ;
-my ($count2,@bookfund)=bookfunds;                                                    
+my @bookfund;
+($count2,@bookfund)=bookfunds();                                                    
 for (my $i=0;$i<$count2;$i++){                                                       
   print "<option value=$bookfund[$i]->{'bookfundid'}";
   if ($bookfund[$i]->{'bookfundid'}==$results[0]->{'bookfundid'}){
diff --git a/acqui/newbasket2.pl b/acqui/newbasket2.pl
index 5013fd4800..81713c605a 100755
--- a/acqui/newbasket2.pl
+++ b/acqui/newbasket2.pl
@@ -24,7 +24,6 @@ my $secondary;
 
 
 #print $input->dump;
-my $blah;
 my %search;
 #build hash of users input
 my $title=$input->param('search');
@@ -68,16 +67,15 @@ printend
 ;
 
 print center();
-my $count;
-my @results;
+
 
     if ($keyword ne ''){
 #      print "hey";
-      ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset);
+      ($count,@results)=KeywordSearch(undef,'intra',\%search,$num,$offset);
     } elsif ($search{'front'} ne '') {
-    ($count,@results)&FrontSearch(\$blah,'intra',\%search,$num,$offset);
+    ($count,@results)=FrontSearch(undef,'intra',\%search,$num,$offset);
     }else {
-      ($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset);
+      ($count,@results)=CatSearch(undef,'loose',\%search,$num,$offset);
 #            print "hey";
     }
 
diff --git a/acqui/newbiblio.pl b/acqui/newbiblio.pl
index 4b714bc108..345ec58a0a 100755
--- a/acqui/newbiblio.pl
+++ b/acqui/newbiblio.pl
@@ -187,7 +187,8 @@ print <<printend
 <td><select name=branch size=1>
 printend
 ;
-my ($count2,@branches)=branches;
+my @branches;
+($count2,@branches)=branches();
 for (my $i=0;$i<$count2;$i++){
   print "<option value=$branches[$i]->{'branchcode'}";
   if ($data->{'branchcode'} == $branches[$i]->{'branchcode'}){
@@ -236,8 +237,8 @@ print <<printend
 <td><select name=bookfund size=1>
 printend
 ;
-
-my ($count2,@bookfund)=bookfunds;
+my @bookfund;
+($count2,@bookfund)=bookfunds();
 for (my $i=0;$i<$count2;$i++){
   print "<option value=$bookfund[$i]->{'bookfundid'}";
   if ($data->{'bookfundid'} == $bookfund[$i]->{'bookfundid'}){
diff --git a/acqui/receive.pl b/acqui/receive.pl
index c65d61a7e4..18dff09e16 100755
--- a/acqui/receive.pl
+++ b/acqui/receive.pl
@@ -54,7 +54,8 @@ $date
 
 EOP
 ;
-my ($count,@results)=invoice($invoice);
+my @results;
+($count,@results)=invoice($invoice);
 if ($invoice eq ''){
   ($count,@results)=getallorders($id);
 }
-- 
2.39.5