[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 address@hidden templating
! my $template=gettemplate("reports.tmpl");
! #print startpage();
! #print startmenu('issue');
! # 2002/12/19 address@hidden 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 address@hidden templating
! $template->param(     type => $type,
!                                                               dataloop => 
address@hidden);
! #print endmenu('issue');
! #print endpage();
! print "Content-Type: text/html\n\n", $template->output;
! # 2002/12/19 address@hidden templating