Libreria de Perl terminada.

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

diff --git a/sistema/www/sistemas/sistemas-datos.php b/sistema/www/sistemas/sistemas-datos.php
index 0353dd7b01287117e0f8425befe41cfbb14fd4e3..271abf63b04f7f997ef6c2883eb0361b457a9eb5 100644 (file)
--- a/sistema/www/sistemas/sistemas-datos.php
+++ b/sistema/www/sistemas/sistemas-datos.php
@@ -20,6 +20,10 @@
 // $Id$
 // 
 
+//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
+$SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
+//}}}
+
 //REQUIRE ONCE {{{
     //MECON {{{
     require_once 'MECON/HTML/QuickForm.php';
@@ -28,7 +32,7 @@
     //SAMURAI {{{
     require_once 'SAMURAI/Sistema.php';
     //}}}
-    require_once 'HTML/Image.php';
+    require_once 'MECON/HTML/Image.php';
     require_once 'HTML/Page.php';
 // }}}
 
@@ -43,6 +47,7 @@
                                         'language' => 'es',
                                         'cache'    => 'false',
                                         'simple'   => 'true'));
+        $PAGE->addStyleSheet('/MECON/css/marco.css');
         $FORM    = new MECON_HTML_QuickForm ('sistemas_datos','post','sistemas-datos');
         $SISTEMA = new SAMURAI_Sistema ($DB, $_GET['id_sistema']);
     }
@@ -69,7 +74,7 @@
 
 //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 Sistema');
     $PAGE->display();