Changeset 855 for trunk/cgi-bin/main.cgi

Timestamp:

04/14/16 16:20:34 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Shuffle propagation of ACL-related table column on listpool page so that
all the appropriate page components actually get displayed or not as needed.

File:

• trunk/cgi-bin/main.cgi (modified) (1 diff)

trunk/cgi-bin/main.cgi

@@ -471 +471 @@
 # probably have to add an "edit IP allocation" link here somewhere.
 
+  # this will cascade into the IP list below
+  $page->param(maydel => $IPDBacl{$authuser} =~ /d/);
+
   my $plist = listPool($ip_dbh, $webvar{pool});
-  # technically slightly more efficient to check the ACL in an if () once outside the foreach
-  foreach (@{$plist}) {
-    $$_{maydel} = $IPDBacl{$authuser} =~ /d/;
-  }
   $page->param(poolips => $plist);
 } # end showPool