Se hace el display antes del exit en el dump().

[mecon/meconlib.git] / lib / MECON / Marco / Copete.php

diff --git a/lib/MECON/Marco/Copete.php b/lib/MECON/Marco/Copete.php
index fb1a8fe76a7e805a70229ad7598c092104c8bb76..6fb48200d1bdff319b5d9219dc1c638894ce5539 100644 (file)
--- a/lib/MECON/Marco/Copete.php
+++ b/lib/MECON/Marco/Copete.php
@@ -24,14 +24,11 @@ Autor:  Martin Marrese <mmarre@mecon.gov.ar>
 $Id$
 -----------------------------------------------------------------------------*/
 
-require_once 'PEAR.php';
+require_once 'MECON/HTML/Image.php';
 
-
-// +X2C Class 9 :MECON_Marco_Copete
 /**
  * Manejo del copete de los sistemas que utilizan MECON_Marco
  *
- * @package MECON_Marco
  * @access public
  */
 class MECON_Marco_Copete {
@@ -43,42 +40,93 @@ class MECON_Marco_Copete {
      */
     var $_directorio = '';
 
-    // ~X2C
+    /**
+     * String con la referencia y los getvars de la ayuda
+     *
+     * @var    string $ayuda
+     * @access private
+     */
+    var $_ayuda = null;
 
-    // +X2C Operation 34
     /**
-     * Recibe el nombre del directorio en donde se encuentra instalado el sistema. El directorio es case sensitive.
+     * Nombre del sistema.
+     *
+     * @private
+     */
+    var $_sistema = '';
+
+    /**
+     * 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 MECON_Marco_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" alt="">';
+            $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 Class :MECON_Marco_Copete
 
+}
 ?>
\ No newline at end of file