Libreria de Perl terminada.

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

diff --git a/sistema/www/perfiles/perfiles-abm.php b/sistema/www/perfiles/perfiles-abm.php
index b770d57b4237cd95c973f19761de0c6b116cfa20..a4aad201372cee149148f85cbf1adf721a2f090e 100644 (file)
--- a/sistema/www/perfiles/perfiles-abm.php
+++ b/sistema/www/perfiles/perfiles-abm.php
@@ -20,9 +20,7 @@
 // $Id$
 // 
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
-    if (!$SAMURAI_PERM->tiene(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL)) {
-//        header('Location: error')
-    }
+$SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF, SAMURAI_PERM_DEVELOPER);
 //}}}
 
 // REQUIRE_ONCE {{{
@@ -32,7 +30,7 @@
     require_once 'SAMURAI/Perfil.php';
     require_once 'SAMURAI/Permiso.php';
     require_once 'SAMURAI/Sistema.php';
-    require_once 'HTML/Image.php';
+    require_once 'MECON/HTML/Image.php';
 // }}}
 //CREO LOS OBJETO NECESARIOS {{{
     if (@$_GET['id_perfil']) {
@@ -46,13 +44,14 @@
     }
     $FORM = new MECON_HTML_QuickForm ('perfiles_abm','post','perfiles-abm');
     $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
-    $PERFIL = new SAMURAI_Perfil ($DB, $id_perfil);
+    $PERFIL = new SAMURAI_Perfil ($DB, $id_perfil,
+            $_SESSION['samurai']['id_sistema']);
 
     if ($PERFIL->getResponsable()) {
         $responsable = $PERFIL->getResponsable();
     }
     else {
-        $responsable = $_SESSION['samurai']['login'];
+        $responsable = $_SESSION['usuario'];
     }
     
     if (!@$_GET['id_perfil']) {
@@ -81,9 +80,6 @@
         $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
         $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
         $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
-        if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
-            $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
-        }
         $FORM->addElement ('hidden', 'responsable', $responsable);
         $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
         $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\'perfiles\';return false;'));
@@ -102,10 +98,6 @@
         $id_perfil    =& $FORM->getElement  ('id_perfil'  );
         $desc_perfil  =& $FORM->getElement  ('desc_perfil');
         $permisos     =& $FORM->getElement  ('permisos'   );
-        
-        if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
-            $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
-        }
         $responsable  =& $FORM->getElement  ('responsable');
         $group        =& $FORM->getElement  ('botones'    );
         $group        =& $group->getElements('aceptar'    );
@@ -113,10 +105,6 @@
 
         $permisos->setSelected($PERFIL->getPermisos());
         
-        if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
-            $tipo_perfil->setSelected($PERFIL->getTipo());
-        }
-
         if ($PERFIL->getResponsable() != '') {
             $responsable->setValue($PERFIL->getResponsable());
         }
@@ -144,11 +132,6 @@
             $id_perfil    =& $FORM->getElement  ('id_perfil'  );
             $desc_perfil  =& $FORM->getElement  ('desc_perfil');
             $permisos     =& $FORM->getElement  ('permisos'   );
-            
-            if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
-                $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
-                $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
-            }
             $responsable  =& $FORM->getElement  ('responsable');
             $group        =& $FORM->getElement  ('botones'    );
             $group        =& $group->getElements('aceptar'    );
@@ -158,10 +141,6 @@
             $PERFIL->setResponsable($responsable->getValue());
             $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
             
-            if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
-                $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
-            }
-            
             //Grabo y verifico si se produjo algun error
             $res = $PERFIL->guardarDatos($aceptar->getValue());
 
@@ -179,9 +158,9 @@
     }
 // }}}
 //DIBUJO LA PAGINA {{{
-    $imagen = new HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
+    $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
     $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
-    $TABLA3 = new Tabla ('cellspacing=0');
+    $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
     $TABLA3->addRow($row,'align=left');    
 
     $MARCO->addTitle('ABM Perfil');