Jifty::Filter::DateTime - A Jifty::DBI filter to work with

Jifty documentation Contained in the Jifty distribution.

Index

Code Index:

NAME

Top

Jifty::Filter::DateTime -- A Jifty::DBI filter to work with Jifty::DateTime objects

SYNOPSIS

Top

   # use it with Jifty::DBI::Filter::Date or J::D::F::DateTime
    column created =>
      type is 'timestamp',
      filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime),
      label is 'Created',
      is immutable;

DESCRIPTION

Top

Jifty::Filter::DateTime promotes DateTime objects to Jifty::DateTime (or your application's DateTime subclass) objects on load. This has the side effect of setting their time zone based on the record's current user's preferred time zone, when available.

This is intended to be combined with Jifty::DBI::Filter::Date or Jifty::DBI::Filter::DateTime, e.g.

    column created =>
      type is 'timestamp',
      filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime),
      label is 'Created',
      is immutable;

decode

If the value is a DateTime, replace it with a Jifty::DateTime (or your application's subclass) representing the same time, setting the time zone in the process.

SEE ALSO

Top

Jifty::DBI::Filter::Date, Jifty::DBI::Filter::DateTime, Jifty::DateTime

LICENSE

Top

Jifty is Copyright 2005-2010 Best Practical Solutions, LLC. Jifty is distributed under the same terms as Perl itself.

Jifty documentation Contained in the Jifty distribution. 
use warnings;
use strict;


package Jifty::Filter::DateTime;
use base qw(Jifty::DBI::Filter);




sub decode {
    my $self = shift;
    my $value_ref = $self->value_ref;

    return unless ref($$value_ref) && $$value_ref->isa('DateTime');

    # XXX There has to be a better way to do this
    my %args;
    for (qw(year month day hour minute second nanosecond formatter time_zone)) {
        $args{$_} = $$value_ref->$_ if(defined($$value_ref->$_));
    }

    $args{input_time_zone} = delete $args{time_zone};

    my $class = Jifty->app_class('DateTime');
    $class = 'Jifty::DateTime' unless $class->can('new');
    my $dt = $class->new(%args);

    $$value_ref = $dt;
}


1;