[Koha-cvs] CVS: koha/C4 Stats.pm,1.13,1.14 Stock.pm,1.6,1.7
Henri-Damien LAURENT
hdl at users.sourceforge.net
Thu Dec 19 16:22:20 CET 2002
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);
More information about the Koha-cvs
mailing list