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 1ffb1a61d487265edba5c4429889242e0e27ed3c..82ba011b4ee1ce607bcbd8fa153157ea9cfb4173 100644 (file)
--- a/sistema/www/perfiles/perfiles-datos.php
+++ b/sistema/www/perfiles/perfiles-datos.php
@@ -20,6 +20,9 @@
 // $Id$
 // 
 
 // $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';
 //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 'SAMURAI/Permiso.php';
     require_once 'SAMURAI/Sistema.php';
     //}}}

-    require_once 'HTML/Image.php';
+    require_once 'MECON/HTML/Image.php';

     require_once 'HTML/Page.php';
 // }}}
 
     require_once 'HTML/Page.php';
 // }}}
 


@@ -45,14 +48,16 @@
                                         'language' => 'es',
                                         'cache'    => 'false',
                                         'simple'   => 'true'));
                                         'language' => 'es',
                                         'cache'    => 'false',
                                         'simple'   => 'true'));

+        $PAGE->addStyleSheet('/MECON/css/marco.css');

         $FORM    = new MECON_HTML_QuickForm ('perfil_datos','post','perfil-datos');
         $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']);
     }
 // }}}
         $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
     }
 // }}}

-

 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
     $ASOCIACIONES = $SISTEMA->getAsociaciones();
 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
     $ASOCIACIONES = $SISTEMA->getAsociaciones();

+

     $PERMISOS = array ();
     foreach ($ASOCIACIONES as $as) {
         $clave = $as['id'].'##'.$as['obs'];
     $PERMISOS = array ();
     foreach ($ASOCIACIONES as $as) {
         $clave = $as['id'].'##'.$as['obs'];


@@ -60,31 +65,19 @@
         $PERMISOS[$clave] = $texto;
     }
 // }}}
         $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'));
 //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);
     $perf->setSelected($PERFIL->getPermisos());
     $FORM->freeze();
 // }}}
 
 //DIBUJO LA PAGINA {{{
     $PAGE->addBodyContent($FORM);

-    $PAGE->addBodyContent(new HTML_Image('/MECON/images/general_cerrar.gif', 'Cerrar', array ('border'=>'0', 'onClick'=>'self.close();return false;')));
+    $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
     $PAGE->display();                          
 // }}}
 //FIN