- Agregue el objeto Estilo que maneja los estilos del sistema.

diff --git a/marco/php/marco/Estilo.php b/marco/php/marco/Estilo.php
new file mode 100644 (file)
index 0000000..ed6ce29
--- /dev/null
+++ b/marco/php/marco/Estilo.php
@@ -0,0 +1,96 @@
+<?php
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
+// +--------------------------------------------------------------------+
+// |                            Estilo                                  |
+// +--------------------------------------------------------------------+
+// |   Liberia generica para el manejo de los estilos de los sistemas   |
+// |                      Ministerio de Economía                        |
+// +--------------------------------------------------------------------+
+// | Creado: thu apr 03 ART 2003                                        |
+// | Autor:  Martin Marrese <mmarre@mecon.gov.ar>                       |
+// +--------------------------------------------------------------------+
+// 
+// $Id$
+// 
+// $URL$
+// $Rev$
+// $Date$
+// $Author$
+
+require_once 'PEAR.php';
+
+define (ESTILO_GENERICO, 'www/css/estilos.js');
+
+/**
+ * Manejo de los Estilos
+ *
+ * Libreria para le manejo de los estilos para los sistemas de intranet.
+ *
+ * @version $Rev$
+ * @author  $Author$
+ */
+
+class Estilo extends PEAR {
+
+    /**
+     * Directorio del sistema
+     *
+     * @var string
+     */
+    var $_directorio
+
+   /**
+     * Array con archivos de estilos agregdos
+     *
+     * @var array
+     */
+    var $_archivos
+
+    /**
+     * Constructor. 
+     *
+     * Recibe como parametro el directorio sistema. Es case sensitive.
+     *
+     * @param string $directorio
+     * 
+     * @access public
+     */
+    function Estilo ($directorio) 
+    {
+        $this->_directorio  = $directorio;
+        $this->_archivos    = array ();
+    }
+
+    /**
+     * Funcion que devuelve el html a mostrar 
+     *
+     * @access public
+     */
+    function toHtml () 
+    {
+
+        $TEXTO = "\n".'<link rel="StyleSheet" href="'.ESTILO_GENERICO.'">'."\n";        
+        foreach ($this->_archivos as $archivo) {
+            $TEXTO.= "\n".'<link rel="StyleSheet" href="www/sistemas'.$this->_directorio.'/www/css/"'.$archivo.'>'."\n";
+        }        
+        return $TEXTO;
+    }
+
+    /**
+     * Agrego archivos de estilo
+     *
+     * Funcion que permite agregar archivos con estilos ademas del
+     * archivo generico de estilos. Recibe como parametro el nombre
+     * del archivo. Este lo va a buscar en el subdirectorio css del 
+     * directorio www del sistema.
+     *
+     * @param string $archivo
+     *
+     * @access public
+     */
+    function agregarArchivo($archivo)
+    {
+        array_push($this->_archivos, $archivo);
+    }
+}
+?>