[Netpass-devel] NetPass/www/htdocs/Admin/Scan ids.mhtml,1.11,1.12

[jeff m. <jef...@us...>]

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