From 6f28205b09bbf5460faf23acd11c6ff0f8b89c35 Mon Sep 17 00:00:00 2001 From: Joshua Ferraro Date: Fri, 14 Dec 2007 11:55:47 -0600 Subject: [PATCH] adding setstatus.pl from dev_week Signed-off-by: Joshua Ferraro --- members/setstatus.pl | 60 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100755 members/setstatus.pl diff --git a/members/setstatus.pl b/members/setstatus.pl new file mode 100755 index 0000000000..6fa13ead1b --- /dev/null +++ b/members/setstatus.pl @@ -0,0 +1,60 @@ +#!/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 +# +# 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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; + +use CGI; +use C4::Context; +use C4::Auth; + + +my $input = new CGI; + +my $flagsrequired; +$flagsrequired->{borrowers}=1; +my ($loggedinuser, $cookie, $sessionID) = 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 $renewaldate = $input->param('renewaldate'); + +my $dbh = C4::Context->dbh; + +if($renewaldate){ + my $sth=$dbh->prepare("Update borrowers set expiry = ? where borrowernumber = ?"); + $sth->execute($renewaldate,$borrowernumber); + $sth->finish; +} else { + my $sth=$dbh->prepare("Update borrowers set debarred = ? where borrowernumber = ?"); + $sth->execute($status,$borrowernumber); + $sth->finish; + } + +if($destination eq "circ"){ + print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber"); +} else { + print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber"); +} -- 2.39.5