[Koha-cvs] CVS: koha/C4 Accounts2.pm,1.9.2.1,1.9.2.2 Acquisitions.pm,1.5.2.1,1.5.2.2 Reserves2.pm,1.5.2.1,1.5.2.2 Search.pm,1.18.2.1,1.18.2.2 Stats.pm,1.3.2.1,1.3.2.2

[Chris Cormack]

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

Modified Files:
      Tag: rel-1-2
	Accounts2.pm Acquisitions.pm Reserves2.pm Search.pm Stats.pm 
Log Message:
Fixing up a whole pile of warnings


Index: Accounts2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v
retrieving revision 1.9.2.1
retrieving revision 1.9.2.2
diff -C2 -r1.9.2.1 -r1.9.2.2
*** Accounts2.pm	25 Apr 2002 21:59:55 -0000	1.9.2.1
--- Accounts2.pm	18 May 2002 10:21:51 -0000	1.9.2.2
***************
*** 2,5 ****
--- 2,6 ----
  
  use strict;
+ use warnings;
  require Exporter;
  use DBI;
***************
*** 56,60 ****
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      my $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
--- 57,61 ----
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
***************
*** 106,110 ****
    (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding)  
    values ($bornumber,$nextaccntno,now(),$payment,'Payment,thanks - $user', 'Pay',0)";
!   my $usth = $dbh->prepare($updquery);
    $usth->execute;
    $usth->finish;
--- 107,111 ----
    (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding)  
    values ($bornumber,$nextaccntno,now(),$payment,'Payment,thanks - $user', 'Pay',0)";
!   $usth = $dbh->prepare($updquery);
    $usth->execute;
    $usth->finish;
***************
*** 259,263 ****
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      my $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
--- 260,264 ----
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
***************
*** 290,294 ****
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      my $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
--- 291,295 ----
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
***************
*** 343,347 ****
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      my $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;
--- 344,348 ----
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
!      $usth = $dbh->prepare($updquery);
       $usth->execute;
       $usth->finish;

Index: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -C2 -r1.5.2.1 -r1.5.2.2
*** Acquisitions.pm	25 Apr 2002 21:59:55 -0000	1.5.2.1
--- Acquisitions.pm	18 May 2002 10:21:51 -0000	1.5.2.2
***************
*** 4,8 ****
  require Exporter;
  use C4::Database;
! 
  use vars qw($VERSION @ISA @EXPORT);
  
--- 4,8 ----
  require Exporter;
  use C4::Database;
! use warnings;
  use vars qw($VERSION @ISA @EXPORT);
  
***************
*** 743,747 ****
      $cur=1;
    }
!   my $price=$price / $cur;
    return($price);
  }
--- 743,747 ----
      $cur=1;
    }
!   $price=$price / $cur;
    return($price);
  }
***************
*** 1047,1051 ****
      # || die "Cannot execute $query\n" . $sth->errstr;
    while (my $data = $sth->fetchrow_hashref) {
!     @results[$count] = $data;
      $count++;
    } # while
--- 1047,1051 ----
      # || die "Cannot execute $query\n" . $sth->errstr;
    while (my $data = $sth->fetchrow_hashref) {
!     $results[$count] = $data;
      $count++;
    } # while

Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -C2 -r1.5.2.1 -r1.5.2.2
*** Reserves2.pm	25 Apr 2002 21:59:55 -0000	1.5.2.1
--- Reserves2.pm	18 May 2002 10:21:51 -0000	1.5.2.2
***************
*** 187,191 ****
      my $allissued = 1; 
      while ($x < $cntitemsfound) { 
!       my $bitdata = @biblioitems[$x];                                       
        my $query2 = "select * from items                   
        where biblioitemnumber = '$bitdata->{'biblioitemnumber'}'";     
--- 187,191 ----
      my $allissued = 1; 
      while ($x < $cntitemsfound) { 
!       my $bitdata = $biblioitems[$x];                                       
        my $query2 = "select * from items                   
        where biblioitemnumber = '$bitdata->{'biblioitemnumber'}'";     

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.1
retrieving revision 1.18.2.2
diff -C2 -r1.18.2.1 -r1.18.2.2
*** Search.pm	25 Apr 2002 21:59:55 -0000	1.18.2.1
--- Search.pm	18 May 2002 10:21:51 -0000	1.18.2.2
***************
*** 109,113 ****
    my $sth=$dbh->prepare($query);
    $sth->execute;
!   my $i=0;
    while (my @res=$sth->fetchrow_array){
      $results[$i]=$res[0];
--- 109,113 ----
    my $sth=$dbh->prepare($query);
    $sth->execute;
!   $i=0;
    while (my @res=$sth->fetchrow_array){
      $results[$i]=$res[0];
***************
*** 384,388 ****
    @results=sort @results;
    my @res;
!   my $count=@results;
    $i=1;
    if ($count > 0){
--- 384,388 ----
    @results=sort @results;
    my @res;
!   $count=@results;
    $i=1;
    if ($count > 0){
***************
*** 953,957 ****
      and issues.borrowernumber=borrowers.borrowernumber 
      order by date_due desc";
!     my $sth2=$dbh->prepare($query2) || die $dbh->errstr;
      $sth2->execute || die $sth2->errstr;
      for (my $i2=0;$i2<2;$i2++){
--- 953,957 ----
      and issues.borrowernumber=borrowers.borrowernumber 
      order by date_due desc";
!     $sth2=$dbh->prepare($query2) || die $dbh->errstr;
      $sth2->execute || die $sth2->errstr;
      for (my $i2=0;$i2<2;$i2++){

Index: Stats.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Stats.pm,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -C2 -r1.3.2.1 -r1.3.2.2
*** Stats.pm	25 Apr 2002 21:59:55 -0000	1.3.2.1
--- Stats.pm	18 May 2002 10:21:51 -0000	1.3.2.2
***************
*** 209,213 ****
    $sth->execute;
    while (my $data=$sth->fetchrow_hashref){
!     @results[$i]=$data;
      $i++;
    }
--- 209,213 ----
    $sth->execute;
    while (my $data=$sth->fetchrow_hashref){
!     $results[$i]=$data;
      $i++;
    }