From 429203bfb57dd673aa807d749ab43c8e3332f8c8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Wed, 21 Oct 2009 16:42:17 +0200 Subject: [PATCH] generic translations strict --- bin/mozilla/generictranslations.pl | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) diff --git a/bin/mozilla/generictranslations.pl b/bin/mozilla/generictranslations.pl index 608611710..385ce8094 100644 --- a/bin/mozilla/generictranslations.pl +++ b/bin/mozilla/generictranslations.pl @@ -2,10 +2,15 @@ use SL::Auth; use SL::Form; use SL::GenericTranslations; +use strict; + sub edit_greetings { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('config'); - $auth->assert('config'); + my $form = $main::form; + my $locale = $main::locale; $form->get_lists('languages' => 'LANGUAGES'); @@ -33,13 +38,16 @@ sub edit_greetings { $form->header(); print $form->parse_html_template('generictranslations/edit_greetings'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub save_greetings { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('config'); - $auth->assert('config'); + my $form = $main::form; + my $locale = $main::locale; $form->get_lists('languages' => 'LANGUAGES'); @@ -60,7 +68,7 @@ sub save_greetings { edit_greetings(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } 1; -- 2.20.1