[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) {