Changeset 917 for trunk/cgi-bin

Timestamp:

05/01/18 15:36:23 (7 years ago)

Author:

Kris Deugau

Message:

/trunk

Continue adding a generalized block-notice system. See #17 and #23, sort of.

• showsubs browse pages
• IP pool list page
• Netblock editing page

File:

• trunk/cgi-bin/main.cgi (modified) (3 diffs)

trunk/cgi-bin/main.cgi

@@ -432 +432 @@
   $page->param(blockpctfree => sprintf("%0.1f", $pinfo->{nfree}/2**(32-$pinfo->{masklen}) * 100 ) );
 
+  # retrieve any notices
+  blocknotices($webvar{parent});
+
 ##fixme:  do we add a wrapper to not show the edit link for master blocks?
 #$page->param(editme => 1) unless $pinfo->{type} ne 'mm';
@@ -482 +485 @@
   my $plist = listPool($ip_dbh, $webvar{pool}, 1);
   $page->param(poolips => $plist);
+
+  # retrieve any notices
+  blocknotices($webvar{pool});
 } # end showPool
 
@@ -1243 +1249 @@
   $page->param(privdata => $blockinfo->{privdata});
 
+  # retrieve any notices
+  blocknotices($webvar{id});
+
   # ACL trickery - these two template booleans control the presence of all form/input tags
   $page->param(maychange => $IPDBacl{$authuser} =~ /c/);