#!/usr/bin/perl
# por_palabra
# Octavio Martinez de la Vega
# Buscando por palabra clave en titulo u resumen.
# 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","Por Palabra\n","\n","\n";
print '
',"\n";
print h2("REDBIO México 2010
Búsqueda por Palabra(s) Clave
");
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("Clave: $autor");
print h3("Se presentan los trabajos en \"presentaciones libres\" que contienen la palabra o frase \'$autor\' en el título o resumen.
(puede ver el resumen del trabajo haciendo \'click\' con el ratón en la liga del folio del trabajo)
");
$orden = "select folio, tipo_a, titulo from trabajos where titulo like \'%$autor%\' or resumen like \'%$autor%\' and aceptado='1' order by folio;";
$sth = $dbh->prepare ($orden); $sth->execute ();
while ( @row = $sth->fetchrow_array ) {
print "$row[0] ($row[1]) - $row[2]
\n";
}
# PENDIENTE
#print "En trabajos corregidos:
";
#$orden = "select 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 una palabra o frase para buscar en los trabajos libres
",
"Palabra o frase: ", textfield("autor"), "
");
print p(submit("ENVIAR"), reset("BORRAR"));
print end_form(), hr();
print "Regresar al Indice";
}
print end_html;