Changeset 596 for branches/stable/cgi-bin
- Timestamp:
- 05/15/13 18:03:32 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/main.cgi
r595 r596 323 323 if ($webvar{fbtype} eq 'i') { 324 324 my $ipinfo = getBlockData($ip_dbh, $webvar{block}, 'i'); 325 my $pinfo = getBlockData($ip_dbh, $webvar{parent}); 325 ##fixme: a reversion! kill it! 326 my ($iptype,$pool) = $ip_dbh->selectrow_array("SELECT type,pool FROM poolips WHERE ip = ?", undef, ($block)); 326 327 $page->param( 327 328 fbip => 1, … … 329 330 fbdisptype => $list_alloctypes{$ipinfo->{type}}, 330 331 type => $ipinfo->{type}, 331 allocfrom => $p info->{block},332 allocfrom => $pool, 332 333 ); 333 334 } elsif ($webvar{fbtype} eq 'n') {
Note:
See TracChangeset
for help on using the changeset viewer.