From 6ed49b77250a9cc720ab6c4627120ee5201671ed Mon Sep 17 00:00:00 2001 From: rangi Date: Thu, 25 Aug 2005 22:29:30 +0000 Subject: [PATCH] Shifting in here from the base directory --- reports/reservereport.pl | 55 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) create mode 100755 reports/reservereport.pl diff --git a/reports/reservereport.pl b/reports/reservereport.pl new file mode 100755 index 0000000000..35903f1d12 --- /dev/null +++ b/reports/reservereport.pl @@ -0,0 +1,55 @@ +#!/usr/bin/perl + +#written 26/4/2000 +#script to display reports + + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +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'); +my $template = gettemplate("reservereport.tmpl"); +#print center; +#print mktablehdr(); +my ($count,$data)=unfilledreserves(); + +my @dataloop; +for (my $i=0;$i<$count;$i++){ + 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); +} + +$template->param( count => $count, + dataloop => \@dataloop); +print "Content-Type: text/html\n\n", $template->output; -- 2.39.5