Changeset 576 for trunk/cgi-bin/main.cgi

Timestamp:

12/21/12 17:49:08 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Work in progress, see #5:
Update templates and calling code for allocation update to pass
around rdepth as needed, and to set some breadcrumbs-lite to
make it easier to get back where you were

File:

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

trunk/cgi-bin/main.cgi

@@ -621 +621 @@
 
   # snag block info from db
-  my $blockinfo = getBlockData($ip_dbh, $webvar{block});
+  my $blockinfo = getBlockData($ip_dbh, $webvar{block}, $webvar{rdepth});
 
   # Clean up extra whitespace on alloc type.  Mainly a legacy-data cleanup.
@@ -627 +627 @@
 
   $page->param(block => $webvar{block});
+  $page->param(rdepth   => $blockinfo->{rdepth});
 
   $page->param(custid   => $blockinfo->{custid});
@@ -715 +716 @@
         type            => $webvar{alloctype},
         swip            => $webvar{swip},
+        rdepth          => $webvar{rdepth},
         );
 
@@ -745 +747 @@
 
   # Link back to browse-routed or list-pool page on "Update complete" page.
-  my $cblock;
+  my $cblock = getBlockData($ip_dbh, $webvar{block}, $webvar{rdepth});
   if (my $pooltype = ($webvar{alloctype} =~ /^(.)i$/) ) {
     $page->param(backpool => 1);
-    $cblock = ipParent($ip_dbh, $webvar{block});
+    $page->param(backblock => $cblock->{pool});
   } else {
-    $cblock = blockParent($ip_dbh, $webvar{block});
-  }
-  $page->param(backblock => $cblock->{cidr});
+    $page->param(backblock => $cblock->{parent});
+  }
+  $page->param(backdepth => ($webvar{rdepth}));
 
   # Do some HTML fiddling here instead of using ESCAPE=HTML in the template,