From 3c4ca5a444e5e14d092ac41b3da9752260a61032 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 10 Jul 2002 13:58:43 +0000
Subject: [PATCH] *** empty log message ***

---
 C4/Acquisitions.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/C4/Acquisitions.pm b/C4/Acquisitions.pm
index 34c51171d0..6fa21d2a70 100644
--- a/C4/Acquisitions.pm
+++ b/C4/Acquisitions.pm
@@ -289,7 +289,7 @@ sub basket {
   =aqorders.biblioitemnumber 
   and (datecancellationprinted is NULL or datecancellationprinted =
   '0000-00-00')";
-  if ($supplier ne ''){
+  if (defined $supplier && $supplier ne ''){
     $query.=" and aqorders.booksellerid='$supplier'";
   } 
   $query.=" group by aqorders.ordernumber";
@@ -861,7 +861,7 @@ sub curconvert {
   if ($cur==0){
     $cur=1;
   }
-  my $price=$price / $cur;
+  $price=$price / $cur;
   return($price);
 }
 
@@ -1223,7 +1223,7 @@ sub getitemtypes {
   $sth->execute;
     # || die "Cannot execute $query\n" . $sth->errstr;
   while (my $data = $sth->fetchrow_hashref) {
-    @results[$count] = $data;
+    $results[$count] = $data;
     $count++;
   } # while
   
-- 
2.39.5