[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.20,1.21

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv24274/C4

Modified Files:
	Acquisitions.pm 
Log Message:



Index: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** Acquisitions.pm	8 Jul 2002 16:45:34 -0000	1.20
--- Acquisitions.pm	10 Jul 2002 13:58:43 -0000	1.21
***************
*** 290,294 ****
    and (datecancellationprinted is NULL or datecancellationprinted =
    '0000-00-00')";
!   if ($supplier ne ''){
      $query.=" and aqorders.booksellerid='$supplier'";
    } 
--- 290,294 ----
    and (datecancellationprinted is NULL or datecancellationprinted =
    '0000-00-00')";
!   if (defined $supplier && $supplier ne ''){
      $query.=" and aqorders.booksellerid='$supplier'";
    } 
***************
*** 862,866 ****
      $cur=1;
    }
!   my $price=$price / $cur;
    return($price);
  }
--- 862,866 ----
      $cur=1;
    }
!   $price=$price / $cur;
    return($price);
  }
***************
*** 1224,1228 ****
      # || die "Cannot execute $query\n" . $sth->errstr;
    while (my $data = $sth->fetchrow_hashref) {
!     @results[$count] = $data;
      $count++;
    } # while
--- 1224,1228 ----
      # || die "Cannot execute $query\n" . $sth->errstr;
    while (my $data = $sth->fetchrow_hashref) {
!     $results[$count] = $data;
      $count++;
    } # while