use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Circulation;
-use C4::Auth;
+use C4::Circulation qw( CanBookBeRenewed AddRenewal );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Items;
use C4::Members;
use Koha::Items;
use Koha::Patrons;
-use Date::Calc qw( Today Date_to_Days );
my $query = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
template_name => "opac-user.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
my @items = $query->multi_param('item');
my ( $status, $error ) =
CanBookBeRenewed( $borrowernumber, $itemnumber );
if ( $status == 1 && $opacrenew == 1 ) {
- AddRenewal( $borrowernumber, $itemnumber, undef, undef, undef );
+ AddRenewal( $borrowernumber, $itemnumber, undef, undef, undef, undef, 0 );
push( @renewed, $itemnumber );
}
else {