[Koha-cvs] CVS: koha reports.pl,1.3,1.4

[Henri-Damien LAURENT]

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