fix spurious RT error when not changing language

diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html
index 4ff878f..974b96d 100644 (file)
--- a/httemplate/pref/pref-process.html
+++ b/httemplate/pref/pref-process.html
@@ -80,7 +80,9 @@ if ( !$error and ($FS::TicketSystem::system || '') eq 'RT_Internal' ) {
   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>