oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new i18n api requiring $session

Browse source
This commit is contained in:
Colin Kuskie 2006-01-12 17:49:20 +00:00
parent 877bf082a0
commit 01d95a265e
141 changed files with 2266 additions and 1745 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Form/Control.pm
View file

@ -18,6 +18,7 @@ use strict;
use WebGUI::Grouping;
use WebGUI::Session;
use WebGUI::Operation::Shared;
use WebGUI::International;
=head1 NAME
@ -51,10 +52,14 @@ The following methods are available via this package.
#-------------------------------------------------------------------
=head2 definition ( [ additionalTerms ] )
=head2 definition ( $session, [ additionalTerms ] )
Defines the schema or parameters for a form field.
=head3 session
The session object, usually for internationalization.
=head3 additionalTerms
An array reference containing a hash of hashes of parameter names and their definitions.
@ -94,7 +99,7 @@ Add extra attributes to the form tag like
=head4 formName
The internationalized form name.
The key to look up for the form name.
=head4 label
@ -146,6 +151,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
push(@{$definition}, {
formName=>{
@ -300,7 +306,8 @@ Returns a human readable name for this form control type. You MUST override this
sub getName {
my $self = shift;
my $definition = $self->definition;
my $session = shift;
my $definition = $self->definition($session);
return $definition->[0]->{formName}->{defaultValue};
}