print "<hr size=1 color=blue>";
print "<b>\U$directorio</b>";
print "<hr size=1 color=blue>";
print "<table border=0 cellpadding=10 cellspacing=0>";
print "<tr>";
open (EMPRESAS,"$archivo_empresas") || &Error ($!, "$archivo_empresas");
while($renglon=<EMPRESAS>){
chop $renglon;
@matriz=split("\t",$renglon);
$x=0;
foreach $item (@campos){
$$item=$matriz[$x];
$x++;
}
if ($modoemp eq $directorio && $status ne ""){
print "<td align=center>";
print "<a href=\"../$codigo\">";
print "<img src=\"../img/item.gif\" border=0><br>";
print "\u$codigo";
print "</a>";
print "</td>";
}
}
print "</tr></table>";
close EMPRESAS;
}
