source: trunk/isis/sitemap/xmlok.php @ 129

Last change on this file since 129 was 129, checked in by alberto, 15 years ago

Sitemap para ISIS y relacion ISIS2SPIP
File size: 6.2 KB
RevLine 
[129]1<?php
2
3// Tarea del Script: Interactuar con la interface del iAH para bases de datos ISIS, solicita un XML como resultado de una consulta
4// para poder interactuar con GOOGLE (similar al xml.php para interactuar con el SPIP)
5// Archivo asociado: ctaXML.xml.gz (SiteMap para Google)
6// FORMA DE LLAMAR DESDE URL: http://archivos.bibliotecacta.org.ar/xmlok.php?consulta=000001&indice=ZZ
7// INICES QUE UTILIZA: ZZ (numero de registro de 6 digitos, ejemplo: 000001)
8// Fecha 23/01/2009
9//-----------------------------------------------------------------------------------------------------------------------
10
11
12function add_ceros($numero,$ceros) {
13$order_diez = explode(".",$numero);
14$dif_diez = $ceros - strlen($order_diez[0]);
15for($m = 0 ;
16$m < $dif_diez;
17$m++)
18{
19@$insertar_ceros .= 0;
20}
21return $insertar_ceros .= $numero;
22}
23
24$consultaspip = $HTTP_GET_VARS["consulta"];
25$indicespip = $HTTP_GET_VARS["indice"];
26
27$xml = simplexml_load_file('http://archivos.bibliotecacta.org.ar/cgi-bin/wxis.cgi/iah/?IsisScript=iah/iah.xis&nextAction=xml&base=biblio&lang=E&exprSearch=' . $consultaspip . '$&indexSearch=' . $indicespip);
28
29$cantreg=0;
30
31print "
32<?xml version=\"1.0\" encoding=\"utf-8\"?>
33<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
34<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"es-ES\" lang=\"es-ES\">
35<head profile=\"http://www.w3.org/2000/08/w3c-synd/#\">
36<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
37<title>BIBLIOTECA CTA - Central de los Trabajadores Argentinos</title>
38<!--<META NAME=\"RATING\" CONTENT=\"General\">
39<META NAME=\"ROBOTS\" CONTENT=\"index, follow\">
40<META NAME=\"REVISIT-AFTER\" CONTENT=\"1 Month\">-->
41<link rel=\"shortcut icon\" href=\"http://www.cta.org.ar/base/IMG/iconsol.gif\"/>
42</head>
43<body>
44";
45
46foreach ($xml->prolog as $prolog){
47                //print_r($xml->prolog);
48                //print "<br><br>";
49                $consulta = $xml->prolog->expression;
50                $indice = $xml->prolog->index->u;
51                $totalregistrosbusq = $xml->prolog->{'total-hits'}; //para objetos que contengan - se debe llamar $xml->prolog->{'objeto'}
52}
53
54// $variables = array();
55
56foreach ($xml->record as $record){
57                //print_r($xml->record);
58                //print "<br><br>";
59
60                if (intval($record["mfn"])>0 && $cantreg==0) { print "<center><a href=http://archivos.bibliotecacta.org.ar>BibliotecaCTA.org.ar</a> - Registros encontrados</center><br><br>"; }
61
62                echo "<b>Registro: " . $record["mfn"] . " </b><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><br>";
63       
64                $cantcampos = 0;
65                foreach ($record->field as $field){
66                       
67                       
68                        $varTitulo="";
69                        $varTituloRevista="";
70                        $varAutor="";
71                        $varPDF="";
72                       
73                        $campo = intval($field["tag"]);
74                        $contenido = $xml->record[$cantreg]->field[$cantcampos];
75                        if ($contenido) { 
76                                //print "<i>Campo " . $campo . ":</i> " . $contenido . "<br>";  // comentar formato all (no utilizado en producción)
77                                // $variables[$campo] = $contenido; //carga los numeros de campo y el contenido en un array asociativo
78                                if ($campo==12) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  //Título
79                                if ($campo==18) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  //Título
80                                if ($campo==25) { if ($varTitulo=="") { $varTitulo = $contenido; } else { $varTitulo .= "; " . $contenido; } }  //Título
81                                if ($campo==10) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     //Autor
82                                if ($campo==16) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     //Autor
83                                if ($campo==23) { if ($varAutor=="") { $varAutor = $contenido; } else { $varAutor .= "; " . $contenido; } }     //Autor
84                                if ($campo==30) { $varTituloRevista=$contenido; }       //Título de revista
85                                if ($campo==999) { $varPDF=$contenido; }        //pft
86                        }
87
88                        //IMPRIMIR EL REGISTRO FORMATEADO
89                        if ($varTitulo) {print $varTitulo . "<br>";}
90                        if ($varAutor) {print $varAutor . "<br>";}
91                        if ($varTituloRevista) {print "<i>En: </i>" . $varTituloRevista . "<br>";}
92                        if ($varPDF) {print "<a href=http://www.bibliotecacta.org.ar/bases/pdf/" . $varPDF . ".pdf>Ver documento On-Line</a><br>";}
93
94                        $cantcampos = $cantcampos + 1;
95                }
96                $cantreg = $cantreg + 1;
97                echo "<br><br>";
98        }
99        print "<br><br>
100
101        Cantidad de registros encontrados: $totalregistrosbusq <br><br>
102
103        <!-- <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> -->";
104
105        //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>";
106
107        //print "<pre><br><br><br>";
108        //print_r($variables);
109        //print "</pre><br>";
110        print "
111</body>
112</html>";
113
114?>
115
116
117
118
119
120
Note: See TracBrowser for help on using the repository browser.