Update of /cvsroot/netpass/NetPass/www/htdocs/Admin/cmd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15191/www/htdocs/Admin/cmd
Modified Files:
setresult.mhtml
Log Message:
bug fixes, see CHANGES file, see message on netpass-users before deploying these changes
Index: setresult.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/cmd/setresult.mhtml,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- setresult.mhtml 4 May 2005 20:22:17 -0000 1.2
+++ setresult.mhtml 31 Aug 2005 20:09:17 -0000 1.3
@@ -25,7 +25,9 @@
my $ng = $np->cfg->getNetgroup(-network => $nw);
my ($isOK, $groups) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin', 'QuarAdmin' ]);
my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');
- if ($isRoot || ($isOK && (grep (/^$nw$/, @$groups) || grep (/^$ng$/, @$groups)))) {
+ if ($isRoot || ($isOK && (grep (/^default$/, @$groups) ||
+ grep (/^$nw$/, @$groups) ||
+ grep (/^$ng$/, @$groups)))) {
$rv = $np->db->updateResult(-mac => $ma, -rowid => $rid,
-status => $st);
if ($rv) {
|
