|
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 |
- |
|
|