assign("menu_DirRaiz", DINEL); $smarty->assign("menu_Fondo","fondo.jpg"); $smarty->assign("menu_Persona",$strNombre); $ficheroRetorno= DINEL."02_componentes_1alf.php"; if ($c == 1 && d==0) $ficheroRetorno= DINEL."02_componentes.php"; if ($c == 4) { if ($d==0) $ficheroRetorno=DINEL."gte/gte_2comp.php"; else $ficheroRetorno=DINEL."gie/gie_2comp.php"; } $smarty->assign("menu_FicheroRetorno",$ficheroRetorno."?c=".$c."&d=".$d."&p=".$id); $smarty->display('menuPrivado.tpl'); //echo $strNombre; ?>

Vicente Baena Lecuyer

Información de Contacto
Docencia
Breve Curriculum
Publicaciones

Información de contacto

Docencia

Breve Curriculum

Publicaciones

12)) { return " "; } return $strMes[$mes-1]; if ($echo) echo $strMes; else return $strMes; } ////////////////////////////////////////////////////////////// function getAutores(&$autores, $articID, $tipo=0) ////////////////////////////////////////////////////////////// { $echo= ($tipo & ECO) == ECO; $strAutores=""; // Obtención de los autores $nMax=mysql_num_rows($autores); if ($nMax==0) return ""; //echo "

articID=".$articID; if ( ($i= dicotomico($autores, $articID)) == -1) return ""; // Se ha encontrado uno de los firmantes del artículo. Nos situamos en el primero $i-= mysql_result($autores,$i,1)-1; if ($i<0) return ""; //echo "
x=".mysql_result($autores,$i,0); //echo "
f=".mysql_result($autores,$i,2); for ( ; ($i < $nMax) AND (mysql_result($autores,$i,0)==$articID); $i++) { if ($strAutores != "") $strAutores.= ", "; $strAutores.= mysql_result($autores,$i,2); } if ($echo) echo $strAutores; else return $strAutores; } ////////////////////////////////////////////////////////////// function tablaLineas($tipo, $strTituloCabecera="") ////////////////////////////////////////////////////////////// { global $result; if (($row = db_fetch_array($result))==false) //Lee el primero return; // Fíjate que no le paso el párametro de arriba $tipo sino $row['tipo']. El motivo es // que si busco un artículo de un congreso nacional, el programa empieza buscando // en los congresos internacionales (lee una ya un primer registro) y se entra en esta // rutina con el parámetro $tipo=CI. Pero conmutamos a $row['tipo']=CN para no perder // ese registro. Después el programa buscará en los congresos nacionales pero ya no // habrá más registros. Resumiendo permite conmutar de CI->CN y de RI->RN tablaLineas_1($row['tipo'], $strTituloCabecera, $row); } ////////////////////////////////////////////////////////////// function tablaLineas_1($tipo, $strTituloCabecera="", &$row, $forma=ECO) ////////////////////////////////////////////////////////////// { global $result, $autores, $enlaces; // $row, $forma|= ECO; $agnoAnt=0; $clase=false; $strClase="3"; // para el color alternado de las celdas if (!isset($row)) { if (($row = db_fetch_array($result))==false) return; } if ($row==false) // Llego al final y no hay nada de este tipo return; if ($strTituloCabecera!="" AND ($tipo == $row['tipo'])) cabeceraTabla($tipo, $strTituloCabecera,0,0,$forma); $i=1; $fila=0; // Super importante do { if ($tipo != $row['tipo']) break; if ($agnoAnt != $row['agno']) { $agnoAnt= $row['agno']; if ($clase == false) $strClase="3"; else $strClase="4"; $clase = !$clase; } UnaLineaArticulo($i++, $tipo, $strClase, $row, $autores, $enlaces, $forma); } while ($row = db_fetch_array($result)); echo "\n"; // Se abrió en cabeceraTabla } ////////////////////////////////////////////////////////////// function cabeceraTabla($tipo, $strTitulo="", $agno=0, $grupo=0,$forma=ECO) ////////////////////////////////////////////////////////////// { if ( ($tipo == CI) OR ($tipo == CN) ) { if ($strTitulo!="") echo $strTitulo; }elseif (($tipo == RI) OR ($tipo == RN)) { // Revistas, cabecera if ($strTitulo!="") echo $strTitulo; } elseif ($tipo == CAP) { // Capítulos de libro if ($strTitulo!="") echo $strTitulo; } elseif ($tipo == PAT) { // Patentes if ($strTitulo!="") echo $strTitulo; } echo "