Changeset 654 for trunk/cgi-bin

Timestamp:

12/18/14 13:57:09 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Polish return-a-(legacy-)block-to-an-IP-pool return warning and links
for clarity

File:

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

trunk/cgi-bin/main.cgi

@@ -890 +890 @@
   if ($code =~ /^WARN(POOL|MERGE)/) {
     my ($pid,$pcidr) = split /,/, $msg;
+    my $real_pinfo = getBlockData($ip_dbh, $pid, 'b');
     $page->param(parent_id => $pid);
     $page->param(parent => $pcidr);
+    $page->param(real_disp => $q->escapeHTML($disp_alloctypes{$real_pinfo->{type}}));
     $page->param(mergeip => $code eq 'WARNPOOL');
   }