Browse Source

fix

master
chris 21 years ago
parent
commit
8f30ddb382
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      readingrec.pl

+ 2
- 2
readingrec.pl View File

@@ -14,7 +14,7 @@ my $input=new CGI;
my $bornum=$input->param('bornum');
#get borrower details
my $data=borrdata('',$bornum);
my ($count,$issues)=borrissues($bornum);
my ($count,$issues)=allissues($bornum);


print $input->header;
@@ -25,7 +25,7 @@ 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 mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'});
}
print mktableft();
print endmenu('member');


Loading…
Cancel
Save