Checking for the existence of flags (debarred, gonenoaddress. lost) and setting ...

[koha_fer] / readingrec.pl

diff --git a/readingrec.pl b/readingrec.pl
index 8a3e254..85d44d1 100755 (executable)
--- a/readingrec.pl
+++ b/readingrec.pl
@@ -41,7 +41,7 @@ if ($order2 eq ''){
   $order2="date_due desc";
 }
 my $limit=$input->param('limit');
-if ($limit eq 'full'){
+if ($limit eq 'full' || $limit eq 0){
   $limit=0;
 } else {
   $limit=50;
@@ -61,14 +61,18 @@ my @loop_reading;
 
 for (my $i=0;$i<$count;$i++){
        my %line;
+       $line{biblionumber}=$issues->[$i]->{'biblionumber'};
        $line{title}=$issues->[$i]->{'title'};
        $line{author}=$issues->[$i]->{'author'};
+       $line{date_due}=$issues->[$i]->{'date_due'};
        $line{returndate}=$issues->[$i]->{'returndate'};
        $line{volumeddesc}=$issues->[$i]->{'volumeddesc'};
        push(@loop_reading,\%line);
 }
 
-$template->param(title => $data->{'title'},
+$template->param(
+                                               biblionumber => $data->{'biblionumber'},
+                                               title => $data->{'title'},
                                                initials => $data->{'initials'},
                                                surname => $data->{'surname'},
                                                bornum => $bornum,