[Koha-cvs] CVS: koha reports.pl,1.3,1.4
Henri-Damien LAURENT
hdl at users.sourceforge.net
Thu Dec 19 16:22:20 CET 2002
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv7710
Modified Files:
reports.pl
Log Message:
Templating reports.pl
This might be of no use... Since it is never called and seems obsolete.
Index: reports.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** reports.pl 13 Oct 2002 07:34:42 -0000 1.3
--- reports.pl 19 Dec 2002 15:22:18 -0000 1.4
***************
*** 29,52 ****
use C4::Stats;
use C4::Stock;
my $input = new CGI;
- print $input->header;
my $type=$input->param('type');
! print startpage();
! print startmenu('issue');
! my @data;
if ($type eq 'search'){
! @data=statsreport('search','something');
}
if ($type eq 'issue'){
! @data=statsreport('issue','today');
}
if ($type eq 'stock'){
! @data=stockreport();
}
! print mkheadr(1,"$type reports");
! print @data;
!
! print endmenu('issue');
! print endpage();
--- 29,58 ----
use C4::Stats;
use C4::Stock;
+ use HTML::Template;
my $input = new CGI;
my $type=$input->param('type');
! # 2002/12/19 hdl at ifrance.com templating
! my $template=gettemplate("reports.tmpl");
! #print startpage();
! #print startmenu('issue');
! # 2002/12/19 hdl at ifrance.com templating end
!
! my @dataloop;
if ($type eq 'search'){
! @dataloop=statsreport('search','something');
}
if ($type eq 'issue'){
! @dataloop=statsreport('issue','today');
}
if ($type eq 'stock'){
! @dataloop=stockreport();
}
! # 2002/12/19 hdl at ifrance.com templating
! $template->param( type => $type,
! dataloop => \@dataloop);
! #print endmenu('issue');
! #print endpage();
! print "Content-Type: text/html\n\n", $template->output;
! # 2002/12/19 hdl at ifrance.com templating
More information about the Koha-cvs
mailing list