Lines 49-54
foreach my $param (@params) {
Link Here
|
49 |
|
49 |
|
50 |
if ( $action eq 'approve' ) { |
50 |
if ( $action eq 'approve' ) { |
51 |
my $m = Koha::Patron::Modifications->find( { borrowernumber => $borrowernumber } ); |
51 |
my $m = Koha::Patron::Modifications->find( { borrowernumber => $borrowernumber } ); |
|
|
52 |
|
53 |
if ($query->param("unset_gna_$borrowernumber")) { |
54 |
# Unset gone no address |
55 |
ModMember( |
56 |
borrowernumber => $borrowernumber, |
57 |
gonenoaddress => undef |
58 |
); |
59 |
} |
60 |
|
52 |
$m->approve() if $m; |
61 |
$m->approve() if $m; |
53 |
} |
62 |
} |
54 |
elsif ( $action eq 'deny' ) { |
63 |
elsif ( $action eq 'deny' ) { |
55 |
- |
|
|