3 # Parts Copyright Biblibre 2010
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
11 # Koha is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use C4::Auth qw( checkauth );
26 use Koha::Patron::Modifications;
30 my ( $userid, $cookie, $sessionID, $flags ) = checkauth($query, 0, { borrowers => 'edit_borrowers' }, 'intranet');
32 my $logged_in_user = Koha::Patrons->find({ userid => $userid });
34 my @params = $query->param;
36 foreach my $param (@params) {
37 if ( $param =~ "^modify_" ) {
38 my (undef, $borrowernumber) = split( /_/, $param );
40 my $patron = Koha::Patrons->find($borrowernumber);
41 next unless $logged_in_user->can_see_patron_infos( $patron );
43 my $action = $query->param($param);
45 if ( $action eq 'approve' ) {
46 my $m = Koha::Patron::Modifications->find( { borrowernumber => $borrowernumber } );
48 if ($query->param("unset_gna_$borrowernumber")) {
49 # Unset gone no address
50 # FIXME Looks like this could go to $m->approve
51 my $patron = Koha::Patrons->find( $borrowernumber );
52 $patron->gonenoaddress(undef)->store;
57 elsif ( $action eq 'deny' ) {
58 my $m = Koha::Patron::Modifications->find( { borrowernumber => $borrowernumber } );
61 # elsif ( $action eq 'ignore' ) { }
65 print $query->redirect("/cgi-bin/koha/members/members-update.pl");