xOn
base cipar count LastKey prefijo pref tagfst postings formato_e Opcion cttype path_db if p(v9088) then 'Content-type: text/html'/# fi replace(s(cat(v5015)),'%path_database%',v1)/ select s(v9001) case 'autoridades': 'LISTA_AUTORIDADES' case 'diccionario': 'PRESENTAR_DICCIONARIO' case 'mas_terminos': 'PRESENTAR_DICCIONARIO' case 'localiza_usuario': 'LISTA_USUARIOS' case 'localiza_titulo': 'LISTA_USUARIOS' case 'buscar': 'BUSCAR' endsel v5001 v2020 '100' v2021 Isis_Key Isis_Posting if v5001<>'users' then '' fi 5001 2021 2020 1090 / if v5001='users' then ,ref([v5001]val(v3^m),'' ''v30'
') else if v2020.3='NI=' then ,ref([v5001]val(v3^m),if v1='P' then '' fi) else ,ref([v5001]val(v3^m),if v1='P' then '' fi) fi fi ''/ 1090 1 v5001 v2020 "100"n2001,v2001 if a(v2024) then 'ALL' else "'"v2024"'" fi Isis_Posting Isis_Postings Isis_Key 5001 3033 2021 2019 if mid(v2010,0,size(v2019))<>v2019 then break fi 'if mid(v2010,0,size(v2019))<>v2019 then break fi, /' `e1:=val(v3^o), e2:=val(v3^t), e3:=val(v3^t), if mid(V2010,0,4)='PER_' then v2010' ' fi ,ref([v5001]val(v3^m),, proc('a1999~'f(e1,1,0)'~') proc('a2999~'f(e2,1,0)'~') (if iocc=val(v1999[1]) then `v3033` fi/) ),/` Isis_Item v1/ 1 v5001 if p(v2050) then v2050 else if v2020='' then 'A' else v2020 fi fi if p(v2020) then v2020'ZZZZZ' fi 500 Isis_Key Isis_Postings v2010,'|',v2011/ 1
',, '' v800^n''v800^c" - ",,v800^t.35'
' '' ''v800^c'' ' ('v800^n') ',,v800^t.45'