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>