[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 => \@loop_reading);
! print "Content-Type: text/html\n\n", $template->output;
! 
!