chris
25 years ago
1 changed files with 33 additions and 0 deletions
@ -0,0 +1,33 @@ |
|||||
|
#!/usr/bin/perl |
||||
|
|
||||
|
#written 27/01/2000 |
||||
|
#script to display borrowers reading record |
||||
|
|
||||
|
|
||||
|
use strict; |
||||
|
use C4::Output; |
||||
|
use CGI; |
||||
|
use C4::Search; |
||||
|
my $input=new CGI; |
||||
|
|
||||
|
|
||||
|
my $bornum=$input->param('bornum'); |
||||
|
#get borrower details |
||||
|
my $data=borrdata('',$bornum); |
||||
|
my ($count,$issues)=borrissues($bornum); |
||||
|
|
||||
|
|
||||
|
print $input->header; |
||||
|
print startpage(); |
||||
|
print startmenu('member'); |
||||
|
#print $count; |
||||
|
print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}"); |
||||
|
print mktablehdr(); |
||||
|
print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE')); |
||||
|
for (my $i=0;$i<$count;$i++){ |
||||
|
print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'date_due'}); |
||||
|
} |
||||
|
print mktableft(); |
||||
|
print endmenu('member'); |
||||
|
print endpage(); |
||||
|
|
Loading…
Reference in new issue