|
Lines 109-115
if ( $op eq 'cud-newflags' ) {
Link Here
|
| 109 |
} |
109 |
} |
| 110 |
|
110 |
|
| 111 |
my $permissions_after = $patron->get_from_storage->permissions(); |
111 |
my $permissions_after = $patron->get_from_storage->permissions(); |
| 112 |
logaction( 'MEMBERS', 'MODIFY', $member, $permissions_after, undef, $permissions_before ); |
112 |
logaction( |
|
|
113 |
'MEMBERS', 'MODIFY', $member, { permissions => $permissions_after }, undef, |
| 114 |
{ permissions => $permissions_before } |
| 115 |
); |
| 113 |
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member"); |
116 |
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member"); |
| 114 |
} else { |
117 |
} else { |
| 115 |
|
118 |
|
| 116 |
- |
|
|