X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/f1e8dd28b05b78b0992493d8508bddaab2bd13d6..e16973f3e09a6f9624cc3f10a1f0a365763bb69f:/lib/MECON/Marco/Copete.php

diff --git a/lib/MECON/Marco/Copete.php b/lib/MECON/Marco/Copete.php
index 5ba73ce..6fb4820 100644
--- a/lib/MECON/Marco/Copete.php
+++ b/lib/MECON/Marco/Copete.php
@@ -1,96 +1,132 @@
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +----------------------------------------------------------------------+
-// | PHP Version 4                                                        |
-// +----------------------------------------------------------------------+
-// | Copyright (c) 1997-2003 The PHP Group                                |
-// +----------------------------------------------------------------------+
-// | This source file is subject to version 2.02 of the PHP license,      |
-// | that is bundled with this package in the file LICENSE, and is        |
-// | available at through the world-wide-web at                           |
-// | http://www.php.net/license/2_02.txt.                                 |
-// | If you did not receive a copy of the PHP license and are unable to   |
-// | obtain it through the world-wide-web, please send a note to          |
-// | license@php.net so we can mail you a copy immediately.               |
-// +----------------------------------------------------------------------+
-// | Created: Mon Apr 14 16:23:22 2003
-// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
-// +----------------------------------------------------------------------+
-//
-// $Id$
-//
-// $Author$
-// $URL$
-// $Date$
-// $Rev$
-//
+<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
+-------------------------------------------------------------------------------
+                             Ministerio de Economía
+                                    meconlib
+-------------------------------------------------------------------------------
+This file is part of meconlib.
 
-require_once 'PEAR.php';
+meconlib is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2 of the License, or (at your option)
+any later version.
 
+meconlib is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+ 
+You should have received a copy of the GNU General Public License; if not,
+write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+Boston, MA  02111-1307  USA
+-------------------------------------------------------------------------------
+Creado: Mon Apr 14 16:23:22 2003
+Autor:  Martin Marrese <mmarre@mecon.gov.ar>
+-------------------------------------------------------------------------------
+$Id$
+-----------------------------------------------------------------------------*/
+
+require_once 'MECON/HTML/Image.php';
 
-// +X2C Class 9 :Copete
 /**
- * Clase para el manejo de los copetes de los sistemas integrantes de intranet. Recibe el directorio porque debe obtener la imagen del directorio especificado.
+ * Manejo del copete de los sistemas que utilizan MECON_Marco
  *
  * @access public
  */
-class Copete {
+class MECON_Marco_Copete {
     /**
      * Nombre del directorio en donde se encuentra el sistema. Es case sensitive.
      *
      * @var    string $directorio
      * @access private
      */
-    var $_directorio;
+    var $_directorio = '';
 
-    // ~X2C
+    /**
+     * String con la referencia y los getvars de la ayuda
+     *
+     * @var    string $ayuda
+     * @access private
+     */
+    var $_ayuda = null;
+
+    /**
+     * Nombre del sistema.
+     *
+     * @private
+     */
+    var $_sistema = '';
 
-    // +X2C Operation 34
     /**
-     * Constructor. Recibe el nombre del directorio en donde se encuentra instalado el sistema. El directorio es case sensitive.
+     * Recibe el nombre del directorio en donde se encuentra instalado el sistema. 
+     * El directorio es case sensitive.
      *
      * @param  string $directorio Nombre del directorio en donde se encuentra el sistema.
+     * @param  mixed $ayuda Objeto MECON_HTML_Link o string para armar el map de la ayuda.
+     * @param  string $sistema Nombre del sistema con el cual se esta trabajando.
      *
      * @return void
      * @access public
      */
-    function Copete($directorio) // ~X2C
+    function MECON_Marco_Copete($directorio, $ayuda = null, $sistema = '') 
     {
         $this->_directorio  = $directorio;
+        $this->_sistema     = $sistema;
+        if (@$ayuda) {
+            if (is_object($ayuda)) {
+                $val = $ayuda->getHref();
+                foreach ($ayuda->getGetVars() as $var => $v) {
+                    if (is_object($v) and method_exists($v, 'tostring')) {
+                        $v = $v->tostring();
+                    } elseif (is_object($v) or is_array($v)) {
+                        $v = serialize($v);
+                    }
+                    $vars[] = urlencode($var) . '=' . urlencode($v);
+                }
+                if ($vars) {
+                    $val .= '?' . join('&', $vars);
+                }
+                $this->_ayuda = $val;
+            }
+            else {
+                $this->_ayuda = $ayuda;
+            }
+        }
     }
-    // -X2C
 
-    // +X2C Operation 35
     /**
      * Funcion que devuelve el string html a imprimir en pantalla.
      *
      * @return string
      * @access public
      */
-    function toHtml() // ~X2C
+    function toHtml() 
     {
         if (!is_null($this->_directorio)) {
-            return '<img src="'.$this->_directorio.'/copete.jpg">';
+            $image = new MECON_HTML_Image(
+                $this->_directorio.'/copete',
+                'Intranet - Ministerio de Economía - ' . $this->_sistema,
+                array(
+                    'width' => 760,
+                    'height' => 42,
+                    'border' => 0,
+                )
+            );
+            if (@$this->_ayuda) {
+                $image->updateAttributes(array('usemap' => '#Map_copete'));
+                $image->setSrc($image->getSrc() . '_ayuda');
+                return $image->toHtml() . 
+                    '<map name="Map_copete">'.
+                    '<area shape="circle" coords="748,30,7" href="'. 
+                    $this->_ayuda . '"></map>';                
+            }
+            else {
+                return $image->toHtml();
+            }
         }
         else {
             return '';
         }
     }
-    // -X2C
-
-    // +X2C Operation 94
-    /**
-     * Funcion que devuelve el html de la imagen a incluir.
-     *
-     * @return string
-     * @access public
-     */
-    function darCopete() // ~X2C
-    {
-        return '<img src="'.$this->_directorio.'/copete.jpg">';
-    }
-    // -X2C
 
-} // -X2C Class :Copete
 
-?>
+}
+?>
\ No newline at end of file