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 1ed8d2c420b081d9519cdd4d692b3ffd6078d4f3..82ba011b4ee1ce607bcbd8fa153157ea9cfb4173 100644 (file)
--- a/sistema/www/perfiles/perfiles-datos.php
+++ b/sistema/www/perfiles/perfiles-datos.php
@@ -20,6 +20,9 @@
 // $Id$
 // 
 
+//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
+$SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF, SAMURAI_PERM_DEVELOPER);
+//}}}
 //REQUIRE ONCE {{{
     //MECON {{{
     require_once 'MECON/HTML/QuickForm.php';
@@ -30,7 +33,7 @@
     require_once 'SAMURAI/Permiso.php';
     require_once 'SAMURAI/Sistema.php';
     //}}}
-    require_once 'HTML/Image.php';
+    require_once 'MECON/HTML/Image.php';
     require_once 'HTML/Page.php';
 // }}}
 
@@ -45,14 +48,16 @@
                                         'language' => 'es',
                                         'cache'    => 'false',
                                         'simple'   => 'true'));
+        $PAGE->addStyleSheet('/MECON/css/marco.css');
         $FORM    = new MECON_HTML_QuickForm ('perfil_datos','post','perfil-datos');
-        $PERFIL  = new SAMURAI_Perfil($DB, $_GET['id_perfil']);
+        $PERFIL  = new SAMURAI_Perfil($DB, $_GET['id_perfil'],
+                $_SESSION['samurai']['id_sistema']);
         $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
     }
 // }}}
-
 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
     $ASOCIACIONES = $SISTEMA->getAsociaciones();
+
     $PERMISOS = array ();
     foreach ($ASOCIACIONES as $as) {
         $clave = $as['id'].'##'.$as['obs'];
@@ -60,32 +65,19 @@
         $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();
 // }}}
 
 //DIBUJO LA PAGINA {{{
     $PAGE->addBodyContent($FORM);
-    $imagen = new HTML_Image('/MECON/images/general_cerrar.gif');
+    $imagen = new MECON_HTML_Image('/MECON/images/general_cerrar.gif');
     $PAGE->addBodyContent('<a href="" onClick=\'self.close();return false;\'>'.$imagen->toHtml().'</a>');
+    $PAGE->setTitle('Datos del Perfil');
     $PAGE->display();                          
 // }}}
 //FIN