[129] | 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> |
---|