X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=reservereport.pl;h=ea2c4a2d8842b731ac57a4014816c441f787befe;hb=0d1f848afa3b616317555fe507148526221f605c;hp=51b4a4a8d3d00f2db411d6300cd15bae9dab1e0b;hpb=1e67687742e36bbb90746ecdd78a0c6a63aad890;p=koha.git

diff --git a/reservereport.pl b/reservereport.pl
index 51b4a4a8d3..ea2c4a2d88 100755
--- a/reservereport.pl
+++ b/reservereport.pl
@@ -21,25 +21,35 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-use C4::Stats;
 use strict;
+use C4::Stats;
 use Date::Manip;
 use CGI;
 use C4::Output;
+use HTML::Template;
+
 
 my $input=new CGI;
 my $time=$input->param('time');
-print $input->header;
 
-print startpage;
-print startmenu('report');
-print center;
-print mktablehdr();
+#print $input->header;
+#print startpage;
+#print startmenu('report');
+my $template = gettemplate("reservereport.tmpl");
+#print center;
+#print mktablehdr();
 my ($count,$data)=unfilledreserves();
-print $count;
+
+my @dataloop;
 for (my $i=0;$i<$count;$i++){
-  print mktablerow(4,'white',"$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}",$data->[$i]->{'reservedate'},$data->[$i]->{'title'},"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}");
+	my %line;
+	$line{name}="$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}";
+	$line{'reservedate'}=$data->[$i]->{'reservedate'};
+	$line{'title'}=$data->[$i]->{'title'};
+	$line{'classification'}="$data->[$i]->{'classification'}$data->[$i]->{'dewey'}");
+	push(@dataloop,\%line);
 }
-print mktableft();
-print endmenu('report');
-print endpage;
+
+$template->param(	count => $count,
+								dataloop => \@dataloop);
+print "Content-Type: text/html\n\n", $template->output;