$value) echo "$var=$value
"; if (file_exists($db_path.$tesaurus."/def/".$_SESSION["lang"]."/".$tesaurus.".dat")) $fp=file($db_path.$tesaurus."/def/".$_SESSION["lang"]."/".$tesaurus.".dat"); else $fp=file($db_path.$tesaurus."/def/".$lang_db."/".$tesaurus.".dat"); foreach($fp as $value) { $f=explode('=',$value); switch($f[0]){ case "alpha_prefix": $prefijo=trim($f[1]); break; case "perm_prefix": $perm_prefix=trim($f[1]); break; case "alpha_pft": $Formato=trim($f[1]); break; } } if (isset($arrHttp["perm"])) $prefijo=$perm_prefix; $delimitador=""; $pref=$prefijo; if(isset($arrHttp["pref"])) $prefijo=$prefijo.$arrHttp["pref"]; else $pref=$prefijo; $IsisScript=$xWxis."ifp.xis"; $query ="&base=$tesaurus&cipar=$db_path"."par/$tesaurus".".par&Opcion=autoridades&prefijo=$prefijo&pref=$pref&formato_e=".urlencode($Formato); include("../common/wxis_llamar.php"); $contenido = array_unique ($contenido); //foreach ($contenido as $var=>$value) echo "$var=$value
"; die; $subtitle= " Tesaurus"; include("../common/header.php"); echo "

Tesaurus ($tesaurus)

\n"; echo "\n"; echo " \n"; ?>
/alfa.html target=_blank>    ".$msgstr["edhlp"].""; echo "    abcdwiki.net"; echo "    Script: tesaurus/perm.php" ?>
>     >
".chr($i)."
"?>		 "; }else{ $url=""; } $word=trim(substr($b[0],strlen($perm_prefix))); $key=" ".$word." "; $ix=stripos($termino,$key); $w1=""; $w2=""; if ($ix!==false){ if ($ix==0){ $w1=""; }else{ $w1=substr($termino,0,$ix)." "; } $w2=" ".substr($termino,$ix+1+strlen($word)); }else{ $key=" ".$word; $ix=stripos($termino,$key); if ($ix!==false){ if ($ix==0){ $w1=""; }else{ $w1=substr($termino,0,$ix)." "; } $w2=" ".substr($termino,$ix+1+strlen($word)); }else{ $key=$word." "; $ix=stripos($termino,$key); if ($ix!==false){ if ($ix==0){ $w1=""; }else{ $w1=substr($termino,0,$ix)." "; } $w2=" ".substr($termino,$ix+1+strlen($word)); }else{ $key=$word; $ix=strpos($termino,$key); if ($ix!==false){ if ($ix==0){ $w1=""; }else{ $w1=substr($termino,0,$ix); } $w2=substr($termino,$ix+strlen($word)); } } } } if ($use!=""){ echo ""; }else{ echo ""; } $last=$word; } ?>
$url".$w1."$url$word$url".$w2.""; echo " USE $use
$url".$w1."$url$word$url".$w2."

>     >
       
last=\"$word\"";?>
> \n";?>