#!/usr/bin/perl
# por_autor.cgi
# Octavio Martinez de la Vega
# Presenta autores y folios de las presentaciones libres y da las ligas a esos archivos.
use CGI qw(:standard);
use DBI;
print "Content-Type: text/html\n\n";
print '';
print "\n\n","Autores\n","\n","\n";
print '
',"\n";
print h2("REDBIO México 2010
Índice Por Autores
");
if (param()) { # Ya se tienen datos
$autor = param("autor");
$dbh = DBI->connect ("DBI:mysql:host=localhost;database=redbio","omartine", "password",
{PrintError => 1, RaiseError => 1});
print h2("Autor: $autor");
print h3("Se presentan TODOS los autores que concuerdan con su criterio de selección
(puede ver el resumen del trabajo haciendo \'click\' con el ratón en la liga del folio del trabajo)
");
$orden = "select autori, folio from autorind where autori like \'%$autor%\' order by autori;";
$sth = $dbh->prepare ($orden); $sth->execute ();
while ( @row = $sth->fetchrow_array ) {
print "$row[0] Folio: $row[1]
\n";
}
print "Autores de trabajos corregidos:
";
$orden = "select autori, folio from autorind_cor where autori like \'%$autor%\' order by autori;";
$sth = $dbh->prepare ($orden); $sth->execute ();
while ( @row = $sth->fetchrow_array ) {
print "$row[0] Folio: $row[1]
\n";
}
print "Regresar al Indice";
} else {
print start_form();
print p("Puede introducir todo o parte del nombre del autor
",
"Autor: ", textfield("autor"), "
");
print p(submit("ENVIAR"), reset("BORRAR"));
print end_form(), hr();
print "Regresar al Indice";
}
print end_html;