diff -ru e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm work+patched/e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
--- e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2006-06-22 11:01:11.000000000 -0400
+++ work+patched/e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2006-06-22 11:05:18.000000000 -0400
@@ -135,20 +135,20 @@
return undef;
}
- print $q->start_table ({-CLASS => "sme-noborders"}),"\n";
- print $q->start_Tr,"\n";
- print $q->start_table ({-CLASS => "sme-border"}),"\n";
-
- print $self->localise('ADD_HOSTNAME');
+ print $q->start_Tr,"
",$q->start_table ({-CLASS => "sme-noborders"}),"\n";
+ print $q->start_Tr," | ",$self->localise('ADD_HOSTNAME')," | ",$q->end_Tr,"\n";
my $hosts_db = esmith::HostsDB->open();
foreach my $d (@{$self->domains_list()})
{
+ print $q->start_Tr,"","\n";
print $q->h3($self->localise('CURRENT_HOSTNAMES_FOR_DOMAIN', {domain => $d})),"\n";
+ print " | ",$q->end_Tr,"\n";
if (my @hosts = $hosts_db->get_hosts_by_domain($d))
{
+ print $q->start_Tr,"\n",$q->start_table ({-CLASS => "sme-border"}),"\n";
print $q->Tr (esmith::cgi::genSmallCell($q, $self->localise('HOSTNAME'),"header"),
esmith::cgi::genSmallCell($q, $self->localise('LOCATION'),"header"),
esmith::cgi::genSmallCell($q, $self->localise('IP_ADDRESS'),"header"),
@@ -156,12 +156,16 @@
esmith::cgi::genSmallCell($q, $self->localise('ACTION'),"header",2));
$self->print_host_row($_) foreach @hosts;
print $q->end_table, "\n";
+ print " | ",$q->end_Tr,"\n";
}
else
{
+ print $q->start_Tr,"\n";
print $self->localise('NO_HOSTS_FOR_THIS_DOMAIN');
+ print " | ",$q->end_Tr,"\n";
}
}
+ print $q->end_table,"\n";
return undef;
}