moving readingrec to members directory
[wip/koha-chris_n.git] / members / readingrec.pl
1 #!/usr/bin/perl
2
3 #written 27/01/2000
4 #script to display borrowers reading record
5
6
7
8 # Copyright 2000-2002 Katipo Communications
9 #
10 # This file is part of Koha.
11 #
12 # Koha is free software; you can redistribute it and/or modify it under the
13 # terms of the GNU General Public License as published by the Free Software
14 # Foundation; either version 2 of the License, or (at your option) any later
15 # version.
16 #
17 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
18 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
19 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
20 #
21 # You should have received a copy of the GNU General Public License along with
22 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
23 # Suite 330, Boston, MA  02111-1307 USA
24
25 use strict;
26 use C4::Auth;
27 use C4::Output;
28 use C4::Interface::CGI::Output;
29 use CGI;
30 use C4::Members;
31 use HTML::Template;
32 use C4::Date;
33 my $input=new CGI;
34
35
36 my $bornum=$input->param('bornum');
37 #get borrower details
38 my $data=borrdata('',$bornum);
39 my $order=$input->param('order');
40 my $order2=$order;
41 if ($order2 eq ''){
42   $order2="date_due desc";
43 }
44 my $limit=$input->param('limit');
45 if ($limit eq 'full' || $limit eq 0){
46   $limit=0;
47 } else {
48   $limit=50;
49 }
50 my ($count,$issues)=allissues($bornum,$order2,$limit);
51
52 my ($template, $loggedinuser, $cookie)
53 = get_template_and_user({template_name => "members/readingrec.tmpl",
54                                 query => $input,
55                                 type => "intranet",
56                                 authnotrequired => 0,
57                                 flagsrequired => {borrowers => 1},
58                                 debug => 1,
59                                 });
60
61 my @loop_reading;
62
63 for (my $i=0;$i<$count;$i++){
64         my %line;
65         if($i%2){
66                 $line{'toggle'} = 1;
67         }
68         $line{biblionumber}=$issues->[$i]->{'biblionumber'};
69         $line{title}=$issues->[$i]->{'title'};
70         $line{author}=$issues->[$i]->{'author'};
71         $line{classification} = $issues->[$i]->{'classification'};
72         $line{date_due}=format_date($issues->[$i]->{'date_due'});
73         $line{returndate}=format_date($issues->[$i]->{'returndate'});
74         $line{volumeddesc}=$issues->[$i]->{'volumeddesc'};
75         push(@loop_reading,\%line);
76 }
77
78 $template->param(
79                                                 biblionumber => $data->{'biblionumber'},
80                                                 title => $data->{'title'},
81                                                 initials => $data->{'initials'},
82                                                 surname => $data->{'surname'},
83                                                 bornum => $bornum,
84                                                 limit => $limit,
85                                                 firstname => $data->{'firstname'},
86                                                 cardnumber => $data->{'cardnumber'},
87                                                 showfulllink => ($count > 50),                                  
88                                                 loop_reading => \@loop_reading);
89 output_html_with_http_headers $input, $cookie, $template->output;
90
91
92