package WebGUI::Form::TimeZone; =head1 LEGAL ------------------------------------------------------------------- WebGUI is Copyright 2001-2008 Plain Black Corporation. ------------------------------------------------------------------- Please read the legal notices (docs/legal.txt) and the license (docs/license.txt) that came with this distribution before using this software. ------------------------------------------------------------------- http://www.plainblack.com info@plainblack.com ------------------------------------------------------------------- =cut use strict; use base 'WebGUI::Form::SelectBox'; use WebGUI::International; =head1 NAME Package WebGUI::Form::TimeZone =head1 DESCRIPTION Creates a template chooser control. =head1 SEE ALSO This is a subclass of WebGUI::Form::SelectBox. =head1 METHODS The following methods are specifically available from this class. Check the superclass for additional methods. =cut #------------------------------------------------------------------- =head2 definition ( ) See the super class for additional details. =cut sub definition { my $class = shift; my $session = shift; my $definition = shift || []; my $i18n = WebGUI::International->new($session); push(@{$definition}, { formName=>{ defaultValue=>$i18n->get("timezone", 'DateTime') }, value=>{ defaultValue=>undef }, }); return $class->SUPER::definition($session, $definition); } #------------------------------------------------------------------- =head2 toHtml ( ) Renders a database connection picker control. =cut sub toHtml { my $self = shift; $self->set("options", $self->session->datetime->getTimeZones()); return $self->SUPER::toHtml(); } 1;