Changeset 766 for trunk/cgi-bin

Timestamp:

08/24/15 18:10:42 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Fixes for "Allocation complete" screen:

• Refine and tune order and source of information for breadcrumbs correctness on guided allocation of a static IP
• Remove a little stale code lingering from "rdepth"
• Tweak template parameters and CSS/layout for error reporting

File:

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

trunk/cgi-bin/main.cgi

@@ -680 +680 @@
   }
 
-  # split up some linked data for static IPs via guided allocation.  needed for breadcrumbs lite.
-  ($webvar{alloc_from},$webvar{rdepth}) = split /,/, $webvar{alloc_from} if $webvar{alloc_from} =~ /,/;
-
   # $code is "success" vs "failure", $msg contains OK for a
   # successful netblock allocation, the IP allocated for static
@@ -714 +711 @@
         );
 
+  my $pinfo = getBlockData($ip_dbh, $webvar{parent});
+
+  # clean up a minor mess with guided allocation of static IPs
+  if ($webvar{alloctype} =~ /^.i$/) {
+    $insert_args{alloc_from} = $pinfo->{block};
+  }
+
   my ($code,$msg) = allocateBlock($ip_dbh, %insert_args, iprev => \%iprev);
 
   if ($code eq 'OK') {
+    # breadcrumbs lite!  provide at least a link to the parent of the block we just allocated.
+    $page->param(parentid => $webvar{parent});
+    $page->param(parentblock => $pinfo->{block});
+
     if ($webvar{alloctype} =~ /^.i$/) {
       $msg =~ s|/32||;
       $page->param(staticip => $msg);
       $page->param(custid => $webvar{custid});
-      $page->param(parent => $webvar{parent}, pool => $webvar{alloc_from});
       $page->param(billinguser => $webvar{billinguser});
       mailNotify($ip_dbh, "a$webvar{alloctype}", "ADDED: $disp_alloctypes{$webvar{alloctype}} allocation",
@@ -732 +739 @@
       $page->param(custid => $webvar{custid});
 
-      # breadcrumbs lite!  provide at least a link to the parent of the block we just allocated.
-      my $binfo = getBlockData($ip_dbh, $webvar{parent});
-      $page->param(parentid => $webvar{parent});
-      $page->param(parentblock => $binfo->{block});
-
       # Full breadcrumbs
       my $crumbs = getBreadCrumbs($ip_dbh, $webvar{parent});
@@ -757 +759 @@
     syslog "err", "Allocation of '$webvar{fullcidr}' to '$webvar{custid}' as ".
         "'$webvar{alloctype}' by $authuser failed: '$msg'";
-    $page->param(err => "Allocation of $webvar{fullcidr} as '$disp_alloctypes{$webvar{alloctype}}'".
-        " failed:<br>\n$msg\n");
+    $page->param(err => "Allocation of $webvar{fullcidr} as '$disp_alloctypes{$webvar{alloctype}}' failed:");
+    $page->param(errmsg => $msg);
   }
 
@@ -1429 +1431 @@
   $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_id => $blockinfo->{parent_id});
   if ($pinfo) {
     $page->param(delparent => $pinfo->{block});