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 b0523efb33a82f6d6145c79544de916bcb341c51..a4aad201372cee149148f85cbf1adf721a2f090e 100644 (file)
--- a/sistema/www/perfiles/perfiles-abm.php
+++ b/sistema/www/perfiles/perfiles-abm.php
@@ -19,6 +19,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 {{{
     require_once 'MECON/HTML/QuickForm.php';
@@ -27,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']) {
@@ -41,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']) {
@@ -76,7 +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'));
-        $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;'));
@@ -95,15 +98,13 @@
         $id_perfil    =& $FORM->getElement  ('id_perfil'  );
         $desc_perfil  =& $FORM->getElement  ('desc_perfil');
         $permisos     =& $FORM->getElement  ('permisos'   );
-        $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
         $responsable  =& $FORM->getElement  ('responsable');
         $group        =& $FORM->getElement  ('botones'    );
         $group        =& $group->getElements('aceptar'    );
         $aceptar      =& $group[0];
 
         $permisos->setSelected($PERFIL->getPermisos());
-        $tipo_perfil->setSelected($PERFIL->getTipo());
-
+        
         if ($PERFIL->getResponsable() != '') {
             $responsable->setValue($PERFIL->getResponsable());
         }
@@ -131,8 +132,6 @@
             $id_perfil    =& $FORM->getElement  ('id_perfil'  );
             $desc_perfil  =& $FORM->getElement  ('desc_perfil');
             $permisos     =& $FORM->getElement  ('permisos'   );
-            $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
-            $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
             $responsable  =& $FORM->getElement  ('responsable');
             $group        =& $FORM->getElement  ('botones'    );
             $group        =& $group->getElements('aceptar'    );
@@ -141,7 +140,6 @@
             $PERFIL->setDescripcion($desc_perfil->_text     );
             $PERFIL->setResponsable($responsable->getValue());
             $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
-            $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
             
             //Grabo y verifico si se produjo algun error
             $res = $PERFIL->guardarDatos($aceptar->getValue());
@@ -160,12 +158,11 @@
     }
 // }}}
 //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 = new Marco ('../../conf/confSecciones.php');
     $MARCO->addTitle('ABM Perfil');
     $MARCO->addBody($TABLA3);
     if (isset($ERROR)) {