*/
//-----------------------------------------------------------------------------------------------------------------------
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 "
";
$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 "
";
if (intval($record["mfn"])>0 && $cantreg==0) { print "
BibliotecaCTA.org.ar - Registros encontrados
"; }
echo "Registro: " . $record["mfn"] . " Ver registro en biblioteca
";
$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 "Campo " . $campo . ": " . $contenido . "
"; // 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 "Autor/es Institucional/es: " . $varAutorInst . "
";}
if ($varAutor) {print "Autor/es: " . $varAutor . "
";}
if ($varTitulo) {print "Título: " . $varTitulo . "
";}
if ($varTituloRevista) {print "En: " . $varTituloRevista . "
";}
if ($varTemas) {print "Temas: " . $varTemas . "
";}
if ($varPDF) {print "Ver documento On-Line
";}
$cantreg = $cantreg + 1;
echo "
";
}
print "
Cantidad de registros encontrados: $totalregistrosbusq
mas resultados en biblioteca ";
print "
ver del XML";
//print "
";
//print_r($variables);
//print "
";
?>