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

<?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"] . " <a href=http://archivos.bibliotecacta.org.ar/cgi-bin/wxis.cgi/iah/?IsisScript=iah%2Fiah.xis&avaibleFormats=%5Enstandard.pft%5EpLista%5EeLista%5EiLista&avaibleFormats=%5Endetailed.pft%5EpDetallado%5EeDetallado%5EiDetallado&avaibleFormats=%5EnDEFAULT%5Efdetailed.pft&apperance=%5Ec%23FFFFFF%5Etblack%5Elblue%5Eb%23A3BEDA%5Eesistemas@cta.org.ar%5ErON%5EmOFF&helpInfo=%5EnHELP+FORM%5Evhelp_form_secs.htm&gizmoDecod=%5EgASC2ANS&avaibleForms=F%2CA&logoImage=&logoURL=%5Ephttp%3A%2F%2Farchivos.bibliotecacta.org.ar%2Fiah%2F%2F%5Eehttp%3A%2F%2Farchivos.bibliotecacta.org.ar%2Fiah%2F%5Eihttp%3A%2F%2Farchivos.bibliotecacta.org.ar%2Fiah%2F&headerImage=online.gif&headerURL=%5Ep%2Fiah%2FE%2Findex.htm%5Ee%2Fiah%2FE%2Findex.htm%5Ei%2Fiah%2FE%2Findex.htm&form=A&pathImages=%2Fiah%2FE%2Fimage%2F&navBar=ON&hits=10&format=detailed.pft&lang=E&user=GUEST&related=&nextAction=search&base=biblio&conectSearch=init&exprSearch=" . add_ceros($record["mfn"],6) . "&indexSearch=%5EnZZ%5EpMFN%5EeMFN%5EiMFN%5ExZZ+%5EuZZ_%5EyDATABASE%5EmZZ_%5Etshort&conectSearch=and&exprSearch=&indexSearch=%5EnKK%5EpPalabras%5EePalabras%5EiPalabras%5Ed*%5ExKK+%5EuKK_%5EyDATABASE%5EmKK_&conectSearch=and&exprSearch=&indexSearch=%5EnKK%5EpPalabras%5EePalabras%5EiPalabras%5Ed*%5ExKK+%5EuKK_%5EyDATABASE%5EmKK_&x=18&y=19>Ver registro en biblioteca</a></b><br>";
        
                $cantcampos = 0;
                foreach ($record->field as $field){
                        
                        
                        $varTitulo="";
                        $varTituloRevista="";
                        $varAutor="";
                        $varPDF="";
                        
                        $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
                                if ($campo==12) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  //Título
                                if ($campo==18) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  //Título
                                if ($campo==25) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  //Título
                                if ($campo==10) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     //Autor
                                if ($campo==16) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     //Autor
                                if ($campo==23) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     //Autor
                                if ($campo==30) { $varTituloRevista=$contenido; }       //Título de revista
                                if ($campo==999) { $varPDF=$contenido; }        //pft
                        }

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

                        $cantcampos = $cantcampos + 1;
                }
                $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>";

?>