1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
package Embperl::TEST::App ;
@ISA = ('Embperl::App') ;
%messages =
(
'de' =>
{
'addsel1' => 'Klicken Sie auf die Kategorie zu der Sie etwas hinzufgen mchten:',
'addsel2' => 'oder fgen Sie eine neue Kategorie hinzu. Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen mglich ein.',
'addsel3' => 'Falls Sie die bersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.',
'addsel4' => 'Kategorie hinzufgen',
'add1' => 'Hinzufgen eines neuen Eintrages zu',
'add2' => 'Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen mglich ein.\<br\>Falls Sie die bersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.',
'heading' => 'berschrift',
'url' => 'URL',
'show2' => 'Folgender Eintrag wurde erfolgreich der Datenbank hinzugefgt',
'last' => 'last zwischen [= =]',
'test undef' => undef,
},
'en' =>
{
'addsel1' => 'Click on the category for wich you want to add a new item:',
'addsel2' => 'or add new category. Please enter the description in as much languages as possible.',
'addsel3' => 'If you don\'t know the translation leave the corresponding input field empty.',
'addsel4' => 'Add category',
'add2' => 'Please enter the description in as much languages as possible.<br>If you don\'t know the translation leave the corresponding input field empty.',
'add3' => 'Add to',
'heading' => 'Heading',
'url' => 'URL',
'show2' => 'The following entry has been sucessfully added to the database',
'last' => 'last inside of [= =]',
'test undef' => undef,
},
) ;
sub init
{
my $self = shift ;
my $r = $self -> curr_req ;
$lang = $r -> param -> language || 'de' ;
push @{$r -> messages}, $messages{$lang} ;
push @{$r -> default_messages}, $messages{'en'} if ($lang ne 'en') ;
}
1 ;
|
