Libreria de Perl terminada.

[mecon/samurai.git] / sistema / www / perfiles / perfiles-datos.php

diff --git a/sistema/www/perfiles/perfiles-datos.php b/sistema/www/perfiles/perfiles-datos.php
index 982fd6e386ab3073721123fb99458209153c3afd..82ba011b4ee1ce607bcbd8fa153157ea9cfb4173 100644 (file)
--- a/sistema/www/perfiles/perfiles-datos.php
+++ b/sistema/www/perfiles/perfiles-datos.php
@@ -65,23 +65,10 @@ $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURA
         $PERMISOS[$clave] = $texto;
     }
 // }}}
-//TRADUZCO EL TIPO DE PERFIL {{{
-    $TipoPerfil = $PERFIL->getTipo();
-    
-    switch ($TipoPerfil) {
-        case 'I':   $TipoPerfil = 'Interno';
-                    break;
-        case 'E':   $TipoPerfil = 'Externo';
-                    break;
-        case 'D':   $TipoPerfil = 'Dios';
-                    break;
-    }
-//}}}
 //AGREGO LOS ELEMENTOS AL FORM {{{
     $FORM->addElement         ('static', 'id_perfil'  , 'Id Perfil'    , $PERFIL->getId()              );
     $FORM->addElement         ('static', 'desc_perfil', 'Descricion'   , $PERFIL->getDescripcion()     );
     $perf =& $FORM->addElement('select', 'permisos'   , 'Permisos'     , $PERMISOS, array ('size'=>'5'));
-    $FORM->addElement         ('static', 'tipo_perfil', 'Tipo Perfil'  , $TipoPerfil                   );
     $perf->setSelected($PERFIL->getPermisos());
     $FORM->freeze();
 // }}}