[Koha-cvs] CVS: koha/C4 Koha.pm,1.14,1.15

[MJ Ray]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv30725/C4

Modified Files:
        Koha.pm 
Log Message:
DBI call fix for bug 662

Index: Koha.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Koha.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** Koha.pm     3 Nov 2003 13:29:05 -0000       1.14
--- Koha.pm     15 Dec 2003 10:54:33 -0000      1.15
***************
*** 192,197 ****
        $sth->execute;
        while (my $branch=$sth->fetchrow_hashref) {
!               my $query = "select categorycode from branchrelations where 
branchcode = ?";
!               my $nsth = $dbh->prepare($query);
                $nsth->execute($branch->{'branchcode'});
                while (my ($cat) = $nsth->fetchrow_array) {
--- 192,196 ----
        $sth->execute;
        while (my $branch=$sth->fetchrow_hashref) {
!               my $nsth = $dbh->prepare("select categorycode from 
branchrelations where branchcode = ?");
                $nsth->execute($branch->{'branchcode'});
                while (my ($cat) = $nsth->fetchrow_array) {