<?php
// vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
// +--------------------------------------------------------------------+
// |                      Ministerio de Economía                        |
// |                  AI (Administrador de Intranet)                    |
// +--------------------------------------------------------------------+
// | This file is part of AI.                                           |
// |                                                                    |
// | AI 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.                             |
// |                                                                    |
// | AI 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  |
// | along with Hooks; if not, write to the Free Software Foundation,   |
// | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
// +--------------------------------------------------------------------+
// | Creado: Thu Jul 24 20:17:47 2003                                   |
// | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
// +--------------------------------------------------------------------+
//
// $Id$
//

// +X2C Class 532 :general
/**
 * Funciones generales.
 *
 * @package AI_Local
 * @access public
 */
    // ~X2C

    // +X2C Operation 533
    /**
     * Lista archivos devolviendo un array apropiado para un SELECT.
     *
     * @param  string $dir Directorio donde estan las imagenes.
     * @param  string $prepend Prefijo del archivo.
     * @param  string $append Postfijo del archivo.
     *
     * @return array
     */
    function listarArchivos($dir = '.', $prepend = '', $append = '') // ~X2C
    {
        $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;
    }
    // -X2C

// -X2C Class :general
?>