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 ;