1 | <IsisScript name=dic.xis> |
---|
2 | |
---|
3 | <function name=formulario> |
---|
4 | <display><pft> |
---|
5 | ' |
---|
6 | <html> |
---|
7 | <head> |
---|
8 | <title>Seleccionar Término del Diccionario</title> |
---|
9 | </head> |
---|
10 | <body> |
---|
11 | <!-- llamado del script: http://www.web.org.ar/cgi-bin/wxis.cgi/?IsisScript=dic.xis --> |
---|
12 | <h1><center>Seleccionar Término del Diccionario</center></h1><p> |
---|
13 | <form action="/cgi-bin/wxis.cgi" method="post"> |
---|
14 | <input type="hidden" name="IsisScript" value="dic.xis"> |
---|
15 | <input type="hidden" name="base" value="biblio"> |
---|
16 | <h4> |
---|
17 | Mostrar términos<br> |
---|
18 | desde: <input type="text" name="from" size="20"><br> |
---|
19 | hasta : <input type="text" name="to" size="20"> o mostrar de <input type="text" name="numto" size="5"> registros.<br> |
---|
20 | <br><br>Indice Seleccionado:<br> |
---|
21 | <INPUT TYPE="radio" NAME="indice" VALUE="KK_" CHECKED>Palabras Sueltas<BR> |
---|
22 | <INPUT TYPE="radio" NAME="indice" VALUE="BB_">Autores<BR> |
---|
23 | <INPUT TYPE="radio" NAME="indice" VALUE="CC_">Autores Institucionales<BR> |
---|
24 | <INPUT TYPE="radio" NAME="indice" VALUE="II_">Temas<BR> |
---|
25 | </h4> |
---|
26 | <center><input type=submit value="Ver"></center> |
---|
27 | </form> |
---|
28 | |
---|
29 | <br><br><br>Este script permite migrar terminos del diccionario de la base de datos CDS/ISIS a SPIP. <br> |
---|
30 | Cuenta con dos partes el script "dic.xis" y el script spip.php. El dic.xis, esta hecho para WXIS 5.2 y lee los <br> |
---|
31 | terminos del diccionario de la base CDS/ISIS colocando una palabra o letra raiz hasta la palabra o letra que <br> |
---|
32 | uno quiera o si se completa el cuadro de cantidad de registros, lee el termino ingresado hasta la cantidad<br> |
---|
33 | de registros dada. El segundo script, spip.php, revisa en la base spip y si el termino no existe lo guarda en<br> |
---|
34 | la tabla spip_mots; requiere consifuracion del mysql. |
---|
35 | </body> |
---|
36 | </html> |
---|
37 | ' |
---|
38 | </pft></display> |
---|
39 | </function> |
---|
40 | |
---|
41 | |
---|
42 | <function name=formulario2 action=replace tag=100 split=occ> |
---|
43 | <display><pft> |
---|
44 | ' |
---|
45 | <form action="/cgi-bin/wxis.cgi" method="post"> |
---|
46 | <input type="hidden" name="IsisScript" value="dic.xis"> |
---|
47 | <input type="hidden" name="base" value="biblio"> |
---|
48 | <h4> |
---|
49 | Mostrar términos<br> |
---|
50 | desde: <input type="text" name="from" value="',v100[1]*3,'" size="20"><br> |
---|
51 | hasta : <input type="text" name="to" size="20"> o mostrar de <input type="text" name="numto" value="',v100[3],'" size="5"> registros.<br> |
---|
52 | <br><br>Indice Seleccionado:<br> |
---|
53 | ',if v100[2]:`KK_` then '<INPUT TYPE="radio" NAME="indice" VALUE="KK_" CHECKED>Palabras Sueltas<BR>' else '<INPUT TYPE="radio" NAME="indice" VALUE="KK_">Palabras Sueltas<BR>' fi, |
---|
54 | ,if v100[2]:`BB_` then '<INPUT TYPE="radio" NAME="indice" VALUE="BB_" CHECKED>Autores<BR>' else '<INPUT TYPE="radio" NAME="indice" VALUE="BB_">Autores<BR>' fi, |
---|
55 | ,if v100[2]:`CC_` then '<INPUT TYPE="radio" NAME="indice" VALUE="CC_" CHECKED>Autores Institucionales<BR>' else '<INPUT TYPE="radio" NAME="indice" VALUE="CC_">Autores Institucionales<BR>' fi, |
---|
56 | ,if v100[2]:`II_` then '<INPUT TYPE="radio" NAME="indice" VALUE="II_" CHECKED>Temas<BR>' else '<INPUT TYPE="radio" NAME="indice" VALUE="II_">Temas<BR>' fi,' |
---|
57 | </h4> |
---|
58 | <center><input type=submit value="Ver"><br> <a href="javascript:history.back(1)">Volver Atrás</a><br><a href="http://archivos.bibliotecacta.org.ar/cgi-bin/wxis.cgi/?IsisScript=dic.xis">Inicio</a></center> |
---|
59 | </form> |
---|
60 | ' |
---|
61 | </pft></display> |
---|
62 | </function> |
---|
63 | |
---|
64 | |
---|
65 | <section> |
---|
66 | <display><pft>'Content-type: text/html'/#</pft></display> |
---|
67 | |
---|
68 | |
---|
69 | <field action=cgi tag=50>base</field> |
---|
70 | <field action=cgi tag=51>from</field> |
---|
71 | <field action=cgi tag=52>to</field> |
---|
72 | <field action=cgi tag=53>indice</field> |
---|
73 | <field action=cgi tag=54>numto</field> |
---|
74 | <parm name=cipar><pft> |
---|
75 | 'biblio.*=/home/biblioteca/www/cgi-bin/bases/iah/biblio.*',/ |
---|
76 | </pft></parm> |
---|
77 | |
---|
78 | <flow action=jump><pft>if a(v50) then 'FORM' else 'DIC' fi</pft></flow> |
---|
79 | <flow action=exit>1</flow> |
---|
80 | |
---|
81 | <label>FORM</label> |
---|
82 | <call name=formulario>FORM</call> |
---|
83 | <flow action=exit>0</flow> |
---|
84 | |
---|
85 | <label>DIC</label> |
---|
86 | |
---|
87 | <do task=keyrange> |
---|
88 | <parm name=db><pft>v50</pft></parm> |
---|
89 | <parm name=from><pft>v53,v51</pft></parm> |
---|
90 | <parm name=indice><pft>v53</pft></parm> |
---|
91 | <parm name=numto><pft>v54</pft></parm> |
---|
92 | |
---|
93 | <flow action=jump><pft>if a(v54) then 'to' else 'numto' fi</pft></flow> |
---|
94 | <flow action=exit>1</flow> |
---|
95 | |
---|
96 | <label>to</label> |
---|
97 | <parm name=to><pft>v53,v52</pft></parm> |
---|
98 | <flow action=jump><pft>'continuar'</pft></flow> |
---|
99 | <flow action=exit>1</flow> |
---|
100 | |
---|
101 | <label>numto</label> |
---|
102 | <parm name=count><pft>v54</pft></parm> |
---|
103 | <flow action=jump><pft>'continuar'</pft></flow> |
---|
104 | <flow action=exit>1</flow> |
---|
105 | |
---|
106 | <label>continuar</label> |
---|
107 | <field action=define tag=1>Isis_Key</field> |
---|
108 | <field action=define tag=2>Isis_Postings</field> |
---|
109 | <display><pft>'<h1><center>Términos del Diccionario</center></h1><p> <hr><h4>Presione sobre los términos para migrar a SPIP</h4><p>'</pft></display> |
---|
110 | <display><pft> |
---|
111 | </pft></display> |
---|
112 | <display><pft>'<table>'</pft></display> |
---|
113 | <loop> |
---|
114 | <field action="replace" tag="5"><pft>replace(v1,' ','%20')</pft></field> |
---|
115 | <field action="replace" tag="5"><pft>replace(v5,'ï¿œ','Ñ')</pft></field> |
---|
116 | <field action="replace" tag="1"><pft>replace(v1,'ï¿œ','Ñ')</pft></field> |
---|
117 | <display><pft> |
---|
118 | '<tr>' |
---|
119 | ' <td>'v2'</td>' |
---|
120 | ' <td><a href=/spip.php?term="'v5*3'">',v1*3,'</a></td>' |
---|
121 | '</tr>' |
---|
122 | /* [',v2,'] - ','<a href=/spip.php?term=',v1*3,'>',v1*3,'</a><br>, */ |
---|
123 | </pft></display> |
---|
124 | </loop> |
---|
125 | <display><pft>' |
---|
126 | </table> |
---|
127 | <br> |
---|
128 | '</pft></display> |
---|
129 | </do> |
---|
130 | |
---|
131 | <label>FORM</label> |
---|
132 | <call name=formulario2><pft>v1/v53/v54</pft></call> |
---|
133 | <flow action=exit>0</flow> |
---|
134 | </section> |
---|
135 | </IsisScript> |
---|