Lines 89-98
if ($input->param('newflags')) {
Link Here
|
89 |
my $dbh=C4::Context->dbh(); |
89 |
my $dbh=C4::Context->dbh(); |
90 |
my $all_perms = get_all_subpermissions(); |
90 |
my $all_perms = get_all_subpermissions(); |
91 |
my $user_perms = get_user_subpermissions($bor->{'userid'}); |
91 |
my $user_perms = get_user_subpermissions($bor->{'userid'}); |
92 |
my $sth=$dbh->prepare("SELECT bit,flag,flagdesc FROM userflags ORDER BY bit"); |
92 |
my $sth=$dbh->prepare("SELECT bit, flag FROM userflags ORDER BY bit"); |
93 |
$sth->execute; |
93 |
$sth->execute; |
94 |
my @loop; |
94 |
my @loop; |
95 |
while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) { |
95 |
while (my ($bit, $flag) = $sth->fetchrow) { |
96 |
my $checked=''; |
96 |
my $checked=''; |
97 |
if ($accessflags->{$flag}) { |
97 |
if ($accessflags->{$flag}) { |
98 |
$checked= 1; |
98 |
$checked= 1; |
Lines 101-107
if ($input->param('newflags')) {
Link Here
|
101 |
my %row = ( bit => $bit, |
101 |
my %row = ( bit => $bit, |
102 |
flag => $flag, |
102 |
flag => $flag, |
103 |
checked => $checked, |
103 |
checked => $checked, |
104 |
flagdesc => $flagdesc ); |
104 |
); |
105 |
|
105 |
|
106 |
my @sub_perm_loop = (); |
106 |
my @sub_perm_loop = (); |
107 |
my $expand_parent = 0; |
107 |
my $expand_parent = 0; |
Lines 113-119
if ($input->param('newflags')) {
Link Here
|
113 |
id => "${flag}_$sub_perm", |
113 |
id => "${flag}_$sub_perm", |
114 |
perm => "$flag:$sub_perm", |
114 |
perm => "$flag:$sub_perm", |
115 |
code => $sub_perm, |
115 |
code => $sub_perm, |
116 |
description => $all_perms->{$flag}->{$sub_perm}, |
|
|
117 |
checked => 1 |
116 |
checked => 1 |
118 |
}; |
117 |
}; |
119 |
} |
118 |
} |
Lines 127-133
if ($input->param('newflags')) {
Link Here
|
127 |
id => "${flag}_$sub_perm", |
126 |
id => "${flag}_$sub_perm", |
128 |
perm => "$flag:$sub_perm", |
127 |
perm => "$flag:$sub_perm", |
129 |
code => $sub_perm, |
128 |
code => $sub_perm, |
130 |
description => $all_perms->{$flag}->{$sub_perm}, |
|
|
131 |
checked => 1 |
129 |
checked => 1 |
132 |
}; |
130 |
}; |
133 |
} |
131 |
} |
Lines 139-145
if ($input->param('newflags')) {
Link Here
|
139 |
id => "${flag}_$sub_perm", |
137 |
id => "${flag}_$sub_perm", |
140 |
perm => "$flag:$sub_perm", |
138 |
perm => "$flag:$sub_perm", |
141 |
code => $sub_perm, |
139 |
code => $sub_perm, |
142 |
description => $all_perms->{$flag}->{$sub_perm}, |
|
|
143 |
checked => 0 |
140 |
checked => 0 |
144 |
} unless exists $user_perms->{$flag} and exists $user_perms->{$flag}->{$sub_perm}; |
141 |
} unless exists $user_perms->{$flag} and exists $user_perms->{$flag}->{$sub_perm}; |
145 |
} |
142 |
} |
146 |
- |
|
|