[Koha-cvs] CVS: koha/admin charges.pl,1.1,1.1.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv22164/admin

Modified Files:
      Tag: rel_2_0
        charges.pl 
Log Message:
DBI call fix for bug 662

Index: charges.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/charges.pl,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -r1.1 -r1.1.2.1
*** charges.pl  6 Oct 2003 13:40:49 -0000       1.1
--- charges.pl  23 Dec 2003 17:52:58 -0000      1.1.2.1
***************
*** 44,49 ****
  
  my $dbh = C4::Context->dbh;
! my $query="Select description,categorycode from categories";
! my $sth=$dbh->prepare($query);
  $sth->execute;
   my @trow3;
--- 44,48 ----
  
  my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("Select description,categorycode from categories");
  $sth->execute;
   my @trow3;
***************
*** 57,62 ****
  }
  $sth->finish;
! $query="Select description,itemtype from itemtypes";
! $sth=$dbh->prepare($query);
  $sth->execute;
  $i=0;
--- 56,60 ----
  }
  $sth->finish;
! $sth=$dbh->prepare("Select description,itemtype from itemtypes");
  $sth->execute;
  $i=0;
***************
*** 72,77 ****
        }
        for ($i=0;$i<9;$i++){
!               $query="select * from categoryitem where categorycode=? and 
itemtype=?";
!               my $sth2=$dbh->prepare($query);
                $sth2->execute($trow3[$i],$data->{'itemtype'});
                my $dat=$sth2->fetchrow_hashref;
--- 70,74 ----
        }
        for ($i=0;$i<9;$i++){
!               my $sth2=$dbh->prepare("select * from categoryitem where 
categorycode=? and itemtype=?");
                $sth2->execute($trow3[$i],$data->{'itemtype'});
                my $dat=$sth2->fetchrow_hashref;