#!/usr/bin/perl
# por_folio.cgi
# Octavio Martinez de la Vega
# Busca por folio.
use CGI qw(:standard);
print "Content-Type: text/html\n\n";
print '';
print "\n\n","Genera Resumen\n","\n","\n";
print '
',"\n";
print h2("REDBIO México 2010
Búsqueda de resumen por folio
");
if (param()) { # Ya se tienen datos
my $folio = param("folio");
print h1("Liga al trabajo folio $folio");
print "Regresar al Indice";
} else {
print start_form();
print p("Folio? ", textfield("folio"), "
");
print p(submit("ENVIAR"), reset("BORRAR"));
print end_form(), hr();
print "Regresar al Indice";
}
print end_html;