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

11
lib/WebGUI/Form/Asset.pm
View file

@ -20,7 +20,6 @@ use WebGUI::Asset;
use WebGUI::Form::Button;
use WebGUI::Form::Hidden;
use WebGUI::Form::Text;
use WebGUI::International;
use WebGUI::Session;
=head1 NAME
@ -67,22 +66,24 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("asset","Asset")
defaultValue=>$i18n->get("asset");
},
label=>{
defaultValue=>WebGUI::International::get("asset","Asset")
defaultValue=>$i18n->get("asset");
},
name=>{
defaultValue=> "asset"
defaultValue=>"asset";
},
class=>{
defaultValue=> undef
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/Button.pm
View file

@ -55,16 +55,18 @@ The default text to appear on the button. Defaults to an internationalized versi
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session,"WebGUI");
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("button","WebGUI")
defaultValue=>"button"
},
defaultValue=>{
defaultValue=>WebGUI::International::get(62,"WebGUI")
defaultValue=>$i18n->get(62)
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

7
lib/WebGUI/Form/CheckList.pm
View file

@ -17,7 +17,6 @@ package WebGUI::Form::CheckList;
use strict;
use base 'WebGUI::Form::List';
use WebGUI::Form::Checkbox;
use WebGUI::International;
use WebGUI::Session;
=head1 NAME
@ -60,10 +59,12 @@ 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 || [];
my $i18n = WebGUI::International->new($self->session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("941","WebGUI"),
defaultValue=>$i18n->get("941"),
},
vertical=>{
defaultValue=>0
@ -72,7 +73,7 @@ sub definition {
defaultValue=>1
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

7
lib/WebGUI/Form/Checkbox.pm
View file

@ -16,7 +16,6 @@ package WebGUI::Form::Checkbox;
use strict;
use base 'WebGUI::Form::Control';
use WebGUI::International;
use WebGUI::Session;
=head1 NAME
@ -63,10 +62,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("943","WebGUI")
defaultValue=>$i18n->get("943"),
},
checked=>{
defaultValue=> 0
@ -78,7 +79,7 @@ sub definition {
defaultValue=>1
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}

6
lib/WebGUI/Form/Codearea.pm
View file

@ -57,16 +57,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("codearea","WebGUI")
defaultValue=>$i18n->get("codearea")
},
profileEnabled=>{
defaultValue=>1
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Color.pm
View file

@ -48,13 +48,15 @@ See the super class for additional details.
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("color","WebGUI")
defaultValue=>$i18n->get("color")
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Combo.pm
View file

@ -57,16 +57,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("combobox","WebGUI")
defaultValue=>$i18n->get("combobox")
},
profileEnabled=>{
defaultValue=>1
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/ContentType.pm
View file

@ -63,13 +63,15 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("1007","WebGUI")
defaultValue=>$i18n->get("1007")
},
label=>{
defaultValue=>WebGUI::International::get("1007","WebGUI")
defaultValue=>$i18n->get("1007")
},
types=>{
defaultValue=>[qw(mixed html code text)]
@ -78,7 +80,7 @@ sub definition {
defaultValue=>"mixed",
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

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};
}

6
lib/WebGUI/Form/DatabaseLink.pm
View file

@ -73,13 +73,15 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("1075","WebGUI")
defaultValue=>$i18n->get("1075")
},
label=>{
defaultValue=>WebGUI::International::get("1075","WebGUI")
defaultValue=>$i18n->get("1075")
},
name=>{
defaultValue=>"databaseLinkId"

8
lib/WebGUI/Form/Date.pm
View file

@ -75,13 +75,15 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("479","WebGUI")
defaultValue=>$i18n->get("479")
},
defaultValue=>{
defaultValue=$self->session->datetime->time()
defaultValue=$session->datetime->time()
},
maxlength=>{
defaultValue=> 10
@ -96,7 +98,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/DateTime.pm
View file

@ -70,13 +70,15 @@ If no value is specified, this will be used. Defaults to today and now.
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("972","WebGUI")
defaultValue=>$i18n->get("972")
},
defaultValue=>{
defaultValue=$self->session->datetime->time()
defaultValue=$session->datetime->time()
},
maxlength=>{
defaultValue=> 19
@ -88,7 +90,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

22
lib/WebGUI/Form/DynamicField.pm
View file

@ -56,16 +56,18 @@ Defaults to "Text". Should be any valid field type.
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("475","WebGUI"),
defaultValue=>$i18n->get("475"),
},
fieldType=>{
defaultValue=> "Text"
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
@ -76,7 +78,21 @@ Creates the object for the appropriate field type.
=head3 params
The normal params you'd pass in to the field. Included in this list must be one element called "fieldType" which specifies what type of field to dynamically render.
The normal params you'd pass in to the field. Included in this list
must be one element called "fieldType" which specifies what type of
field to dynamically render. List-type forms, however, can take
two additional parameters:
=head4 possibleValues
This is a newline delimited set of values. A hash will be set by splitting the string
on newlines and making the key and value of each hash entry equal.
=head4 value
For List-type forms which support multiple select, this is normally an arrayref holding all pre-selected
values. However, if it is a scalar string, the string will be split on newlines and the resulting
array will be used.
=cut

6
lib/WebGUI/Form/Email.pm
View file

@ -56,16 +56,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("480","WebGUI")
defaultValue=>$i18n->get("480")
},
profileEnabled=>{
defaultValue=>1
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/FieldType.pm
View file

@ -135,7 +135,7 @@ sub toHtml {
$self->session->errorHandler->error("Couldn't compile form control: ".$type.". Root cause: ".$@);
next;
}
$options{$type} = $class->getName;
$options{$type} = $class->getName($self->session);
}
$self->get("options") = \%options;

6
lib/WebGUI/Form/File.pm
View file

@ -65,10 +65,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("file","WebGUI")
defaultValue=>$i18n->get("file")
},
name=>{
defaultValue=>"file"
@ -80,7 +82,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/FilterContent.pm
View file

@ -64,22 +64,24 @@ A tooltip for what to do with this field. Defaults to a general explaination of
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("418","WebGUI")
defaultValue=>$i18n->get("418")
},
name=>{
defaultValue=>"filterContent"
},
hoverHelp=>{
defaultValue=>WebGUI::International::get('418 description', 'WebGUI')
defaultValue=>$i18n->get('418 description')
},
defaultValue=>{
defaultValue=>"most",
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Float.pm
View file

@ -68,10 +68,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("float","WebGUI")
defaultValue=>$i18n->get("float")
},
maxlength=>{
defaultValue=> 14
@ -86,7 +88,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Group.pm
View file

@ -74,10 +74,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("group","WebGUI")
defaultValue=>$i18n->get("group")
},
size=>{
defaultValue=>1
@ -95,7 +97,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

12
lib/WebGUI/Form/HTMLArea.pm
View file

@ -71,25 +71,27 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("477","WebGUI")
defaultValue=>$i18n->get("477")
},
rows=>{
defaultValue=> $self->session->setting->get("textAreaRows")+20
defaultValue=> $session->setting->get("textAreaRows")+20
},
columns=>{
defaultValue=> $self->session->setting->get("textAreaCols")+10
defaultValue=> $session->setting->get("textAreaCols")+10
},
richEditId=>{
defaultValue=>$self->session->setting->get("richEditor") || "PBrichedit000000000001"
defaultValue=>$session->setting->get("richEditor") || "PBrichedit000000000001"
},
profileEnabled=>{
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Hidden.pm
View file

@ -55,16 +55,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("hidden","WebGUI")
defaultValue=>$i18n->get("hidden")
},
profileEnabled=>{
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/HiddenList.pm
View file

@ -63,16 +63,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("hidden list","WebGUI"),
defaultValue=>$i18n->get("hidden list"),
},
profileEnabled=>{
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Image.pm
View file

@ -67,10 +67,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("image","WebGUI")
defaultValue=>$i18n->get("image")
},
name=>{
defaultValue=>"file"
@ -82,7 +84,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}

