Initial revision
[wip/koha-chris_n.git] / readingrec.pl
1 #!/usr/bin/perl
2
3 #written 27/01/2000
4 #script to display borrowers reading record
5
6
7 use strict;
8 use C4::Output;
9 use CGI;
10 use C4::Search;
11 my $input=new CGI;
12
13
14 my $bornum=$input->param('bornum');
15 #get borrower details
16 my $data=borrdata('',$bornum);
17 my ($count,$issues)=allissues($bornum);
18
19
20 print $input->header;
21 print startpage();
22 print startmenu('member');
23 #print $count;
24 print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
25 print mktablehdr();
26 print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE'));
27 for (my $i=0;$i<$count;$i++){
28   print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'});
29 }
30 print mktableft();
31 print endmenu('member');
32 print endpage();
33