[Koha-cvs] CVS: koha/admin charges.pl,1.1,1.1.2.1
MJ Ray
slef at users.sourceforge.net
Tue Dec 23 18:53:01 CET 2003
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;
More information about the Koha-cvs
mailing list