Changeset 916 for trunk/cgi-bin

Timestamp:

05/01/18 13:29:29 (7 years ago)

Author:

Kris Deugau

Message:

/trunk

Continue adding a generalized block-notice system. See #17 and #23, sort of.
Add a retrieval sub for block notices to IPDB.pm
Wrap the new module sub in a local sub in main.cgi, since the primary

web-UI actions will be called from a number of places

Update the block assignment templates and call the new local sub for

block assignment

File:

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

trunk/cgi-bin/main.cgi

@@ -513 +513 @@
 
     my $pinfo = getBlockData($ip_dbh, $webvar{parent});
+
+    # retrieve any notices
+    blocknotices($webvar{parent});
 
     my @cities;
@@ -770 +773 @@
   $page->param(dnslocal => 1) unless ($pinfo->{revpartial} || $pinfo->{revavail});
 
+  # retrieve any notices
+  blocknotices($webvar{parent});
+
   # reserve for expansion
   $page->param(reserve => $webvar{reserve});
@@ -1763 +1769 @@
 
 } # finalDelete
+
+# Retrive and lightly preprocess any block notices.
+sub blocknotices {
+  my $blockid = shift;
+  # retrieve any notices
+  my $nlist = getBlockNotices($ip_dbh, $blockid);
+  my @notices;
+  foreach (@$nlist) {
+    push @notices, $_->{notice} if $_->{notice};
+  }
+  my $blockmsg = join("<br>\n", @notices);
+  $page->param(blockmsg => $blockmsg);
+}