6
lib/WebGUI/Form/Integer.pm
View file

@ -68,10 +68,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("482","WebGUI")
defaultValue=>$i18n->get("482")
},
maxlength=>{
defaultValue=> 11
@ -86,7 +88,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Interval.pm
View file

@ -65,10 +65,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("interval","WebGUI"),
defaultValue=>$i18n->get("interval"),
},
defaultValue=>{
defaultValue=>1,
@ -77,7 +79,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/LdapLink.pm
View file

@ -79,13 +79,15 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("LDAPLink_1075","AuthLDAP")
defaultValue=>$i18n->get("LDAPLink_1075","AuthLDAP")
},
label=>{
defaultValue=>WebGUI::International::get("LDAPLink_1075","AuthLDAP")
defaultValue=>$i18n->get("LDAPLink_1075","AuthLDAP")
},
size=>{
defaultValue=>1
@ -103,7 +105,7 @@ sub definition {
defaultValue=>undef
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

17
lib/WebGUI/Form/List.pm
View file

@ -94,9 +94,14 @@ sub correctValues {
my ($self, $value) = @_;
return unless defined $value;
my @defaultValues;
foreach (split(/\n/, $value)) {
s/\s+$//; # remove trailing spaces
push(@defaultValues, $_);
if (ref $value eq "ARRAY") {
@defaultValues = @{ $value };
}
else {
foreach (split(/\n/, $value)) {
s/\s+$//; # remove trailing spaces
push(@defaultValues, $_);
}
}
$self->get("value") = \@defaultValues;
}
@ -140,10 +145,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("486","WebGUI"),
defaultValue=>$i18n->get("486"),
},
options=>{
defaultValue=>{}
@ -164,7 +171,7 @@ sub definition {
defaultValue=>0
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}

6
lib/WebGUI/Form/Password.pm
View file

@ -63,10 +63,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("51","WebGUI")
defaultValue=>$i18n->get("51")
},
maxlength=>{
defaultValue=>35
@ -78,7 +80,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Phone.pm
View file

@ -56,16 +56,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("481","WebGUI")
defaultValue=>$i18n->get("481")
},
profileEnabled=>{
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Radio.pm
View file

@ -59,10 +59,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("radio","WebGUI")
defaultValue=>$i18n->get("radio")
},
checked=>{
defaultValue=> 0
@ -71,7 +73,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}

6
lib/WebGUI/Form/RadioList.pm
View file

@ -71,10 +71,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("942","WebGUI")
defaultValue=>$i18n->get("942")
},
vertical=>{
defaultValue=>0
@ -83,7 +85,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}

6
lib/WebGUI/Form/ReadOnly.pm
View file

@ -56,16 +56,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("read only","WebGUI")
defaultValue=>$i18n->get("read only")
},
profileEnabled=>{
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/SelectBox.pm
View file

@ -69,10 +69,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("487","WebGUI"),
defaultValue=>$i18n->get("487"),
},
size=>{
defaultValue=>1,
@ -81,7 +83,7 @@ sub definition {
defaultValue=>1,
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/SelectList.pm
View file

@ -63,10 +63,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("484","WebGUI"),
defaultValue=>$i18n->get("484"),
},
multiple=>{
defaultValue=>1
@ -78,7 +80,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Submit.pm
View file

@ -47,13 +47,15 @@ See the super class for additional details.
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("submit","WebGUI")
defaultValue=>$i18n->get("submit")
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/Template.pm
View file

@ -66,13 +66,15 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("assetName","Asset_Template")
defaultValue=>$i18n->get("assetName")
},
label=>{
defaultValue=>WebGUI::International::get("assetName","Asset_Template")
defaultValue=>$i18n->get("assetName")
},
name=>{
defaultValue=>"templateId"
@ -81,7 +83,7 @@ sub definition {
defaultValue=>undef
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/Text.pm
View file

@ -63,22 +63,24 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=> WebGUI::International::get("475","WebGUI")
defaultValue=> $i18n->get("475")
},
maxlength=>{
defaultValue=> 255
},
size=>{
defaultValue=>$self->session->setting->get("textBoxSize") || 30
defaultValue=>$session->setting->get("textBoxSize") || 30
},
profileEnabled=>{
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

10
lib/WebGUI/Form/Textarea.pm
View file

@ -67,16 +67,18 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("476","WebGUI")
defaultValue=>$i18n->get("476")
},
rows=>{
defaultValue=> $self->session->setting->get("textAreaRows") || 5
defaultValue=> $session->setting->get("textAreaRows") || 5
},
columns=>{
defaultValue=> $self->session->setting->get("textAreaCols") || 50
defaultValue=> $session->setting->get("textAreaCols") || 50
},
wrap=>{
defaultValue=>"virtual"
@ -85,7 +87,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/TimeField.pm
View file

@ -67,10 +67,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("971","WebGUI")
defaultValue=>$i18n->get("971")
},
maxlength=>{
defaultValue=>8
@ -82,7 +84,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/TimeZone.pm
View file

@ -48,16 +48,18 @@ See the super class for additional details.
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("timezone","DateTime")
defaultValue=>$i18n->get("timezone")
},
value=>{
defaultValue=>undef
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Url.pm
View file

@ -60,10 +60,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("478","WebGUI")
defaultValue=>$i18n->get("478")
},
maxlength=>{
defaultValue=> 2048
@ -72,7 +74,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/WhatNext.pm
View file

@ -59,19 +59,21 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("744","WebGUI")
defaultValue=>$i18n->get("744")
},
label=>{
defaultValue=>WebGUI::International::get("744","WebGUI")
defaultValue=>$i18n->get("744")
},
name=>{
defaultValue=>"proceed"
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/YesNo.pm
View file

@ -60,10 +60,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("483","WebGUI")
defaultValue=>$i18n->get("483")
},
defaultValue=>{
defaultValue=>0
@ -72,7 +74,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------

6
lib/WebGUI/Form/Zipcode.pm
View file

@ -60,10 +60,12 @@ 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 || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=> WebGUI::International::get("944","WebGUI")
defaultValue=> $i18n->get("944")
},
maxlength=>{
defaultValue=> 10
@ -72,7 +74,7 @@ sub definition {
defaultValue=>1
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------