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

Timestamp:

10/08/14 17:17:38 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit 3/mumble for work done intermittently over the past ~year.
See #5, comment 25:

• Update suballocation list/summary; IPDB::listSubs(), main.cgi:showSubs(), and page template

File:

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

trunk/cgi-bin/main.cgi

@@ -244 +244 @@
 # Display blocks immediately within a given parent
 sub showSubs {
-  $page->param(block => $webvar{block});
+  my $pinfo = getBlockData($ip_dbh, $webvar{parent});
+
+  $page->param(del_id => $webvar{parent});
+  $page->param(block => $pinfo->{block});
   $page->param(mayadd => ($IPDBacl{$authuser} =~ /a/));
   $page->param(maydel => ($IPDBacl{$authuser} =~ /d/));
 
-  my $sublist = listSubs($ip_dbh, block => $webvar{block}, rdepth => $webvar{rdepth});
-  $page->param(deldepth => $webvar{rdepth} - 1);
-  $page->param(rdepth => $webvar{rdepth});
-  $page->param(subdepth => $webvar{rdepth} + 1);
+  my $sublist = listSubs($ip_dbh, parent => $webvar{parent});
   $page->param(sublist => $sublist);
 
-  my $flist = listFree($ip_dbh, master => $webvar{block}, rdepth => $webvar{rdepth});
+  my $flist = listFree($ip_dbh, parent => $webvar{parent});
   $page->param(freelist => $flist);
 } # showSubs