generic translations strict

diff --git a/bin/mozilla/generictranslations.pl b/bin/mozilla/generictranslations.pl
index 608611710333204b30764617d39492e442ba9194..385ce80947c06ace3969c204635113ff253817b1 100644 (file)
--- a/bin/mozilla/generictranslations.pl
+++ b/bin/mozilla/generictranslations.pl
@@ -2,10 +2,15 @@ use SL::Auth;
 use SL::Form;
 use SL::GenericTranslations;
 
 use SL::Form;
 use SL::GenericTranslations;
 

+use strict;
+

 sub edit_greetings {
 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');
 
 
   $form->get_lists('languages' => 'LANGUAGES');
 


@@ -33,13 +38,16 @@ sub edit_greetings {
   $form->header();
   print $form->parse_html_template('generictranslations/edit_greetings');
 
   $form->header();
   print $form->parse_html_template('generictranslations/edit_greetings');
 

-  $lxdebug->leave_sub();
+  $main::lxdebug->leave_sub();

 }
 
 sub save_greetings {
 }
 
 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');
 
 
   $form->get_lists('languages' => 'LANGUAGES');
 


@@ -60,7 +68,7 @@ sub save_greetings {
 
   edit_greetings();
 
 
   edit_greetings();
 

-  $lxdebug->leave_sub();
+  $main::lxdebug->leave_sub();

 }
 
 1;
 }
 
 1;