', Dumper($ao), '
' if $DEBUG;
if ( exists $ao->{Ipblock} ){
    foreach my $id ( keys %{$ao->{Ipblock}} ){
	if ( my $ip = Ipblock->retrieve($id) ){
	    if ( $ip->status->name eq 'Subnet' ){
		$ipblocks{$id} = $ip;
	    }elsif ( $ip->status->name eq 'Container' ){
		foreach my $ch ( @{ $ip->get_descendants(no_addresses=>1) } ){
		    if ( $ch->status->name eq 'Subnet' ){
			$ipblocks{$ch->id} = $ch;
		    }
		}
	    }
	}else{
	    delete $ao->{Ipblock}->{$id};
	}
    }
}
if ( exists $ao->{Zone} ){
    foreach my $id ( keys %{$ao->{Zone}} ){
	if ( my $zone = Zone->retrieve($id) ){
	    push @zones, $zone;
	}else{
	    delete $ao->{Zone}->{$id};
	}
    }
}

my %ipb_actions = (
    'show_block'     => 'Show Subnet',
    'browse_records' => 'Browse Records',
    'add_host'       => 'Add New Host',
    );






 

  

    

        
Search (regular expression)
        

        Name/IP/MAC:
         
        
    

% if ( %ipblocks ){
    

        
IP Block Actions
        

        
            - Select Block -
%       foreach my $o ( sort { $a->address_numeric <=> $b->address_numeric } values %ipblocks ){
%           if ( $ipblock && $ipblock eq $o->id ){
                <% $o->get_label %>
%           }else{
                <% $o->get_label %>
%	    }
%       }
        

        
            - Select Action -
%	    foreach my $action ( sort keys %ipb_actions ){
%		if ( $ipblock_action && $ipblock_action eq $action  ){
		    <% $ipb_actions{$action} %>
%		}else{
		    <% $ipb_actions{$action} %>
%	        }
%	    }
         
	
        
	
    
% }


% if ( @zones ){
    

        
My Zones
        

        
            - Select Zone -
%       foreach my $o ( sort { $a->name cmp $b->name } @zones ){
            <% $o->get_label %>
%       }
        
        
    
% }