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

[koha_fer] / readingrec.pl

diff --git a/readingrec.pl b/readingrec.pl
index c4d258c..85d44d1 100755 (executable)
--- a/readingrec.pl
+++ b/readingrec.pl
@@ -25,7 +25,7 @@
 use strict;
 use C4::Auth;
 use C4::Output;
-use C4::Charset;
+use C4::Interface::CGI::Output;
 use CGI;
 use C4::Search;
 use HTML::Template;
@@ -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,22 +61,27 @@ 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,
                                                limit => $limit,
+                                               firstname => $data->{'firstname'},
+                                               cardnumber => $data->{'cardnumber'},
+                                               showfulllink => ($count > 50),                                  
                                                loop_reading => \@loop_reading);
-print $input->header(
-    -type => guesstype($template->output),
-    -cookie => $cookie
-),$template->output;
+output_html_with_http_headers $input, $cookie, $template->output;