- Se usa el nuevo metodo addMenuVertical() de Marco.

[mecon/ai.git] / lib / AI / Form.php

diff --git a/lib/AI/Form.php b/lib/AI/Form.php
index 5cc482e6f7b6cac818c9375289415c2d88a183bc..38e9262d7f3c3d290be1f01ecf622837178fb098 100644 (file)
--- a/lib/AI/Form.php
+++ b/lib/AI/Form.php
@@ -50,7 +50,7 @@ class AI_Form extends MECON_HTML_QuickForm {
      * Construye un formulario para el objecto especificado.
      *
      * @param  object &$obj Objeto con el cual rellenar el formulario. Puede ser GrupoSecciones, Servicio o Sistema.
-     * @param  int $accion Accion que realizar?el formulario a crear. Puede ser AI_ALTA, AI_BAJA o AI_MODIF.
+     * @param  int $accion Accion que realizar?el formulario a crear. Puede ser AI_ALTA, AI_BAJA o AI_MODIFICACION.
      *
      * @return void
      * @access public
@@ -137,7 +137,9 @@ class AI_Form extends MECON_HTML_QuickForm {
         if ($tipo == 'servicio' or $tipo == 'sistema') {
             $fLink      =& $this->addElement('text', 'link', 'Enlace');
             $fLinkAyuda =& $this->addElement('text', 'link_ayuda', 'Enlace de la ayuda');
-            $fIcono     =& $this->addElement('text', 'icono', 'Ícono');
+            //$fIcono     =& $this->addElement('text', 'icono', 'Ícono');
+            $fIcono     =& $this->addElement('select', 'icono', 'Ícono',
+                listaImagenes('/var/www/sistemas/ai/sistema/www/images', $tipo . '_', '\.gif'));
             // Carga datos.
             if ($accion & (AI_BAJA | AI_MODIF)) {
                 $fLink->setValue($obj->link);
@@ -215,4 +217,16 @@ class AI_Form extends MECON_HTML_QuickForm {
 
 } // -X2C Class :AI_Form
 
+function listaImagenes($dir = '.', $prepend = '', $append = '') {
+    $lista = array('' => '--');
+    $d = dir($dir);
+    while (($file = $d->read()) !== false) {
+        if (preg_match("/$prepend(.*)$append/", $file, $m)) {
+            $nombre = ucwords(join(' ', preg_split('/_/', $m[1])));
+            $lista[$file] = $nombre;
+        }
+    }
+    return $lista;
+}
+
 ?>