<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
-------------------------------------------------------------------------------
                                    mlib
-------------------------------------------------------------------------------
This file is part of mlib.
 
mlib 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.
 
mlib 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: jue jun  5 17:59:44 ART 2003
Autor:  Martin Marrese <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/

require_once 'HTML/QuickForm/date.php';
require_once 'Date.php';
require_once 'Validate.php';

/**
 * Class to dynamically create HTML Select elements from a date
 * Modificado para que cumpla con los requisitos de mecon
 *
 */
class MLIB_HTML_QuickForm_mdate extends HTML_QuickForm_date {
    // {{{ constructor

    /**
     * Class constructor
     * 
     * @param     string    $elementName    (optional)Input field name attribute
     * @param     string    $value          (optional)Input field value
     * @param     mixed     $attributes     (optional)Either a typical HTML attribute string 
     *                                      or an associative array. Date format is passed along the attributes.
     * @access    public
     * @return    void
     */
    function MLIB_HTML_QuickForm_mdate($elementName=null, $elementLabel=null, $options=array(), $attributes=null) {
        $this->_locale = array ('es' => array (
                                           'weekdays_short'=> array ('' => '--', 'Dom', 'Lun', 'Mar', 'Mié', 'Jue', 'Vie', 'Sáb'),
                                           'weekdays_long' => array ('' => '--', 'Domingo', 'Lunes', 'Martes', 'Miércoles', 'Jueves', 'Viernes', 'Sábado'),
                                           'months_short'  => array ('' => '--', 'Ene', 'Feb', 'Mar', 'Abr', 'May', 'Jun', 'Jul', 'Ago', 'Sep', 'Oct', 'Nov', 'Dic'),
                                           'months_long'   => array ('' => '--',
                                               'Enero', 'Febrero', 'Marzo',
                                               'Abril', 'Mayo', 'Junio',
                                               'Julio', 'Agosto', 'Septiembre', 
                                               'Octubre', 'Noviembre', 'Diciembre')
                                       )
                                );
        parent::HTML_QuickForm_date($elementName, $elementLabel,
                                    array_merge(array('language'=>'es','format'=>'d F Y'), $options),
                                    $attributes);
    } //end constructor

   /**
    * Creates an option list containing the numbers from the start number to the end, inclusive
    *
    * @param    int     The start number
    * @param    int     The end number
    * @param    int     Increment by this value
    * @access   private
    * @return   array   An array of numeric options.
    */
    function _createOptionList($start, $end, $step = 1) {
        for ($i = $start, $options = array('' => '--'); $start > $end? $i >= $end: $i <= $end; $i += $step) {
            $options[$i] = sprintf('%02d', $i);
        }
        return $options;
    } // end func _createOptionList

    /**
     * Devuelve un objeto date
     *
     *
     * @access public
     * @return object Date.
     */
    function &getValue() {

        $date = parent::getValue();
    
        if ($date['Y'][0]) {
            return new Date (@sprintf("%04d-%02d-%02d %02d:%02d:00",
            $date['Y'][0], $date['F'][0],
            $date['d'][0], $date['H'][0],
            $date['i'][0]));
        } else {
            return null;
        }
    } // end func getValue

    /**
     * Verifica que una fecha sea valida.
     *
     * Verifica que una fecha sea valida. El formato siempre debe ser
     * '%Y-%m-%d'
     *
     * @access public
     * @return bool
     */
    function validate($valor, $nombre, $formato = '') {
        // Si viene completamente lleno, se valida con el paquete Validate
        if ($valor['Y'] and $valor['d'] and $valor['F']) {
            $str = sprintf('%4d-%02d-%02d', $valor['Y'], $valor['F'], $valor['d']);
            return  Validate::date($str, array('format' => '%Y-%m-%d'));
            // Si viene completamente vacio, es valido.
        }
        elseif (!$valor['Y'] and !$valor['d'] and !$valor['F']) {
            return true;
            // Si viene a medio completar, es invalido.
        }
        else {
            return false;
        }
    } // end func validate
}

?>