The Perl Advent Calendar needs more articles for 2022. Submit your idea today!

package Embperl::TEST::App ;

@ISA = ('Embperl::App') ;

%messages =
    (
    'de' =>
        {
        'addsel1' => 'Klicken Sie auf die Kategorie zu der Sie etwas hinzufügen möchten:',
        'addsel2' => 'oder fügen Sie eine neue Kategorie hinzu. Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen möglich ein.',
        'addsel3' => 'Falls Sie die Übersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.',
        'addsel4' => 'Kategorie hinzufügen',
        'add1'    => 'Hinzufügen eines neuen Eintrages zu',
        'add2'    => 'Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen möglich 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 hinzugefügt',
        '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 ;