[Koha-cvs] CVS: koha/C4 Stock.pm,1.7,1.8

[MJ Ray]

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

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

Index: Stock.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Stock.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Stock.pm    19 Dec 2002 15:22:18 -0000      1.7
--- Stock.pm    15 Dec 2003 10:57:55 -0000      1.8
***************
*** 37,48 ****
    my $dbh = C4::Context->dbh;
    my @results;
!   my $query="Select count(*) from items where homebranch='C'";
!   my $sth=$dbh->prepare($query);
    $sth->execute;
    my $count=$sth->fetchrow_hashref;
    $results[0]->{'value'}="$count->{'count'}\t Levin";
    $sth->finish;
!   $query="Select count(*) from items where homebranch='F'";
!   $sth=$dbh->prepare($query);
    $sth->execute;
    $count=$sth->fetchrow_hashref;
--- 37,46 ----
    my $dbh = C4::Context->dbh;
    my @results;
!   my $sth=$dbh->prepare("Select count(*) from items where homebranch='C'");
    $sth->execute;
    my $count=$sth->fetchrow_hashref;
    $results[0]->{'value'}="$count->{'count'}\t Levin";
    $sth->finish;
!   $sth=$dbh->prepare("Select count(*) from items where homebranch='F'");
    $sth->execute;
    $count=$sth->fetchrow_hashref;