#!/usr/bin/perl
# temas.cgi
# Octavio Martinez de la Vega
# Presenta temas 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","Índice Temático\n","\n","\n";
print '
',"\n";
print h2("REDBIO México 2010
Índice Temático de Presentaciones Libres
");
if (param()) { # Ya se tienen datos
my $tema = param("tema"); # AQUI VOY
# Necesito entrar a la base de datos y poner TODOS los folios que
# correspondan al tema con sus respectivos titulos y ligas para
# acceder al resumen
$dbh = DBI->connect ("DBI:mysql:host=localhost;database=redbio","omartine", "password",
{PrintError => 1, RaiseError => 1});
print h2("Tema: $tema");
print h3("(puede ver el resumen del trabajo haciendo \'click\' con el ratón en la liga del título)
");
$orden = "select titulo, folio, tipo_a from trabajos where tema like \'$tema%\' and aceptado='1' order by tipo_a desc, titulo;";
$sth = $dbh->prepare ($orden); $sth->execute ();
while ( @row = $sth->fetchrow_array ) {
print "$row[0] ($row[2]) Folio: $row[1]:
\n";
}
print h2("Regresar al Indice");
} else {
print start_form();
print p("Tema: ", popup_menu('tema',[
'Alimentos Funcionales y Biofortificaci—n',
'Biocombustibles',
'Biodiversidad',
'Bionegocios',
'Bioseguridad',
'Biotecnolog’a Acu’cola',
'Biotecnolog’a Forestal',
'Biotecnolog’a Pecuaria',
'Control Biol—gico',
'Educaci—n en Biotecnolog’a',
'EstrŽs Abi—tico',
'EstrŽs Bi—tico',
'Gen—mica',
'Marcadores Moleculares',
'Mejoramiento GenŽtico Animal',
'Mejoramiento GenŽtico Vegetal',
'Metabol—mica',
'Micropropagaci—n y Cultivo De Tejidos',
'Otro',
'Propiedad Intelectual y Patentes',
'Transcript—mica',
'Transformaci—n GenŽtica de Plantas',
]), "
");
print p(submit("ENVIAR"), reset("BORRAR"));
print end_form(), hr();
print h2("Regresar al Indice");
}
print end_html;