#XXX autogen
my @paramlist = qw( locale menu_position default_customer_view mobile_menu
- disable_html_editor
+ disable_html_editor disable_enter_submit_onetimecharge
email_address
snom-ip snom-username snom-password
vonage-fromnumber vonage-username vonage-password
my $UserObj = FS::TicketSystem->session('')->{'CurrentUser'}->UserObj;
# Bypass RT ModifySelf ACL
$UserObj->CurrentUser( RT::SystemUser );
- my ($val, $msg) = $UserObj->SetLang($locale);
- $error = $msg if !$val;
+ if ( $UserObj->Lang ne $locale ) {
+ my ($val, $msg) = $UserObj->SetLang($locale);
+ $error = $msg if !$val;
+ }
}
</%init>