bd93bfdbc4
If no failures are to be added to the to the strings for redirect the corresponding variables are undefined causing warnings to be logged. Initialize them so that the error log is not being filled with trivia. Signed-off-by: Galen Charlton <gmcharlt@gmail.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
112 lines
3.1 KiB
Perl
Executable file
112 lines
3.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
#written 18/1/2000 by chris@katipo.co.nz
|
|
#script to renew items from the web
|
|
|
|
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
use C4::Circulation;
|
|
use C4::Auth;
|
|
use URI::Escape;
|
|
use C4::Dates qw/format_date_in_iso/;
|
|
my $input = new CGI;
|
|
|
|
#Set Up User_env
|
|
# And assures user is loggedin and has correct accreditations.
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "members/moremember.tmpl",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { circulate => 1 },
|
|
debug => 0,
|
|
}
|
|
);
|
|
|
|
#
|
|
# find items to renew, all items or a selection of items
|
|
#
|
|
|
|
my @data;
|
|
if ($input->param('renew_all')) {
|
|
@data = $input->param('all_items[]');
|
|
}
|
|
else {
|
|
@data = $input->param('items[]');
|
|
}
|
|
|
|
my @barcodes;
|
|
if ($input->param('return_all')) {
|
|
@barcodes = $input->param('all_barcodes[]');
|
|
} else {
|
|
@barcodes = $input->param('barcodes[]');
|
|
}
|
|
|
|
my $branch=$input->param('branch');
|
|
my $datedue;
|
|
if ($input->param('newduedate')){
|
|
$datedue=C4::Dates->new($input->param('newduedate'));
|
|
}
|
|
|
|
# warn "barcodes : @barcodes";
|
|
#
|
|
# renew items
|
|
#
|
|
my $cardnumber = $input->param("cardnumber");
|
|
my $borrowernumber = $input->param("borrowernumber");
|
|
my $exemptfine = $input->param("exemptfine") || 0;
|
|
my $override_limit = $input->param("override_limit") || 0;
|
|
my $failedrenews = q{};
|
|
foreach my $itemno (@data) {
|
|
# check status before renewing issue
|
|
my ($renewokay,$error) = CanBookBeRenewed($borrowernumber,$itemno,$override_limit);
|
|
if ($renewokay){
|
|
AddRenewal($borrowernumber,$itemno,$branch,$datedue);
|
|
}
|
|
else {
|
|
$failedrenews.="&failedrenew=$itemno";
|
|
}
|
|
}
|
|
my $failedreturn = q{};
|
|
foreach my $barcode (@barcodes) {
|
|
# check status before renewing issue
|
|
my ( $returned, $messages, $issueinformation, $borrower ) =
|
|
AddReturn($barcode, $branch, $exemptfine);
|
|
$failedreturn.="&failedreturn=$barcode" unless ($returned);
|
|
}
|
|
|
|
#
|
|
# redirection to the referrer page
|
|
#
|
|
if ($input->param('destination') eq "circ"){
|
|
$cardnumber = uri_escape($cardnumber);
|
|
print $input->redirect(
|
|
'/cgi-bin/koha/circ/circulation.pl?findborrower='.$cardnumber.$failedrenews.$failedreturn
|
|
);
|
|
}
|
|
else {
|
|
print $input->redirect(
|
|
'/cgi-bin/koha/members/moremember.pl?borrowernumber='.$borrowernumber.$failedrenews.$failedreturn
|
|
);
|
|
}
|