[Koha-cvs] CVS: koha/C4 Stats.pm,1.13,1.14 Stock.pm,1.6,1.7

[Henri-Damien LAURENT]

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

Modified Files:
        Stats.pm Stock.pm 
Log Message:
Templating reports.pl
This might be of no use... Since it is never called and seems obsolete.


Index: Stats.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Stats.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Stats.pm    13 Oct 2002 11:36:19 -0000      1.13
--- Stats.pm    19 Dec 2002 15:22:18 -0000      1.14
***************
*** 124,129 ****
    my @results;
    while (my $data=$sth->fetchrow_hashref){
!     $results[$i]="$data->{'datetime'}\t$data->{'branch'}";
!     $i++;
    }
    $sth->finish;
--- 124,130 ----
    my @results;
    while (my $data=$sth->fetchrow_hashref){
!       my %tempvalue;
!     $tempvalue->{'value'}="$data->{'datetime'}\t$data->{'branch'}";
!     push(@results, \%tempvalue);
    }
    $sth->finish;

Index: Stock.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Stock.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Stock.pm    13 Oct 2002 08:34:49 -0000      1.6
--- Stock.pm    19 Dec 2002 15:22:18 -0000      1.7
***************
*** 41,45 ****
    $sth->execute;
    my $count=$sth->fetchrow_hashref;
!   $results[0]="$count->{'count'}\t Levin";
    $sth->finish;
    $query="Select count(*) from items where homebranch='F'";
--- 41,45 ----
    $sth->execute;
    my $count=$sth->fetchrow_hashref;
!   $results[0]->{'value'}="$count->{'count'}\t Levin";
    $sth->finish;
    $query="Select count(*) from items where homebranch='F'";
***************
*** 47,51 ****
    $sth->execute;
    $count=$sth->fetchrow_hashref;
!   $results[1]="$count->{'count'}\t Foxton";
    $sth->finish;
    return(@results);
--- 47,51 ----
    $sth->execute;
    $count=$sth->fetchrow_hashref;
!   $results[1]->{'value'}="$count->{'count'}\t Foxton";
    $sth->finish;
    return(@results);