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

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv9980

Modified Files:
        readingrec.pl 
Log Message:
templating : readingrec.pl

Index: readingrec.pl
===================================================================
RCS file: /cvsroot/koha/koha/readingrec.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** readingrec.pl       14 Aug 2002 18:12:51 -0000      1.3
--- readingrec.pl       28 Oct 2002 21:15:11 -0000      1.4
***************
*** 27,30 ****
--- 27,31 ----
  use CGI;
  use C4::Search;
+ use HTML::Template;
  my $input=new CGI;
  
***************
*** 47,63 ****
  
  
! print $input->header;
! print startpage();
! print startmenu('member');
! #print $count;
! print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
! print mktablehdr();
! print mktablerow(1,'white',"<a 
href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=full>Full output</a>");
! print mktablerow(4,'white',"<a 
href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=title&limit=$limit><b>TITLE</b></a>","<a
 
href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=author&limit=$limit><b>AUTHOR</b></a>","<a
 
href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=$limit><b>DATE</b></a>","<b>Volume</b>");
  for (my $i=0;$i<$count;$i++){
!   print 
mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'});
  }
! print mktableft();
! print endmenu('member');
! print endpage();
  
--- 48,74 ----
  
  
! #print $input->header;
! #print startpage();
! #print startmenu('member');
! my $template = gettemplate("members/readingrec.tmpl");
! 
! my @loop_reading;
! 
  for (my $i=0;$i<$count;$i++){
!       my %line;
!       $line{title}=$issues->[$i]->{'title'};
!       $line{author}=$issues->[$i]->{'author'};
!       $line{returndate}=$issues->[$i]->{'returndate'};
!       $line{volumeddesc}=$issues->[$i]->{'volumeddesc'};
!       push(@loop_reading,\%line);
  }
! $template->param(title => $data->{'title'},
!                                               initials => $data->{'initials'},
!                                               surname => $data->{'surname'},
!                                               bornum => $bornum,
!                                               limit => $limit,
!                                               loop_reading => address@hidden);
! print "Content-Type: text/html\n\n", $template->output;
! 
!