new i18n api requiring $session

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

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