48 |
my $self = shift; |
my $self = shift; |
49 |
my %style = @_; |
my %style = @_; |
50 |
$self->{STYLE} = {%style}; |
$self->{STYLE} = {%style}; |
51 |
|
$self->initlang; # the language strings loaded depend on the style params |
52 |
|
|
53 |
|
# here there should be a possible to override language strings |
54 |
|
} |
55 |
|
|
56 |
|
# Language files are read for each object so that individual fields |
57 |
|
# can be easily overridden. |
58 |
|
sub initlang { |
59 |
|
my $self = shift; |
60 |
|
do 'lang.pl'; # auto-generated from lang/*.dat |
61 |
} |
} |
62 |
|
|
63 |
# it is possible to call this multiple times |
# it is possible to call this multiple times |