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

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