|
Lines 10-15
use CGI qw ( -utf8 );
Link Here
|
| 10 |
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); |
10 |
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); |
| 11 |
use C4::Auth qw( get_template_and_user get_all_subpermissions get_user_subpermissions ); |
11 |
use C4::Auth qw( get_template_and_user get_all_subpermissions get_user_subpermissions ); |
| 12 |
use C4::Context; |
12 |
use C4::Context; |
|
|
13 |
use C4::Log qw( logaction ); |
| 14 |
use JSON qw( to_json ); |
| 13 |
|
15 |
|
| 14 |
use Koha::Patron::Categories; |
16 |
use Koha::Patron::Categories; |
| 15 |
use Koha::Patrons; |
17 |
use Koha::Patrons; |
|
Lines 89-94
if ( $op eq 'cud-newflags' ) {
Link Here
|
| 89 |
} |
91 |
} |
| 90 |
$sth->execute( $module_flags, $member ); |
92 |
$sth->execute( $module_flags, $member ); |
| 91 |
|
93 |
|
|
|
94 |
# Actionlogs |
| 95 |
if ( C4::Context->preference("BorrowersLog") ) { |
| 96 |
my $info; |
| 97 |
$info->{'flags'} = { |
| 98 |
before => $old_flags, |
| 99 |
after => $module_flags |
| 100 |
}; |
| 101 |
logaction( |
| 102 |
"MEMBERS", |
| 103 |
"MODIFY", |
| 104 |
$member, |
| 105 |
to_json( |
| 106 |
$info, |
| 107 |
{ utf8 => 1, pretty => 1, canonical => 1 } |
| 108 |
) |
| 109 |
); |
| 110 |
} |
| 111 |
|
| 92 |
# deal with subpermissions |
112 |
# deal with subpermissions |
| 93 |
$sth = $dbh->prepare("DELETE FROM user_permissions WHERE borrowernumber = ?"); |
113 |
$sth = $dbh->prepare("DELETE FROM user_permissions WHERE borrowernumber = ?"); |
| 94 |
$sth->execute($member); |
114 |
$sth->execute($member); |
| 95 |
- |
|
|