# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+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 = new CGI;
+my $query = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
{
template_name => "opac-user.tt",
query => $query,
type => "opac",
- authnotrequired => 0,
- debug => 1,
}
);
my @items = $query->multi_param('item');
my ( $status, $error ) =
CanBookBeRenewed( $borrowernumber, $itemnumber );
if ( $status == 1 && $opacrenew == 1 ) {
- my $renewalbranch = C4::Context->preference('OpacRenewalBranch');
- my $branchcode;
- if ( $renewalbranch eq 'itemhomebranch' ) {
- my $item = GetItem($itemnumber);
- $branchcode = $item->{'homebranch'};
- }
- elsif ( $renewalbranch eq 'patronhomebranch' ) {
- $branchcode = Koha::Patrons->find( $borrowernumber )->branchcode;
- }
- elsif ( $renewalbranch eq 'checkoutbranch' ) {
- my $issue = GetOpenIssue($itemnumber);
- $branchcode = $issue->{'branchcode'};
- }
- elsif ( $renewalbranch eq 'NULL' ) {
- $branchcode = '';
- }
- else {
- $branchcode = 'OPACRenew';
- }
- AddRenewal( $borrowernumber, $itemnumber, $branchcode );
+ AddRenewal( $borrowernumber, $itemnumber, undef, undef, undef, undef, 0 );
push( @renewed, $itemnumber );
}
else {