trunk/apertium-lexical-webform/private/ins_multip.php

   1 <?php
   2     include("config.php"); //archivo de configuración
   3
   4  if($tipo=="mw")
   5     {
   6         $cadFich="verb";
   7         $show=": multiwords";
   8         $tag="<s n=\"vblex\"/>";
   9         $tagout="<vblex>";
  10         $nota="";
  11     }
  12
  13
  14         //Rutas de los diccionarios temporales
  15         $path="../dics";
  16
  17
  18         $fich_LR="$path/apertium-$LR-$RL.$LR.webform";
  19         $fich_RL="$path/apertium-$LR-$RL.$RL.webform";
  20         $fich_LRRL="$path/apertium-$LR-$RL.$LR-$RL.webform";
  21         $fich_semi="$path/$LR-$RL.semi.dic";
  22
  23
  24         $path_paradigmasLR="./paradigmas.$LR-$RL/paradig".$cadFich."_".$LR;
  25         $path_paradigmasRL="./paradigmas.$LR-$RL/paradig".$cadFich."_".$RL;
  26
  27
  28         //Rutas del analizador morfológico y los dic. compilados
  29         $aut_LRRL=$dicos_path."/apertium-$nomtrad/$LR-$RL.automorf.bin";
  30         $aut_RLLR=$dicos_path."/apertium-$nomtrad/$RL-$LR.automorf.bin";
  31
  32         $LRcua=str_replace(" ","<b/>",$LRcua);
  33         $RLcua=str_replace(" ","<b/>",$RLcua);
  34
  35
  36
  37
  38 //Funciones para acentuar en caso de q la palabra sea un verbo
  39
  40     function esVocalFuerte($letra){
  41           if($letra=="a"||$letra=="e"||$letra=="o") return true;
  42           else return false;
  43         }
  44
  45      function esVocalDebil($letra){
  46           if($letra=="i"||$letra=="u") return true;
  47           else return false;
  48         }
  49
  50         function esVocal($letra){
  51           return esVocalDebil($letra)||esVocalFuerte($letra);
  52         }
  53
  54         function diptongo($vocal1, $vocal2){
  55           if((esVocalDebil($vocal1)&&esVocalDebil($vocal2))||
  56              (esVocalFuerte($vocal1)&&esVocalDebil($vocal2))||
  57              (esVocalDebil($vocal1)&&esVocalFuerte($vocal2)))
  58             return true;
  59           else return false;
  60         }
  61         //acentúa una cadena para ciertas formas verbales del castellano
  62         function acentuar($cadena,$siguienteletra){
  63           //quitar todos los acentos
  64           $cadena=strtr($cadena,"áéíóúÁÉÍÓÚ","aeiouAEIOU");
  65           $comienzo=strlen($cadena)-1;
  66           if(diptongo($cadena[$comienzo],$siguienteletra))
  67             $comienzo--;
  68           for(;$comienzo>=0;$comienzo--){
  69             if(esVocal($cadena[$comienzo])){
  70               if(esVocalFuerte($cadena[$comienzo])){
  71                 $cadena[$comienzo]=strtr($cadena[$comienzo],"aeoAEO","áéóÁÉÓ");
  72                 return $cadena;
  73               }
  74               else if(esVocal($cadena[$comienzo-1])){
  75                 $comienzo--;
  76                 $cadena[$comienzo]=strtr($cadena[$comienzo],"aeiouAEIOU","áéíóúÁÉÍÓÚ");
  77                 return $cadena;
  78               }
  79               else{
  80                 $cadena[$comienzo]=strtr($cadena[$comienzo],"aeiouAEIOU","áéíóúÁÉÍÓÚ");
  81                 return $cadena;
  82               }
  83             }
  84           }
  85           return $cadena;
  86         }
  87
  88 //ARANES!!
  89         function PosicioVocalTall($lema, $vocal, $infinitiu){
  90         // torna la posició dins del $lema on es troba la $vocal que separa l'arrel de la desinencia.
  91         // És necessari la terminació d'infinitiu del verb $lema. Busquem la vocal del final cap al principi
  92         // tornem la primera ocurrència de $vocal
  93           $i=strlen($lema)-strlen($infinitiu)-1;
  94           $posicio=false;
  95           for( ; $i >= 0; $i--){
  96                 if($lema[$i] == $vocal) { $posicio=$i; $i=-1; }
  97           }
  98           return $posicio;
  99         }
 100
 101 //FI ARANES!!
 102
 103
 104
 105   echo "<?xml version=\"1.0\" encoding=\"ISO-8859-15\"?>\n";
 106 ?>
 107
 108 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
 109     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
 110
 111 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="es">
 112   <head>
 113     <meta http-equiv="content-type" content="application/xhtml+xml; charset=ISO-8859-15" />
 114     <meta name="author" content="haran" />
 115     <meta name="generator" content="haran" />
 116
 117     <!-- Navigational metadata for large websites (an accessibility feature): -->
 118     <link rel="top"      href="./index.html" title="Homepage" />
 119     <link rel="up"       href="./index.html" title="Up" />
 120     <link rel="first"    href="./index.html" title="First page" />
 121     <link rel="previous" href="./index.html" title="Previous page" />
 122     <link rel="next"     href="./index.html" title="Next page" />
 123     <link rel="last"     href="./index.html" title="Last page" />
 124     <link rel="toc"      href="./index.html" title="Table of contents" />
 125     <link rel="index"    href="./index.html" title="Site map" />
 126
 127     <link rel="stylesheet" type="text/css" href="/styles/gila-screen-form2.css" media="screen" title="Gila (screen)" />
 128     <link rel="stylesheet" type="text/css" href="/styles/gila-print.css" media="print" />
 129     <title>OpenTrad apertium insertion form. Thank you!</title>
 130
 131
 132
 133 <script language="Javascript">
 134 function cierra() {
 135    window.close();
 136 }
 137 </script>
 138 </head>
 139 <body>
 140
 141 <?php
 142
 143
 144    // coge las posibles terminaciones
 145       $toktmp=strtok($paradigmaLR,"/");
 146       $vectParLR=explode(" ",$paradigmaLR);
 147       $arr=explode("/",$vectParLR[0]);
 148       if(sizeof($arr)==2)
 149               $vectParLR[0]="/".$arr[1];
 150       else
 151               $vectParLR[0]=" ";
 152
 153
 154
 155
 156       $toktmp=strtok($paradigmaRL,"/");
 157       $vectParRL=explode(" ",$paradigmaRL);
 158       $arr=explode("/",$vectParRL[0]);
 159       if(sizeof($arr)==2)
 160               $vectParRL[0]="/".$arr[1];
 161       else
 162               $vectParRL[0]=" ";
 163
 164       $partmp=strtok($paradigmaLR," ");                 //coge el nombre del paradigma hasta el primer espacio
 165       $paradigmaLR=$partmp;                             // ya q este puede tener información adicional
 166                                                         //ej;  alt/o /a /os /as -> solo quiero "alt/o"
 167
 168       $partmp=strtok($paradigmaRL," ");
 169       $paradigmaRL=$partmp;
 170
 171
 172
 173
 174
 175    if(!isset($accion)) {
 176
 177
 178       echo "<form action=\"ins_multip.php\">";
 179       echo "<input type=\"hidden\" name=\"accion\" value=\"Insert >>\">";
 180
 181
 182
 183       //Debemos calcular la raiz de la nueva palabra, lo hacemos a partir del paradigma
 184       $token=strtok($paradigmaLR,"/");
 185       $raiz_LR=substr($LRverb, 0, strlen($LRverb)-(strlen($paradigmaLR)-strlen($token)-1));
 186
 187       //genera los ejemplos
 188       $ejemplosLR="";
 189       if(sizeof($vectParLR)>0)
 190       {
 191         for($cont=0; $cont < sizeof($vectParLR) ;$cont++){
 192             $flexion=$vectParLR[$cont];
 193
 194 //ARANES!!
 195             if($LR == "oc" || $LR == "fr"){
 196                   $flexion=substr($flexion,1,strlen($flexion)-1);
 197
 198                   //se obtienen los datos del paradigma de LR actual
 199                   $cadparadigma=shell_exec("grep ^$paradigmaLR $path_paradigmasLR");
 200                   //La cadena devuelta por el grep la metemos en un array separando las pal
 201                   $cadenae=explode("\t",$cadparadigma);  //en cadenae[2] tenim el primer paradigma associat
 202
 203                   $token=$cadenae[2]; //agafem el paradigma
 204
 205                   $inicio_inf=strpos($token,"]");
 206                   if($inicio_inf === false){
 207                       $inicio_inf=strpos($token,"/")+1;
 208                       $parametritzat=0;
 209                   }
 210                   else{
 211                       $inicio_inf=$inicio_inf+1;
 212                       $parametritzat=1;
 213                   }                               //mira on comença l'infinitiu
 214
 215
 216 //                  $inicio_inf=strpos($token,"]");
 217 //                  if($inicio_inf === false){ $inicio_inf=0; }
 218 //                  else{ $inicio_inf=$inicio_inf+1; }                              //mira on comença l'infinitiu
 219
 220                   if( $parametritzat == 1){
 221
 222                       $long_fixa_par= strpos($token,"]") - strpos($token,"[") - 1;   //longitud de la part fixa del paradigm
 223                       if($long_fixa_par==-1){$long_fixa_par=0;}
 224
 225                       $infinitiu=substr($token,$inicio_inf,strpos($token,"__")-$inicio_inf );  //terminació de l'infinitiu;
 226
 227 //                  $vocal=$flexion[0];
 228                       $vocal_de_flexion=$flexion[0];
 229
 230
 231                       $vocal=substr( $token,strpos($token,"/")+1,1 );
 232                       $inicio_flexion=1+$long_fixa_par;
 233                       $flexion=substr($flexion,$inicio_flexion,strlen($flexion)-$inicio_flexion);
 234
 235                       $long_fixa_lema= (strlen($LRverb)-strlen($infinitiu)-1) - PosicioVocalTall($LRverb,$vocal,$infinitiu);
 236
 237                       $raiz_LR=substr($LRverb, 0, strlen($LRverb)-(1 + $long_fixa_lema + strlen($infinitiu) ));
 238                       //CALCULEM l'ARREL del lema a introduir (el que hi haurà davant de \ )
 239                       //pendent de millorar
 240                       $fixa=substr($LRverb,strlen($raiz_LR)+1,$long_fixa_lema);
 241                       //CALCULEM la PART FIXA del lema (el que es posaria entre [])
 242                       //pendent de millorar
 243                   }
 244                   else{
 245                       $vocal=$fixa="";
 246                       $long_fixa_lema=0;
 247                   }
 248 //                  $flexion="/".$vocal.$fixa.$flexion;
 249                   $flexion="/".$vocal_de_flexion.$fixa.$flexion;
 250
 251             }
 252 //FI ARANES!!
 253
 254           $ejemplosLR.=" ".$raiz_LR."<b style=\"color:red\">".$flexion."</b>,";
 255
 256
 257         }
 258       }
 259
 260
 261      //Debemos calcular la raiz de la nueva palabra, lo hacemos a partir del paradigma
 262       $token=strtok($paradigmaRL,"/");
 263       $raiz_RL=substr($RLverb, 0, strlen($RLverb)-(strlen($paradigmaRL)-strlen($token)-1));
 264
 265       //genera los ejemplos
 266       $ejemplosRL="";
 267       if(sizeof($vectParRL)>0)
 268       {
 269         for($cont=0; $cont < sizeof($vectParRL) ;$cont++)
 270                 $ejemplosRL.="<br/>".$raiz_RL.$vectParRL[$cont];
 271       }
 272
 273       //Montamos la cadena a insertar en el diccionario es
 274       $cadparadigma=shell_exec("grep ^$paradigmaLR $path_paradigmasLR");
 275       //La cadena devuelta por el grep la metemos en un array separando las palabras
 276       $array_paradigma_LR=explode("\t",$cadparadigma);
 277       $cad_LR="";
 278       //Calculamos la dirección para es
 279       $direccion_LR=$direccion;
 280
 281       //Calculamos direccion ca
 282       if ($direccion==":<:")
 283          $direccion_RL=":>:";
 284       else if ($direccion==":>:")
 285          $direccion_RL=":<:";
 286       else
 287          $direccion_RL=$direccion;
 288
 289       $LRlm=str_replace("<b/>"," ",$LRlem);
 290       $RLlm=str_replace("<b/>"," ",$RLlem);
 291
 292       $raiz_vb=$raiz_LR;
 293       for($i=0; $i<$array_paradigma_LR[1]; $i++)
 294       { // Recorremos todos los paradigmas de esta palabra
 295
 296 //ARANES!!: calculamos la raiz de la nueva palabra, lo hacemos a partir del siguiente paradigma asociado
 297         $token=strtok($array_paradigma_LR[$i+2],"/");
 298         $token=strtok("/");
 299         $token=substr($token,0,strpos($token,"__") );        // agafem la terminació de l'infinitiu (està entre "/" i"__" )
 300         $raiz_LR=substr($LRverb, 0, strlen($LRverb)- strlen($token) );   //calculem l'arrel
 301
 302 //MILLORARRRRRRRRRRRR
 303         if( $tipo == "mw" && ($LR == "oc" || $LR == "fr") && $parametritzat == 1) {
 304           $raiz_LR=substr($LRverb, 0, strlen($LRverb)-(1 + $long_fixa_lema + strlen($infinitiu) ));
 305
 306
 307 //          $raiz_LR=substr($LRverb, 0, strlen($LRverb)-(1 + $long_fixa_par + strlen($infinitiu) ));
 308         }
 309 //Açó de calcular l'arrel s'ha de fer millloooooorrr
 310 //FI ARANES!!
 311
 312
 313
 314
 315          if($i==1 && $tipo=="mw")
 316          {
 317                 $pos=strpos($paradigmaLR,"/");  //se calcula cual es la primera letra a partir del corte en el paradigma
 318                 $primera_letra=$paradigmaLR[$pos+1];
 319                 $raiz_LR=acentuar($raiz_LR,$primera_letra); //se obtiene la raiz del verbo acentuada
 320
 321          }
 322
 323               if (strpos($array_paradigma_LR[$i+2],"/")==0)
 324               {
 325                   $raiz_LR="";
 326               }
 327
 328          $array_paradigma_LR[$i+2]=str_replace ("\n","", $array_paradigma_LR[$i+2]);
 329
 330
 331 //ARANES!!!
 332          if( $tipo == "mw" && ($LR == "oc" || $LR == "fr") && $parametritzat == 1){
 333                $par_parametre=" p1=\"".$fixa."\"";
 334          }
 335          else{
 336                $par_parametre="";
 337          }
 338 //FI ARANES!!!
 339
 340
 341
 342         if($LRcua!="")
 343         {
 344
 345           if ($raiz_LR!=$raiz_vb)
 346           {
 347               if($direccion==":>:")
 348                {
 349                 $printdir="LR";
 350                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <p>\n    <l>$raiz_LR</l>\n    <r>$raiz_vb</r>\n  </p>\n<par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n  <p>\n    <l>$LRcua</l>\n    <r><g>$LRcua</g></r>\n  </p>\n</e>\n";
 351                }
 352                else
 353                {
 354                  if($direccion==":<:")
 355                  {
 356                   $printdir="RL";
 357                   $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <p>\n    <l>$raiz_LR</l>\n    <r>$raiz_vb</r>\n  </p>\n<par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n  <p>\n    <l>$LRcua</l>\n    <r><g>$LRcua</g></r>\n  </p>\n</e>\n";
 358                  }
 359                  else
 360                  {
 361                   $cad_LR.="<e lm=\"$LRlm\" a=\"$user\">\n  <p>\n    <l>$raiz_LR</l>\n    <r>$raiz_vb</r>\n  </p>\n<par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n  <p>\n    <l>$LRcua</l>\n    <r><g>$LRcua</g></r>\n  </p>\n</e>\n";
 362                  }
 363                }
 364           }
 365           else
 366           {
 367              if($direccion==":>:")
 368              {
 369                 $printdir="LR";
 370                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_LR</i>\n  <par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n  <p>\n    <l>$LRcua</l>\n    <r><g>$LRcua</g></r>\n  </p>\n</e>\n";
 371              }
 372              else
 373              {
 374                if($direccion==":<:")
 375                {
 376                  $printdir="RL";
 377                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_LR</i>\n  <par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n  <p>\n    <l>$LRcua</l>\n    <r><g>$LRcua</g></r>\n  </p>\n</e>\n";
 378                }
 379
 380                else
 381                {
 382
 383                  $cad_LR.="<e lm=\"$LRlm\" a=\"$user\">\n  <i>$raiz_LR</i>\n  <par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n  <p>\n    <l>$LRcua</l>\n    <r><g>$LRcua</g></r>\n  </p>\n</e>\n";
 384                }
 385             }
 386           }
 387         }
 388         else
 389         {
 390
 391           if ($raiz_LR!=$raiz_vb)
 392           {
 393              if($direccion==":>:")
 394              {
 395                 $printdir="LR";
 396                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <p>\n    <l>$raiz_LR</l>\n    <r>$raiz_vb</r>\n  </p>\n<par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n</e>\n";
 397              }
 398              else
 399              {
 400                if($direccion==":<:")
 401                {
 402                  $printdir="RL";
 403                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <p>\n    <l>$raiz_LR</l>\n    <r>$raiz_vb</r>\n  </p>\n<par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n</e>\n";
 404                }
 405
 406                else
 407                {
 408
 409                  $cad_LR.="<e lm=\"$LRlm\" a=\"$user\">\n  <p>\n    <l>$raiz_LR</l>\n    <r>$raiz_vb</r>\n  </p>\n<par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n</e>\n";
 410                }
 411
 412              }
 413           }
 414           else
 415           {
 416             if($direccion==":>:")
 417              {
 418                 $printdir="LR";
 419                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_LR</i>\n  <par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n</e>\n";
 420              }
 421              else
 422              {
 423                if($direccion==":<:")
 424                {
 425                  $printdir="RL";
 426                 $cad_LR.="<e lm=\"$LRlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_LR</i>\n  <par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n</e>\n";
 427                }
 428
 429                else
 430                {
 431
 432                  $cad_LR.="<e lm=\"$LRlm\" a=\"$user\">\n  <i>$raiz_LR</i>\n  <par n=\"".$array_paradigma_LR[$i+2]."\"".$par_parametre."/>\n</e>\n";
 433                }
 434             }
 435           }
 436
 437         }
 438       $cad_LR=str_replace ("<i></i>\n","", $cad_LR);
 439
 440       }
 441
 442        //Montamos la cadena a insertar en el diccionario ca
 443       $cadparadigma=shell_exec("grep ^$paradigmaRL $path_paradigmasRL");
 444       //La cadena devuelta por el grep la metemos en un array separando las palabras
 445       $array_paradigma_RL=explode("\t",$cadparadigma);
 446       $cad_RL="";
 447
 448       for($i=0; $i<$array_paradigma_RL[1]; $i++) { // Recorremos todos los paradigmas de esta palabra
 449 //afegit per Gema per a acccentuar els verbs en es del fr-es
 450          if($i==1 && $tipo=="mw" && $RL=="es")
 451          {
 452                 $pos=strpos($paradigmaRL,"/");  //se calcula cual es la primera letra a partir del corte en el paradigma
 453                 $primera_letra=$paradigmaRL[$pos+1];
 454                 $raiz_RL=acentuar($raiz_RL,$primera_letra); //se obtiene la raiz del verbo acentuada en es
 455          }
 456 //fi afegit per Gema
 457           $array_paradigma_RL[$i+2]=str_replace ("\n","", $array_paradigma_RL[$i+2]);
 458
 459               if (strpos($array_paradigma_RL[$i+2],"/")==0){
 460                   $raiz_RL="";
 461               }
 462
 463           if($RLcua!=""){
 464
 465              if($direccion==":>:")
 466              {
 467                 $printdir="RL";
 468                 $cad_RL.="<e lm=\"$RLlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_RL</i>\n  <par n=\"".$array_paradigma_RL[$i+2]."\"/>\n  <p>\n    <l>$RLcua</l>\n    <r><g>$RLcua</g></r>\n  </p>\n</e>\n";
 469              }
 470              else
 471              {
 472                if($direccion==":<:")
 473                {
 474                  $printdir="LR";
 475                 $cad_RL.="<e lm=\"$RLlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_RL</i>\n  <par n=\"".$array_paradigma_RL[$i+2]."\"/>\n  <p>\n    <l>$RLcua</l>\n    <r><g>$RLcua</g></r>\n  </p>\n</e>\n";
 476                }
 477
 478                else
 479                {
 480                 $cad_RL.="<e lm=\"$RLlm\" a=\"$user\">\n  <i>$raiz_RL</i>\n  <par n=\"".$array_paradigma_RL[$i+2]."\"/>\n  <p>\n    <l>$RLcua</l>\n    <r><g>$RLcua</g></r>\n  </p>\n</e>\n";
 481                }
 482              }
 483            }
 484            else
 485            {
 486               if($direccion==":>:")
 487               {
 488                 $printdir="RL";
 489                 $cad_RL.="<e lm=\"$RLlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_RL</i>\n  <par n=\"".$array_paradigma_RL[$i+2]."\"/>\n</e>\n";
 490               }
 491               else
 492               {
 493                 if($direccion==":<:")
 494                 {
 495                   $printdir="LR";
 496                   $cad_RL.="<e lm=\"$RLlm\" r=\"$printdir\" a=\"$user\">\n  <i>$raiz_RL</i>\n  <par n=\"".$array_paradigma_RL[$i+2]."\"/>\n</e>\n";
 497                 }
 498
 499                 else
 500                 {
 501                   $cad_RL.="<e lm=\"$RLlm\" a=\"$user\">\n  <i>$raiz_RL</i>\n  <par n=\"".$array_paradigma_RL[$i+2]."\"/>\n</e>\n";
 502                 }
 503               }
 504             }
 505
 506
 507              $cad_RL=str_replace ("<i></i>\n","", $cad_RL);
 508         }
 509
 510      //BILINGUE////////////////////////////////////////////
 511      //Se calcula la cadena a insertar en el bilingue
 512
 513
 514   if($LRcua!="" && $RLcua!="")
 515   {
 516     if($direccion==":>:")
 517     {
 518                 $printdir="LR";
 519                 $cad_bil="<e r=\"".$printdir."\" a=\"$user\">\n  <p>\n    <l>".$LRverb."<g>".$LRcua."</g>".$tag."</l>\n    <r>".$RLverb."<g>".$RLcua."</g>".$tag."</r>\n  </p>\n</e>\n";
 520     }
 521     else
 522     {
 523        if($direccion==":<:")
 524        {
 525           $printdir="RL";
 526           $cad_bil="<e r=\"".$printdir."\" a=\"$user\">\n  <p>\n    <l>".$LRverb."<g>".$LRcua."</g>".$tag."</l>\n    <r>".$RLverb."<g>".$RLcua."</g>".$tag."</r>\n  </p>\n</e>\n";
 527        }
 528        else
 529        {
 530           $cad_bil="<e a=\"$user\">\n  <p>\n    <l>".$LRverb."<g>".$LRcua."</g>".$tag."</l>\n    <r>".$RLverb."<g>".$RLcua."</g>".$tag."</r>\n  </p>\n</e>\n";
 531        }
 532     }
 533
 534   }
 535   else
 536   {
 537
 538      if($LRcua=="" && $RLcua!="")
 539      {
 540
 541         if($direccion==":>:")
 542         {
 543                 $printdir="LR";
 544                 $cad_bil="<e r=\"".$printdir."\" a=\"$user\">\n  <p>\n    <l>".$LRverb.$tag."</l>\n    <r>".$RLverb."<g>".$RLcua."</g>".$tag."</r>\n  </p>\n</e>\n";
 545         }
 546         else
 547         {
 548
 549             if($direccion==":<:")
 550             {
 551
 552                 $printdir="RL";
 553                 $cad_bil="<e r=\"".$printdir."\" a=\"$user\">\n  <p>\n    <l>".$LRverb.$tag."</l>\n    <r>".$RLverb."<g>".$RLcua."</g>".$tag."</r>\n  </p>\n</e>\n";
 554             }
 555             else
 556             {
 557
 558                  $cad_bil="<e a=\"$user\">\n  <p>\n    <l>".$LRverb.$tag."</l>\n    <r>".$RLverb."<g>".$RLcua."</g>".$tag."</r>\n  </p>\n</e>\n";
 559             }
 560          }
 561
 562      }
 563      else
 564      {
 565
 566        if($LRcua!="" && $RLcua=="")
 567        {
 568
 569           if($direccion==":>:")
 570           {
 571                 $printdir="LR";
 572                 $cad_bil="<e r=\"".$printdir."\" a=\"$user\">\n  <p>\n    <l>".$LRverb."<g>".$LRcua."</g>".$tag."</l>\n    <r>".$RLverb.$tag."</r>\n  </p>\n</e>\n";
 573           }
 574           else
 575           {
 576              if($direccion==":<:")
 577              {
 578                 $printdir="RL";
 579                 $cad_bil="<e r=\"".$printdir."\" a=\"$user\">\n  <p>\n    <l>".$LRverb."<g>".$LRcua."</g>".$tag."</l>\n    <r>".$RLverb.$tag."</r>\n  </p>\n</e>\n";
 580              }
 581              else
 582              {
 583                  $cad_bil="<e a=\"$user\">\n  <p>\n    <l>".$LRverb."<g>".$LRcua."</g>".$tag."</l>\n    <r>".$RLverb.$tag."</r>\n  </p>\n</e>\n";
 584              }
 585           }
 586         }
 587       }
 588     }
 589
 590
 591        //Si la traducción es unidireccional y ya existe el lema entonces no se inserta nada en el dic.
 592       if($direccion==":>:" && strlen($warning)>0)
 593       {
 594                 $warning_LR="It is not necessary to put it in the dictionary (".$LR.").<br/>";
 595                 $cad_RL="";
 596       }
 597       if($direccion==":<:" && strlen($warning)>0)
 598       {
 599                 $warning_RL="It is not necessary to put it in the dictionary (".$RL.").<br/>";
 600                 $cad_LR="";
 601       }
 602
 603
 604       echo "<br/><br/>\n";
 605       echo "<div class=\"area\">\n";
 606       echo "<p style=\"font-weight: bold\">Dictionary entries (".$LR.")</p>\n";
 607       echo "<textarea name=\"cad_LR\"  cols=\"70\" rows=\"7\">".$comentarios.$cad_LR."</textarea>\n";
 608       if (strlen($warning)>0) {
 609          echo "<br/><b class=\"adv\">ADVERTENCIA: </b><br/>".$warningLR;
 610       }
 611       echo "</div>\n";
 612       echo "<div class=\"area\">\n";
 613       echo "<p style=\"font-weight: bold\">Dictionary entries (".$LR."-".$RL.")</p>\n";
 614       echo "<textarea name=\"cad_bil\" cols=\"70\" rows=\"6\">".$comentarios.$cad_bil."</textarea>\n";
 615       echo "</div>\n";
 616       echo "<div class=\"area\">\n";
 617       echo "<p style=\"font-weight: bold\">Dictionary entries (".$RL.")</p>\n";
 618       echo "<textarea name=\"cad_RL\"  cols=\"70\" rows=\"7\">".$comentarios.$cad_RL."</textarea>\n";
 619       if (strlen($warning)>0) {
 620          echo "<br/><b class=\"adv\">ADVERTENCIA: </b><br/>".$warning_RL;
 621       }
 622       echo "</div>\n";
 623
 624       echo "<input type=\"hidden\" name=\"LR\"value=\"$LR\" >";
 625       echo "<input type=\"hidden\" name=\"RL\"value=\"$RL\" >";
 626
 627
 628       echo "<div class=\"area\">\n";
 629       echo "<label><input class=\"button\" type=\"button\" value=\"<< Go back\" onclick=\"history.go(-1)\"></label>\n";
 630
 631         if ($valida==1){  //si se esta validando se pone un botón para borrar la palabra actual
 632                 echo "<label><input class=\"submit\" type=\"submit\" name=\"accion\" value=\"Delete\" /></label>\n";
 633         }
 634
 635       echo "<label><input class=\"submit\" type=\"submit\"  name=\"accion\" value=\"Insert >>\"></label>\n";
 636       echo "</div>\n";
 637       echo "</form>\n";
 638
 639
 640       echo "<!-- ##### Footer ##### -->\n";
 641
 642       echo "<div id=\"footer\">\n";
 643
 644       echo "<div><a href=\"http://www.dlsi.ua.es\">\n";
 645       echo "Departament de Llenguatges i Sistemes Informàtics</a>, Universitat\n";
 646       echo "d'Alacant, 2006 | Last modified 20.02.2006<!-- by <a\n";
 647       echo "href=\"mailto:sortiz@dlsi.ua.es\" title=\"Envíame un correo\">Sergio\n";
 648       echo "Ortiz</a> -->\n";
 649       echo "</div>\n";
 650
 651       echo "</div>\n";
 652
 653       echo "</body>\n";
 654       echo "</html>\n";
 655
 656
 657
 658       //Esperamos confirmación del usuario para la inserción.
 659    }
 660    else if ($accion=="Insert >>") {
 661
 662
 663       $cad_LR=str_replace("\\'","'",$cad_LR);
 664       $cad_bil=str_replace("\\'","'",$cad_bil);
 665       $cad_RL=str_replace("\\'","'",$cad_RL);
 666
 667
 668       system("echo -n \"$cad_LR\" >>$fich_LR", $retval);
 669       if($retval!=0) { // Se produjo un error en la inserción
 670          print("<center><h2>ERROR!</h2><br><br>
 671                 <h2>La entrada no ha podido ser insertada en el fichero '$fich_LRRL'.</h2><br>
 672                 <h3>Probablemente se trate de un problema de permisos.</h3><br><br>
 673                 </center>");
 674       }
 675
 676       system("echo -n \"$cad_bil\" >>$fich_LRRL", $retval);
 677       if($retval!=0) { // Se produjo un error en la inserción
 678          print("<center><h2>ERROR!</h2><br><br>
 679                 <h2>La entrada no ha podido ser insertada en el fichero '$fich_bil'.</h2><br>
 680                 <h3>Probablemente se trate de un problema de permisos.</h3><br><br>
 681                 </center>");
 682       }
 683       system("grep $cad_bil $fich_LRRL >/dev/null", $retval);
 684       if ($retval==0)
 685          print("<center><h2>ERROR de tipo desconocido</h2><br><br>
 686          <h2>La entrada no ha podido ser insertada en el fichero '$fich_bil'.</h2><br>
 687          <br><br>
 688          </center>");
 689
 690
 691       system("echo -n \"$cad_RL\" >>$fich_RL", $retval);
 692       if($retval!=0) { // Se produjo un error en la inserción
 693          print("<center><h2>ERROR!<br>
 694                 <h2>La entrada no ha podido ser insertada en el fichero '$fich_RLLR'.</h2><br>
 695                 <h3>Probablemente se trate de un problema de permisos.</h3><br><br>
 696                 </center>");
 697       }
 698
 699
 700         echo "<div class=\"area\">\n";
 701         echo "<br/><a style=\"text-align: center\" href=\"/prototype/webform\" >New word</a><br/>\n";
 702         echo "<h3>Thanks and see you soon!</h3>\n";
 703         echo "<input type=\"button\" value=\"Close\" onclick=\"cierra()\"><br/><br/>\n";
 704         echo "</div>\n";
 705
 706         echo "</form>\n";
 707
 708
 709         echo "<!-- ##### Footer ##### -->\n";
 710
 711         echo "<div id=\"footer\">\n";
 712
 713         echo "<div><a href=\"http://www.dlsi.ua.es\">\n";
 714         echo "Departament de Llenguatges i Sistemes Informàtics</a>, Universitat\n";
 715         echo " d'Alacant, 2005 | Last modified 30.09.2005.<!-- by <a\n";
 716         echo "href=\"mailto:sortiz@dlsi.ua.es\" title=\"Envíame un correo\">Sergio\n";
 717         echo "Ortiz</a> -->\n";
 718         echo "</div>\n";
 719
 720        echo "</div>\n";
 721
 722    }
 723 ?>
 724 </body>
 725 </html>