% my $btn = l("hos_ADD_HOSTNAME"); %= form_for "/hostentries" => (method => "POST") => begin

%= submit_button "$btn", class => "action"

%= hidden_field "trt" => $hos_datas->{trt} % end % my %dom_hos = %{$dom_hosts}; % foreach my $domain ( sort ( keys %dom_hos ) ) {

%= $c->l("hos_CURRENT_HOSTNAMES_FOR_LOCAL_DOMAIN", $domain);

% foreach (@{$dom_hos{$domain}{"HOSTS"}}) { %= t td => (class => "sme-border") => $_->{"HostName"}; %= t td => (class => "sme-border") => $_->{"HostType"}; %= t td => (class => "sme-border") => $_->{"IP"}; %= t td => (class => "sme-border") => $_->{"MACAddress"}; %= t td => (class => "sme-border") => $_->{"Comment"}; % }

%=l "Hostname"	%=l "Location"	%=l "IP_ADDRESS_OR_FQDN"	%=l "hos_ETHERNET_ADDRESS"	%=l "COMMENT"	%=l "ACTION"
%my ($actionModify, $actionRemove) = " "; %my $static = $_->{"static"} || "no"; %if ($static ne "yes") { %my $modify_text = l("MODIFY"); # Localized text %my $csrf_token = "TOKEN"; # CSRF token for security %my $hostentries_name = $_->{"HostName"}; # hostentries name extracted from the data structure %$actionModify = qq{ % % % $modify_text % % %}; %my $remove_text = l("REMOVE"); # Localized text %$csrf_token = "TOKEN"; # CSRF token for security %#my $hostentries_name = $_->{"HostName"}; # hostentries name extracted from the data structure %$actionRemove = qq{ % % % $remove_text % % %}; %} <%= $c->render_to_string(inline => $actionModify) %> <%= $c->render_to_string(inline => $actionRemove) %>

% }