Publications
define('RIGHT_MARGIN', 18);
define(DEFAULT_FONT_TYPE, 'Arial');
function EscribirDatosPublicacionCurriculum ( $ssql, $conn, $salidaPDF, $pdf )
{
$rs = mysql_query($ssql,$conn) or die (mysql_error());
// Número de registros. Se usa para controlar las 10 últimas publicaciones
$nRegs = 0;
// Variable auxiliar usada para determinar cuándo cambia el artículo al recorrer la lista de registros. Guardará el IDArticulo
$aux = -1;
// Listado de autores de un artículo
$listadoAutores = "";
// Título de un artículo
$titulo = "";
// Año de publicación de un artículo
$anho = "";
// Congreso/Revista de publicación de un artículo
$congRev = "";
// Controla el número de registro dentro del Recordset
$nrows = 0;
// Autor (de un registro determinado del Recordset)
$autor ="";
// Número de autores de un artículo
$nAutores = 0;
// Fichero publico
$publico = 0;
echo "- ";
while ( $row = mysql_fetch_array ( $rs ) )
{
if( $row[0] == $aux )
{
// Se añade el autor al String de autores
if ( $nAutores > 1 )
$listadoAutores.=", ".$autor;
else
$listadoAutores.= $autor;
}
else
{
// Si no es el mismo
// Hay un artículo más
$nRegs++;
// En el primer registro no podemos escribir nada porque no sabemos los autores pero para el resto
// de ocasiones en que cambie el artículo de un registro a otro sí
// $txt = "- ";
if( $nrows > 0 )
{
// Si hay más de un autor ponemos un 'and' antes del último
if( $nAutores > 1 )
$listadoAutores.=" and ".$autor;
else
$listadoAutores.=" ".$autor;
//echo "Autores: ";
$txt = "
- ".$listadoAutores.". ";
$nAutores = 0;
$txt .= "
".$titulo."
".$congRev.". "; if ( $volumen != '' ) $txt .= $volumen.". "; if ( $numero != '' ) $txt .= $numero.". "; if ( $paginas != '' ) $txt .= $paginas.". "; $txt .= $anho." ";
if( $salidaPDF )
{
$pdf->SetFont(DEFAULT_FONT_TYPE,'',10); // $pdf->Cell(20, 5, $txt);
$pdf->MultiCell(0,5, $txt);
$pdf->Ln();
}
else
echo $txt;
}
$listadoAutores = "";
$autor= "";
}
// Se cargan los nuevos datos y se pasa al siguiente registro
$aux=$row[0];
$titulo = $row[1];
$anho = $row[2];
$congRev = $row[3];
$autor = $row[4];
$fichero = $row[6];
$volumen = $row[7];
$publico = $row[10];
if( $volumen != "" )
$volumen = " Volumen ".$volumen;
$numero = $row[8];
if( $numero != "" )
$numero = " Numero ".$numero;
$paginas = $row[9];
if( $paginas != "" )
$paginas = " pp. ".$paginas;
$nAutores++;
$nrows++;
}
if( $nrows > 0 )
{
// Si hay más de un autor ponemos un 'and' antes del último
if( $nAutores > 1 )
$listadoAutores.=" and ".$autor;
else
$listadoAutores.=" ".$autor;
$txt = " - ".$listadoAutores.". ";
$nAutores = 0;
$txt .= "
".$titulo."
".$congRev.". "; if ( $volumen != '' ) $txt .= $volumen.". "; if ( $numero != '' ) $txt .= $numero.". "; if ( $paginas != '' ) $txt .= $paginas.". "; $txt .= $anho." ";
if( $salidaPDF )
{
$pdf->SetFont(DEFAULT_FONT_TYPE,'',10);
$pdf->MultiCell(0,5, $txt);
$pdf->Ln();
}
else
echo $txt;
}
echo "
EscribirDatosPublicacionCurriculum( $ssql, $conn, FALSE, $pdf ); $idAutor = 43; $ssql = "SET OPTION SQL_BIG_TABLES = 1"; $rs = mysql_query($ssql,$conn) or die (mysql_error()); $ssql = "SELECT DISTINCT GTH1.idArticulo, A.titulo, A.anho, A.nombCongRev, AG1.nick, GTH1.orden, A.fichero, A.volumen,A.numero,A.paginas,A.bibPublic FROM gtiHaEscrito GTH1, gtiHaEscrito GTH2, articulos A, autoresGti AG1, autoresGti AG2 WHERE GTH1.idArticulo = A.idArticulo AND GTH2.idArticulo = A.idArticulo AND AG1.idAutor = GTH1.idAutor AND AG2.idAutor = GTH2.idAutor AND congRev = 'c' AND SCI = 0 AND criterioSeleccion = 1 "; $ssql.= " AND AG2.idAutor = ".$idAutor; $ssql.=" ORDER BY A.anho DESC,GTH1.idArticulo DESC,GTH1.orden"; ?> EscribirDatosPublicacionCurriculum( $ssql, $conn, FALSE, $pdf ); $idAutor = 43; $ssql = "SET OPTION SQL_BIG_TABLES = 1"; $rs = mysql_query($ssql,$conn) or die (mysql_error()); $ssql = "SELECT DISTINCT GTH1.idArticulo, A.titulo, A.anho, A.nombCongRev, AG1.nick, GTH1.orden, A.fichero, A.volumen,A.numero,A.paginas,A.bibPublic FROM gtiHaEscrito GTH1, gtiHaEscrito GTH2, articulos A, autoresGti AG1, autoresGti AG2 WHERE GTH1.idArticulo = A.idArticulo AND GTH2.idArticulo = A.idArticulo AND AG1.idAutor = GTH1.idAutor AND AG2.idAutor = GTH2.idAutor AND congRev = 'c' AND SCI = 0 AND criterioSeleccion = 0 "; $ssql.= " AND AG2.idAutor = ".$idAutor; $ssql.=" ORDER BY A.anho DESC,GTH1.idArticulo DESC,GTH1.orden"; ?> EscribirDatosPublicacionCurriculum( $ssql, $conn, FALSE, $pdf ); ?>