X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fsetstatus.pl;h=2c13401abc2edd60029de023ec147a45503fba2b;hb=HEAD;hp=addeeb3b8265d884ed1d2f6a6274edce5a89b3ae;hpb=4669a10776ff958a3b2d51963b7c4ec90ec02f09;p=koha.git diff --git a/members/setstatus.pl b/members/setstatus.pl index addeeb3b82..2c13401abc 100755 --- a/members/setstatus.pl +++ b/members/setstatus.pl @@ -34,9 +34,7 @@ use C4::Auth; my $input = new CGI; -my $flagsrequired; -$flagsrequired->{borrowers}=1; -my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired); +checkauth($input, 0, { borrowers => 1 }, 'intranet'); my $destination = $input->param("destination") || ''; my $cardnumber = $input->param("cardnumber"); @@ -51,21 +49,21 @@ 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 = ? where borrowernumber = ?"); - $sth->execute($status,$borrowernumber); + 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"); + print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber&was_renewed=1"); } else { print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber"); } } else { if($dateexpiry){ - print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber&dateexpiry=$dateexpiry"); + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber&was_renewed=1"); } else { - print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber"); + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber"); } }