connect('DBI:mysql:radel:localhost', 'wwwrun','wwwrun',
{ PrintError => 0}) || die $DBI::errstr;
!>//
Guía de Navegación - Novedades
GUIA DE NAVEGACIÓN -
NOVEDADES
NOVEDADES: ÚLTIMAS DIRECCIONES DE INTERÉS
AÑADIDAS A LA GUÍA DE NAVEGACIÓN
| Esta Guía
pretende acumular sólo aquellas direcciones de mayor utilidad para sus usuarios.
Ello sólo puede conseguirse con su colaboración activa, aportando nuevas
direcciones y descartando aquellas que no se consideren como indispensables o
interesantes para su trabajo. Para cualquier comentario sobre la Guía,
sugerencia o recomendación de nuevas direcciones URL, puede utilizar el tema
“Comentarios a la Guía de Navegación” del Foro de Desarrollo Local. Para
cualquier otra duda, puede ponerse en contacto con Alberto Demetrio en daleph.ad@retemail.es. |
disconnect;
!>//
prepare($SQL);
$cursor->execute;
my @fields;
my $i = 0;
while ($i < 10)
{
@fields = $cursor->fetchrow;
$area=$fields[4];
$tema=$fields[5];
$return.= lista_titulo3($dbh,$tema,$area);
$return.= "| $fields[0] | ";
$return.= "$fields[1] | ";
$return.= "$fields[2] |
";
$return.= "| $fields[3] |
";
$i++;
}
$cursor->finish;
$return;
}
!>//
prepare($SQL2);
$cursor2->execute;
my @fields2;
if (@fields2 = $cursor2->fetchrow)
{
$temainteres=$fields2[0];
$resumen=$fields2[1];
$return.= "| Guia de navegacion-->$fields2[2]-->$temainteres |
";
}
$cursor2->finish;
$return;
}
!>//