Changeset 765 for trunk/cgi-bin/main.cgi
- Timestamp:
- 07/30/15 17:11:59 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r760 r765 1096 1096 $webvar{privdata} =~ s/\n/<br>\n/; 1097 1097 1098 $page->param(cidr => $binfo->{block}); 1098 if ($webvar{expandme}) { 1099 # this is fugly but still faster than hitting the DB again with getBlockData() 1100 my $tmp = new NetAddr::IP $binfo->{block}; 1101 my $fb = new NetAddr::IP $binfo->{reserve}; 1102 my @newblock = $tmp->compact($fb); 1103 $page->param(cidr => $newblock[0]); 1104 } else { 1105 $page->param(cidr => $binfo->{block}); 1106 } 1099 1107 $page->param(rdns => $webvar{rdns}); 1100 1108 $page->param(city => $webvar{city}); … … 1246 1254 $page->param(vis_clearall => $merge_display{clearall}); 1247 1255 1248 # Tree navigation1249 my $crumbs = getBreadCrumbs($ip_dbh, $binfo->{parent_id});1250 my @rcrumbs = reverse (@$crumbs);1251 $utilbar->param(breadcrumb => \@rcrumbs);1252 1256 } # prepMerge() 1253 1257 … … 1356 1360 $blockdata = getBlockData($ip_dbh, $webvar{block}, $webvar{basetype}); 1357 1361 1362 # Tree navigation 1363 my $crumbs = getBreadCrumbs($ip_dbh, $blockdata->{parent_id}); 1364 my @rcrumbs = reverse (@$crumbs); 1365 $utilbar->param(breadcrumb => \@rcrumbs); 1366 1358 1367 if ($blockdata->{parent_id} == 0) { # $webvar{alloctype} eq 'mm' 1359 1368 $blockdata->{city} = "N/A"; … … 1410 1419 my $blockinfo = getBlockData($ip_dbh, $webvar{block}, $webvar{basetype}); 1411 1420 my $pinfo = getBlockData($ip_dbh, $blockinfo->{parent_id}, 'b'); 1421 1422 # Tree navigation 1423 my $crumbs = getBreadCrumbs($ip_dbh, $blockinfo->{parent_id}); 1424 my @rcrumbs = reverse (@$crumbs); 1425 $utilbar->param(breadcrumb => \@rcrumbs); 1412 1426 1413 1427 my ($code,$msg) = deleteBlock($ip_dbh, $webvar{block}, $webvar{basetype}, $webvar{delforward}, $authuser);
Note:
See TracChangeset
for help on using the changeset viewer.