Changeset 651 for trunk/cgi-bin

Timestamp:

12/17/14 17:41:22 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Tweak delete result page to include block type in case of confusing
allocation structures

File:

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

trunk/cgi-bin/main.cgi

@@ -881 +881 @@
 
   $page->param(block => $blockinfo->{block});
+  $page->param(bdisp => $q->escapeHTML($disp_alloctypes{$blockinfo->{type}}));
   $page->param(delparent_id => $blockinfo->{parent_id});# if $webvar{rdepth};
-  $page->param(delparent => $pinfo->{block});
+  if ($pinfo) {
+    $page->param(delparent => $pinfo->{block});
+    $page->param(pdisp => $q->escapeHTML($disp_alloctypes{$pinfo->{type}}));
+  }
   $page->param(returnpool => ($webvar{basetype} eq 'i') );
   if ($code =~ /^WARN(POOL|MERGE)/) {