";
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;
foreach ($record->field as $field){
$varTitulo="";
$varTituloRevista="";
$varAutor="";
$varPDF="";
$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
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 . "
";}
if ($varAutor) {print $varAutor . "
";}
if ($varTituloRevista) {print "En: " . $varTituloRevista . "
";}
if ($varPDF) {print "Ver documento On-Line
";}
$cantcampos = $cantcampos + 1;
}
$cantreg = $cantreg + 1;
echo "
";
}
print "
Cantidad de registros encontrados: $totalregistrosbusq
-->";
//print "
ver del XML";
//print "
";
//print_r($variables);
//print "
";
print "