@@ -147,12 +184,13 @@ if ($UserObj->Id) {
Organization RealName NickName Lang EmailEncoding WebEncoding
ExternalContactInfoId ContactInfoSystem Gecos ExternalAuthId
AuthSystem HomePhone WorkPhone MobilePhone PagerPhone Address1
- Address2 City State Zip Country
+ Address2 City State Zip Country Lang
);
my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields,
Object => $UserObj,
ARGSRef => \%ARGS );
+ $session{'CurrentUser'}->LanguageHandle($Lang) if $Lang;
push (@results,@fieldresults);