use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Output;
if ($item) {
- $issue = $item->issues()->single();
+ $issue = $item->issue();
if ($issue) {
);
}
if ($can_renew) {
- my $date_due = AddRenewal( undef, $item->itemnumber() );
+ my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef;
+ my $date_due = AddRenewal( undef, $item->itemnumber(), $branchcode );
$template->param( date_due => $date_due );
}
}