Update of /cvsroot/netpass/NetPass/www/htdocs/Admin/Scan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12306/www/htdocs/Admin/Scan
Modified Files:
ids.mhtml
Log Message:
fixed perm bugs on various admin forms, bug#1426340 bug#1426335
Index: ids.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/Scan/ids.mhtml,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- ids.mhtml 10 Aug 2005 19:52:16 -0000 1.11
+++ ids.mhtml 7 Feb 2006 19:54:33 -0000 1.12
@@ -103,13 +103,18 @@
my @rwGroups = ('Admin', 'ScanAdmin');
my @roGroups = ('Reports');
my $readOnly = "disabled";
-my @aclGroups = ();
-if (@aclGroups = $m->comp('/Admin/MemberOf', 'acl' => [ @rwGroups ])) {
+my $isRO = ($m->comp('/Admin/MemberOf', 'acl' => [ @roGroups ]))[0];
+my $isRW = ($m->comp('/Admin/MemberOf', 'acl' => [ @rwGroups ]))[0];
+
+if ($isRW) {
$readOnly = "";
-} elsif (@aclGroups = $m->comp('/Admin/MemberOf', 'acl' => [ @roGroups ])) {
+ $isRO = 0;
+}
+elsif ($isRO) {
$readOnly = "disabled";
-} else {
+}
+else {
print $q->p({-class=>'error'},
"Sorry, permission denied.<BR>You must be in one of these groups: ",
join(',', @rwGroups, @roGroups));
|
