package WebGUI::Form::TimeZone; =head1 LEGAL ------------------------------------------------------------------- WebGUI is Copyright 2001-2005 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::DateTime; use WebGUI::International; use WebGUI::Session; =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 $definition = shift || []; push(@{$definition}, { formName=>{ defaultValue=>WebGUI::International::get("timezone","DateTime") }, value=>{ defaultValue=>undef }, }); return $class->SUPER::definition($definition); } #------------------------------------------------------------------- =head2 toHtml ( ) Renders a database connection picker control. =cut sub toHtml { my $self = shift; $self->get("options") = WebGUI::DateTime::getTimeZones(); return $self->SUPER::toHtml(); } 1;