View | Details | Raw Unified | Return to bug 20956
Collapse All | Expand All

(-)a/members/member-flags.pl (-1 / +20 lines)
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
- 

Return to bug 20956