Se mejora un poco los ALT para navegadores de texto.

[mecon/meconlib.git] / lib / MECON / HTML / Link.php

diff --git a/lib/MECON/HTML/Link.php b/lib/MECON/HTML/Link.php
index b1835c194f8d46a05d74ac28aba8991e12835332..dc86a688f47ca5bed5943667dff286f52f40c3db 100644 (file)
--- a/lib/MECON/HTML/Link.php
+++ b/lib/MECON/HTML/Link.php
@@ -24,11 +24,8 @@ Autor:  @@author <@@email>
 $Id$
 -----------------------------------------------------------------------------*/
 
-// +X2C includes
 require_once 'HTML/Common.php';
-// ~X2C
 
-// +X2C Class 892 :MECON_HTML_Link
 /**
  * HTML Link representation.
 When adding GET variables, if the value is an object, it looks for a toString() method, if it doesn't exists or if is an array, it serializes the object/array to get a string value.
@@ -64,6 +61,7 @@ class MECON_HTML_Link extends HTML_Common {
     {
         return $this->_getVars;
     }
+
     /**
      * Sets GetVars.
      *
@@ -77,9 +75,6 @@ class MECON_HTML_Link extends HTML_Common {
         $this->_getVars = $getVars;
     }
 
-    // ~X2C
-
-    // +X2C Operation 178
     /**
      * Constructor.
      *
@@ -91,10 +86,13 @@ class MECON_HTML_Link extends HTML_Common {
      * @return void
      * @access public
      */
-    function MECON_HTML_Link($href = '', $contents = '', $getVars = array(), $attrs = array()) // ~X2C
+    function MECON_HTML_Link($href = '', $contents = '', $getVars = array(), $attrs = array())
     {
         if (is_array($attrs)) {
             $attrs['href'] = $href;
+            if (!isset($attrs['class'])){
+                $attrs['class'] = 'mecon_html_link';
+            }
         } else {
             $attrs .= " href=$href";
         }
@@ -102,16 +100,14 @@ class MECON_HTML_Link extends HTML_Common {
         $this->_getVars = $getVars;
         $this->addContents($contents);
     }
-    // -X2C
 
-    // +X2C Operation 179
     /**
      * Converts to HTML output.
      *
      * @return string
      * @access public
      */
-    function toHtml() // ~X2C
+    function toHtml()
     {
         $attrs = '';
         foreach ($this->getAttributes() as $key => $val) {
@@ -120,10 +116,16 @@ class MECON_HTML_Link extends HTML_Common {
                 foreach ($this->_getVars as $var => $v) {
                     if (is_object($v) and method_exists($v, 'tostring')) {
                         $v = $v->tostring();
-                    } elseif (is_object($v) or is_array($v)) {
+                    } elseif (is_object($v)) {
                         $v = serialize($v);
                     }
-                    $vars[] = urlencode($var) . '=' . urlencode($v);
+                    if (is_array($v)) {
+                        foreach ($v as $i) {
+                            $vars[] = urlencode($var) . '[]=' . urlencode($i);
+                        }
+                    } else {
+                        $vars[] = urlencode($var) . '=' . urlencode($v);
+                    }
                 }
                 if ($vars) {
                     $val .= '?' . join('&', $vars);
@@ -135,22 +137,18 @@ class MECON_HTML_Link extends HTML_Common {
         }
         return "<A$attrs>" . $this->getContents() . '</A>';
     }
-    // -X2C
 
-    // +X2C Operation 180
     /**
      * Gets hypertext reference.
      *
      * @return string
      * @access public
      */
-    function getHref() // ~X2C
+    function getHref()
     {
         return $this->getAttribute('href');
     }
-    // -X2C
 
-    // +X2C Operation 181
     /**
      * Sets hypertext reference.
      *
@@ -159,13 +157,11 @@ class MECON_HTML_Link extends HTML_Common {
      * @return void
      * @access public
      */
-    function setHref($href) // ~X2C
+    function setHref($href)
     {
         $this->updateAttributes(array('href' => $href));
     }
-    // -X2C
 
-    // +X2C Operation 182
     /**
      * Set a GET variable.
      *
@@ -175,13 +171,11 @@ class MECON_HTML_Link extends HTML_Common {
      * @return void
      * @access public
      */
-    function setGetVar($key, $value) // ~X2C
+    function setGetVar($key, $value)
     {
         $this->_getVars[$key] = $value;
     }
-    // -X2C
 
-    // +X2C Operation 183
     /**
      * Updates GET variables.
      *
@@ -191,13 +185,11 @@ If they doesn't exists, they are added, if they exists, they are updated.
      * @return void
      * @access public
      */
-    function updateGetVars($vars) // ~X2C
+    function updateGetVars($vars)
     {
         $this->_getVars += $vars;
     }
-    // -X2C
 
-    // +X2C Operation 184
     /**
      * Unsets (removes) GET variables. This method supports variable arguments.
      *
@@ -206,16 +198,14 @@ If they doesn't exists, they are added, if they exists, they are updated.
      * @return void
      * @access public
      */
-    function unsetGetVars($key) // ~X2C
+    function unsetGetVars($key)
     {
         $keys = func_get_args();
         foreach ($keys as $key) {
             unset($this->_getVars[$key]);
         }
     }
-    // -X2C
 
-    // +X2C Operation 185
     /**
      * Adds contents to the link.
      *
@@ -224,18 +214,16 @@ If they doesn't exists, they are added, if they exists, they are updated.
      * @return void
      * @access public
      */
-    function addContents($contents) // ~X2C
+    function addContents($contents)
     {
         $this->_contents[] = $contents;
     }
-    // -X2C
 
-    // +X2C Operation 186
     /**
      * @return string
      * @access public
      */
-    function getContents() // ~X2C
+    function getContents()
     {
         $html = '';
         foreach ($this->_contents as $c) {
@@ -247,21 +235,29 @@ If they doesn't exists, they are added, if they exists, they are updated.
         }
         return $html;
     }
-    // -X2C
 
-    // +X2C Operation 187
     /**
      * @param  mixed $contents New link contents.
      *
      * @return void
      * @access public
      */
-    function setContents($contents) // ~X2C
+    function setContents($contents)
     {
         $this->_contents = array($contents);
     }
-    // -X2C
 
-} // -X2C Class :MECON_HTML_Link
+    /**
+     * @param  mixed $contents New link contents.
+     *
+     * @return void
+     * @access public
+     */
+    function getCSS()
+    {
+        return '/MECON/css/html/link';
+    }
+
+}
 
 ?>
\ No newline at end of file