source: trunk/isis/iah2spip/xml.php @ 361

<?php

// Tarea del Script: Interactuar con la interface del iAH para bases de datos ISIS, solicita un XML como resultado de una consulta
// para poder interactuar con SPIP

// FORMA DE LLAMAR DESDE URL: http://archivos.bibliotecacta.org.ar/xmlok.php?consulta=trabajo&indice=II

// INICES PARA CONSULTAS:
// INDICE KK=Palabras de cualquier campo
// INDICE DD=Palabras del t&iacute;tulo
// INDICE EE=T&iacute;tulo completo
// INDICE FF=T&iacute;tulo de P.P.
// INDICE BB=Autores
// INDICE CC=Autores Institucionales
// INDICE MA=Tipo de material
// INDICE II=Temas

// Fecha 16/06/2009

// TODO:
// 1 Hacer un formato de visualizacion mas corto para mostrar en el spip
/* 2 Forzar la salida a <?xml version="1.0" encoding="ISO-8859-1"?> */
//-----------------------------------------------------------------------------------------------------------------------


function add_ceros($numero,$ceros) {
$order_diez = explode(".",$numero);
$dif_diez = $ceros - strlen($order_diez[0]);
for($m = 0 ;
$m < $dif_diez;
$m++)
{
@$insertar_ceros .= 0;
}
return $insertar_ceros .= $numero;
}

$consultaspip = $HTTP_GET_VARS["consulta"];
$indicespip = $HTTP_GET_VARS["indice"];
$urlsite = 'http://archivos.bibliotecacta.org.ar';
$urlxml = $urlsite . '/cgi-bin/wxis.cgi/iah/?IsisScript=iah/iah.xis&nextAction=xml&base=biblio&lang=E&exprSearch=' . $consultaspip . '$&indexSearch=' . $indicespip;

$xml = simplexml_load_file($urlxml);

$cantreg=0;

foreach ($xml->prolog as $prolog){
                //print_r($xml->prolog);
                //print "<br><br>";
                $consulta = $xml->prolog->expression;
                $indice = $xml->prolog->index->u;
                $totalregistrosbusq = $xml->prolog->{'total-hits'}; //para objetos que contengan - se debe llamar $xml->prolog->{'objeto'}
}

// $variables = array();

foreach ($xml->record as $record){
                //print_r($xml->record);
                //print "<br><br>";

                if (intval($record["mfn"])>0 && $cantreg==0) { print "<br><center><a href=$urlsite>BibliotecaCTA.org.ar</a> - Registros encontrados <br><br></center>"; }

                echo "<b>Registro: " . $record["mfn"] . " </b><a href=http://archivos.bibliotecacta.org.ar/cgi-bin/wxis.cgi/iah/?IsisScript=iah/iah.xis&nextAction=lnk&base=biblio&lang=E&exprSearch=" . add_ceros($record["mfn"],6) . "&indexSearch=ZZ>Ver registro en biblioteca</a><br>";

                $cantcampos = 0;
                $varTitulo="";
                $varTituloRevista="";
                $varAutor="";
                $varAutorInst="";
                $varTemas="";
                $varPDF="";
        
                $cantcampos = 0;
                foreach ($record->field as $field){
                
                        $campo = intval($field["tag"]);
                        $contenido = $xml->record[$cantreg]->field[$cantcampos];
                        if ($contenido) { 
                                //print "<i>Campo " . $campo . ":</i> " . $contenido . "<br>";  // comentar formato all (no utilizado en producción)
                                // $variables[$campo] = $contenido; //carga los numeros de campo y el contenido en un array asociativo
                                //Título
                                if ($campo==12) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  
                                if ($campo==18) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  
                                if ($campo==25) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  
                                //Autor
                                if ($campo==10) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }
                                if ($campo==16) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     
                                if ($campo==23) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     
                                //Autores Institucionales
                                if ($campo==11) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } }
                                if ($campo==17) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } }
                                if ($campo==24) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } }
                                if ($campo==50) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } }
                                if ($campo==52) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } }
                                if ($campo==58) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } }
                                //Título de revista
                                if ($campo==30) { $varTituloRevista=$contenido; }
                                //temas
                                if ($campo==76)  { if ($varTemas=="") { $varTemas = $contenido; } else { $varTemas .= "; " . $contenido; } }
                                //PDF
                                if ($campo==999) { $varPDF=$contenido; }
                        }

                        $cantcampos = $cantcampos + 1;
                }

                        //IMPRIMIR EL REGISTRO FORMATEADO
                        if ($varAutorInst) {print "<i>Autor/es Institucional/es: </i>" . $varAutorInst . "<br>";}
                        if ($varAutor) {print "<i>Autor/es: </i>" . $varAutor . "<br>";}
                        if ($varTitulo) {print "<i>Título: </i>" . $varTitulo . "<br>";}
                        if ($varTituloRevista) {print "<i>En: </i>" . $varTituloRevista . "<br>";}
                        if ($varTemas) {print "<i>Temas: </i>" . $varTemas . "<br>";}
                        if ($varPDF) {print "<a href=http://www.bibliotecacta.org.ar/bases/pdf/" . $varPDF . ".pdf>Ver documento On-Line</a><br>";}

                $cantreg = $cantreg + 1;
                echo "<br><br>";
        }
        print "<br><br>

        Cantidad de registros encontrados: $totalregistrosbusq <br><br>

        <a href=\"http://archivos.bibliotecacta.org.ar/cgi-bin/wxis.cgi/iah/?IsisScript=iah/iah.xis&nextAction=search&base=biblio&lang=E&exprSearch=$consulta&indexSearch=$indice\">mas resultados en biblioteca <!-- ($totalregistros) --></a>";

        print "<br><br><a href=\"http://archivos.bibliotecacta.org.ar/cgi-bin/wxis.cgi/iah/?IsisScript=iah/iah.xis&nextAction=xml&base=biblio&lang=E&exprSearch=$consulta&indexSearch=$indice\">ver del XML</a>";

        //print "<pre><br><br><br>";
        //print_r($variables);
        //print "</pre><br>";

?>