Owen Leonard
8fd75227fc
The staff client has two almost identical include files which can be consolidated: circ-toolbar.inc and members-toolbar.inc. This patch marges the slight differences between them and eliminates circ-toolbar.inc, that being the one which was used on fewer pages. In order to accommodate the different "destination" variable for operations which redirect back either to circ or patrons, circulation.pl defines "destination" in the template. Revision corrects a redirect error in setstatus.pl which predates this patch but which never showed up until now. To test, perform various operations from the toolbar on at least two pages: circulation.pl and moremember.pl. Operations: Edit, add child, duplicate, change password, print (all options), search to hold, renew, set permissions, delete, update child to adult, and export checked-in barcodes. In most cases simply confirming that the link takes you to the right place is enough. Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
71 lines
2.2 KiB
Perl
Executable file
71 lines
2.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#script to set or lift debarred status
|
|
#written 2/8/04
|
|
#by oleonard@athenscounty.lib.oh.us
|
|
|
|
|
|
# Copyright 2000-2002 Katipo Communications
|
|
# Parts copyright 2010 BibLibre
|
|
#
|
|
# 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::Context;
|
|
use C4::Members;
|
|
use C4::Auth;
|
|
|
|
|
|
my $input = new CGI;
|
|
|
|
my $flagsrequired;
|
|
$flagsrequired->{borrowers}=1;
|
|
checkauth($input, 0, $flagsrequired);
|
|
|
|
my $destination = $input->param("destination") || '';
|
|
my $cardnumber = $input->param("cardnumber");
|
|
my $borrowernumber=$input->param('borrowernumber');
|
|
my $status = $input->param('status');
|
|
my $reregistration = $input->param('reregistration') || '';
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
my $dateexpiry;
|
|
|
|
if ( $reregistration eq 'y' ) {
|
|
# re-reregistration function to automatic calcul of date expiry
|
|
$dateexpiry = ExtendMemberSubscriptionTo( $borrowernumber );
|
|
} else {
|
|
my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?");
|
|
$sth->execute( $status, $borrowernumber );
|
|
$sth->finish;
|
|
}
|
|
|
|
if($destination eq "circ"){
|
|
if($dateexpiry){
|
|
print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber&dateexpiry=$dateexpiry");
|
|
} else {
|
|
print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber");
|
|
}
|
|
} else {
|
|
if($dateexpiry){
|
|
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber&dateexpiry=$dateexpiry");
|
|
} else {
|
|
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber");
|
|
}
|
|
}
|