Changeset 130 for trunk/isis/iah2spip/xml.php
- Timestamp:
- Jan 27, 2009, 8:15:16 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/isis/iah2spip/xml.php
r129 r130 61 61 if (intval($record["mfn"])>0 && $cantreg==0) { print "<br><center><a href=$urlsite>BibliotecaCTA.org.ar</a> - Registros encontrados <br><br></center>"; } 62 62 63 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>"; 63 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>"; 64 65 $cantcampos = 0; 66 $varTitulo=""; 67 $varTituloRevista=""; 68 $varAutor=""; 69 $varAutorInst=""; 70 $varTemas=""; 71 $varPDF=""; 64 72 65 73 $cantcampos = 0; 66 74 foreach ($record->field as $field){ 67 68 69 $varTitulo=""; 70 $varTituloRevista=""; 71 $varAutor=""; 72 $varPDF=""; 73 75 74 76 $campo = intval($field["tag"]); 75 77 $contenido = $xml->record[$cantreg]->field[$cantcampos]; … … 77 79 //print "<i>Campo " . $campo . ":</i> " . $contenido . "<br>"; // comentar formato all (no utilizado en producción) 78 80 // $variables[$campo] = $contenido; //carga los numeros de campo y el contenido en un array asociativo 79 if ($campo==12) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } } //TÃtulo 80 if ($campo==18) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } } //TÃtulo 81 if ($campo==25) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } } //TÃtulo 82 if ($campo==10) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } } //Autor 83 if ($campo==16) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } } //Autor 84 if ($campo==23) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } } //Autor 85 if ($campo==30) { $varTituloRevista=$contenido; } //TÃtulo de revista 86 if ($campo==999) { $varPDF=$contenido; } //pft 81 //TÃtulo 82 if ($campo==12) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } } 83 if ($campo==18) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } } 84 if ($campo==25) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } } 85 //Autor 86 if ($campo==10) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } } 87 if ($campo==16) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } } 88 if ($campo==23) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } } 89 //Autores Institucionales 90 if ($campo==11) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } } 91 if ($campo==17) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } } 92 if ($campo==24) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } } 93 if ($campo==50) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } } 94 if ($campo==52) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } } 95 if ($campo==58) { if ($varAutorInst=="") { $varAutorInst = $contenido; } else { $varAutorInst .= "; " . $contenido; } } 96 //TÃtulo de revista 97 if ($campo==30) { $varTituloRevista=$contenido; } 98 //temas 99 if ($campo==76) { if ($varTemas=="") { $varTemas = $contenido; } else { $varTemas .= "; " . $contenido; } } 100 //PDF 101 if ($campo==999) { $varPDF=$contenido; } 87 102 } 88 89 //IMPRIMIR EL REGISTRO FORMATEADO90 if ($varTitulo) {print $varTitulo . "<br>";}91 if ($varAutor) {print $varAutor . "<br>";}92 if ($varTituloRevista) {print "<i>En: </i>" . $varTituloRevista . "<br>";}93 if ($varPDF) {print "<a href=http://www.bibliotecacta.org.ar/bases/pdf/" . $varPDF . ".pdf>Ver documento On-Line</a><br>";}94 103 95 104 $cantcampos = $cantcampos + 1; 96 105 } 106 107 //IMPRIMIR EL REGISTRO FORMATEADO 108 if ($varAutorInst) {print "<i>Autor/es Institucional/es: </i>" . $varAutorInst . "<br>";} 109 if ($varAutor) {print "<i>Autor/es: </i>" . $varAutor . "<br>";} 110 if ($varTitulo) {print "<i>TÃtulo: </i>" . $varTitulo . "<br>";} 111 if ($varTituloRevista) {print "<i>En: </i>" . $varTituloRevista . "<br>";} 112 if ($varTemas) {print "<i>Temas: </i>" . $varTemas . "<br>";} 113 if ($varPDF) {print "<a href=http://www.bibliotecacta.org.ar/bases/pdf/" . $varPDF . ".pdf>Ver documento On-Line</a><br>";} 114 97 115 $cantreg = $cantreg + 1; 98 116 echo "<br><br>";
Note: See TracChangeset
for help on using the changeset viewer.