[Netpass-devel] NetPass/www/htdocs/Admin/Scan index.mhtml,1.6,1.7
Brought to you by:
jeffmurphy
From: jeff m. <jef...@us...> - 2005-08-16 14:04:48
|
Update of /cvsroot/netpass/NetPass/www/htdocs/Admin/Scan In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25260/www/htdocs/Admin/Scan Modified Files: index.mhtml Log Message: bug fixes Index: index.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/Scan/index.mhtml,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- index.mhtml 3 Aug 2005 02:44:40 -0000 1.6 +++ index.mhtml 16 Aug 2005 14:04:34 -0000 1.7 @@ -30,9 +30,10 @@ my @reqGroups = ('Admin', 'ScanAdmin', 'Reports'); my ($isReadOnly, $aclROGroups) = $m->comp('/Admin/MemberOf', 'acl' => 'Reports'); -my $readOnly = $isReadOnly ? "disabled" : ""; my ($isAdmin, $aclRWGroups) = $m->comp('/Admin/MemberOf', 'acl' => [ @reqGroups ]); +my $readOnly = (!$isAdmin && $isReadOnly) ? "disabled" : ""; + if (! $isAdmin ) { print $q->p({-class=>'error'}, "Sorry, you don't have access to this form."); |