Solstice::View::FormInput::DateTime - A view of a Solstice DateTime obj, showing a selection widget.

  use Solstice::View::FormInput::DateTime;

package Solstice::View::FormInput::DateTime;

# $Id: DateTime.pm 3155 2006-02-21 20:08:18Z mcrawfor $

use strict;
use warnings;
use 5.006_000;

use base qw(Solstice::View::FormInput);

use Solstice::StringLibrary qw(unrender);

use constant TRUE  => 1;
use constant FALSE => 0;

use constant HOURS => (qw|0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23|);
use constant MINUTES => (qw|00 15 30 45|);

our $template = 'form_input/datetime.html';

our ($VERSION) = ('$Revision: 3155 $' =~ /^\$Revision:\s*([\d.]*)/);

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);

    $self->_setTemplatePath('templates');

    return $self;
}

sub setFormat {
    my $self = shift;
    $self->{'_format'} = shift;
}

sub getFormat {
    my $self = shift;
    return $self->{'_format'};
}

sub setDisplayTime {
    my $self = shift;
    $self->{'_display_time'} = shift;
}

sub getDisplayTime {
    my $self = shift;
    return $self->{'_display_time'};
}

sub setReadOnlyTime {
    my $self = shift;
    $self->{'_readonly_time'} = shift;
}

sub getReadOnlyTime {
    my $self = shift;
    return $self->{'_readonly_time'};
}

sub setStartYear {
    my $self = shift;
    $self->{'_start_year'} = shift;
}

sub getStartYear {
    my $self = shift;
    return $self->{'_start_year'};
}

sub setStartDate {      
    my $self = shift;
    $self->{'_start_date'} = shift;
}   

    
sub getStartDate {
    my $self = shift;
    return $self->{'_start_date'};
}

sub setYearCount {
    my $self = shift;
    $self->{'_year_count'} = shift;
}

sub getYearCount {
    my $self = shift;
    return $self->{'_year_count'};
}

sub setHours {
    my $self = shift;
    $self->{'_hours'} = shift;
}

sub getHours {
    my $self = shift;
    return $self->{'_hours'} || HOURS;
}

sub setMinutes {
    my $self = shift;
    $self->{'_minutes'} = shift;
}

sub getMinutes {
    my $self = shift;
    return $self->{'_minutes'} || MINUTES;
}

sub addClientAction {
    my $self = shift;
    my $str = shift;
    return unless defined $str;

    # strip off trailing semicolons on incoming events
    $str =~ s/;+$//g;

    my $client_actions = $self->{'_client_actions'} || [];
    push @$client_actions, $str;
    $self->{'_client_actions'} = $client_actions;
}

*setClientAction = *addClientAction;

sub getClientActions {
    my $self = shift;
    return $self->{'_client_actions'} || [];
}

             
sub generateParams {
    my $self = shift;

    my $datetime = $self->getModel();
    my $name     = $self->getName();    
    my $format   = $self->getFormat() || "%m/%d/%Y";
    
    if (my $error = $self->getError()) {
        if($self->getShowErrors()){
            $self->setParam('err_date_name', $error->getFormMessages()->{'err_'.$name.'_date'});
        }
    }

    if ($self->getDisplayTime()) {
        $self->setParam('display_time', TRUE);
        $self->setParam('readonly_time', $self->getReadOnlyTime());
        $self->_addHoursParams(defined ($datetime->getPersistenceHour()) ? $datetime->getPersistenceHour() : 17);
        $self->_addMinutesParams($datetime->getPersistenceMin() || 0);   
    } else {
        #$self->setParam('hour_value', $datetime->getPersistenceHour() || 0);
        #$self->setParam('minute_value', $datetime->getPersistenceMin() || 0);
    }

    $self->setParam('date_value', (defined $datetime->getPersistenceDateStr() || $datetime->isEmpty())
        ? unrender($datetime->getPersistenceDateStr()) : $datetime->toString($format));
    
    # Dynamic form input names
    $self->setParam('date_name', $name ."_date");
    $self->setParam('hour_name', $name . '_hour');
    $self->setParam('minute_name', $name . '_minute');
  
    for my $action (@{$self->getClientActions()}) {
        $self->addParam('client_actions', {action => $action});
    } 

    return TRUE;
}

sub getShowErrors {
    my $self = shift;
    return $self->{'_show_calendar_errors'};
}

sub setShowErrors {
    my $self = shift;
    $self->{'_show_calendar_errors'} = shift;
}

sub _addHoursParams {
    my $self = shift;
    my $hour = shift;
    $hour = 0 unless $hour =~ /^\d+$/;

    for my $h ($self->getHours()) {
        $self->addParam('hour_select', {
            value    => $h,
            selected => ($hour == $h),
            label    => (!$h)      ? '12 midnight' :
                        ($h < 12)  ? $h.' am'      :
                        ($h == 12) ? '12 noon'     : ($h - 12).' pm',
        });
    }
    return TRUE;
}

sub _addMinutesParams {
    my $self = shift;
    my $minute = shift;
    $minute = 0 unless $minute =~ /^\d+$/;

    for my $m ($self->getMinutes()) {
        $self->addParam('minute_select', {
            value    => $m,
            selected => ($minute == $m),
            label    => $m,
        });
    }
    return TRUE;
}

1;

__END__