- $locale = Locale->new($language, "menu");
- my $charset = $dbcharset || 'ISO-8859-1';
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+
+ $locale = Locale->new($myconfig{countrycode}, "menu");
+ my $charset = $main::dbcharset || 'ISO-8859-1';
+ my $callback = $form->unescape($form->{callback});
+ $callback = URI->new($callback)->rel($callback) if $callback;
+ $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;