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