Chapril
/
xmpp.chapril.org-ejabberd
mirror of https://github.com/processone/ejabberd.git
24
1
Fork 0
Code Releases Activity

Fix error in mod_vcard when lowercasing some vjud search result fields (EJAB-1490)

This commit is contained in:
Badlop 2011-11-26 17:08:10 +01:00
parent 1f97740cfa
commit ee968b5573
2 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
src/mod_vcard.erl
View File

@ -219,17 +219,17 @@ set_vcard(User, LServer, VCARD) ->
end,
LUser = jlib:nodeprep(User),
LFN = stringprep:tolower(FN),
LFamily = stringprep:tolower(Family),
LGiven = stringprep:tolower(Given),
LMiddle = stringprep:tolower(Middle),
LNickname = stringprep:tolower(Nickname),
LBDay = stringprep:tolower(BDay),
LCTRY = stringprep:tolower(CTRY),
LLocality = stringprep:tolower(Locality),
LEMail = stringprep:tolower(EMail),
LOrgName = stringprep:tolower(OrgName),
LOrgUnit = stringprep:tolower(OrgUnit),
LFN = string:to_lower(FN),
LFamily = string:to_lower(Family),
LGiven = string:to_lower(Given),
LMiddle = string:to_lower(Middle),
LNickname = string:to_lower(Nickname),
LBDay = string:to_lower(BDay),
LCTRY = string:to_lower(CTRY),
LLocality = string:to_lower(Locality),
LEMail = string:to_lower(EMail),
LOrgName = string:to_lower(OrgName),
LOrgUnit = string:to_lower(OrgUnit),
US = {LUser, LServer},
@ -541,7 +541,7 @@ filter_fields([], Match, _LServer) ->
Match;
filter_fields([{SVar, [Val]} | Ds], Match, LServer)
when is_list(Val) and (Val /= "") ->
LVal = stringprep:tolower(Val),
LVal = string:to_lower(Val),
NewMatch = case SVar of
"user" ->
case gen_mod:get_module_opt(LServer, ?MODULE,
@ -618,17 +618,17 @@ set_vcard_t(R, _) ->
OrgUnit = xml:get_path_s(VCARD, [{elem, "ORG"}, {elem, "ORGUNIT"}, cdata]),
{LUser, _LServer} = US,
LFN = stringprep:tolower(FN),
LFamily = stringprep:tolower(Family),
LGiven = stringprep:tolower(Given),
LMiddle = stringprep:tolower(Middle),
LNickname = stringprep:tolower(Nickname),
LBDay = stringprep:tolower(BDay),
LCTRY = stringprep:tolower(CTRY),
LLocality = stringprep:tolower(Locality),
LEMail = stringprep:tolower(EMail),
LOrgName = stringprep:tolower(OrgName),
LOrgUnit = stringprep:tolower(OrgUnit),
LFN = string:to_lower(FN),
LFamily = string:to_lower(Family),
LGiven = string:to_lower(Given),
LMiddle = string:to_lower(Middle),
LNickname = string:to_lower(Nickname),
LBDay = string:to_lower(BDay),
LCTRY = string:to_lower(CTRY),
LLocality = string:to_lower(Locality),
LEMail = string:to_lower(EMail),
LOrgName = string:to_lower(OrgName),
LOrgUnit = string:to_lower(OrgUnit),
if
(LUser == error) or

24
src/mod_vcard_odbc.erl
View File

@ -186,17 +186,17 @@ set_vcard(User, LServer, VCARD) ->
end,
LUser = jlib:nodeprep(User),
LFN = stringprep:tolower(FN),
LFamily = stringprep:tolower(Family),
LGiven = stringprep:tolower(Given),
LMiddle = stringprep:tolower(Middle),
LNickname = stringprep:tolower(Nickname),
LBDay = stringprep:tolower(BDay),
LCTRY = stringprep:tolower(CTRY),
LLocality = stringprep:tolower(Locality),
LEMail = stringprep:tolower(EMail),
LOrgName = stringprep:tolower(OrgName),
LOrgUnit = stringprep:tolower(OrgUnit),
LFN = string:to_lower(FN),
LFamily = string:to_lower(Family),
LGiven = string:to_lower(Given),
LMiddle = string:to_lower(Middle),
LNickname = string:to_lower(Nickname),
LBDay = string:to_lower(BDay),
LCTRY = string:to_lower(CTRY),
LLocality = string:to_lower(Locality),
LEMail = string:to_lower(EMail),
LOrgName = string:to_lower(OrgName),
LOrgUnit = string:to_lower(OrgUnit),
if
(LUser == error) or
@ -531,7 +531,7 @@ filter_fields([], Match, _LServer) ->
end;
filter_fields([{SVar, [Val]} | Ds], Match, LServer)
when is_list(Val) and (Val /= "") ->
LVal = stringprep:tolower(Val),
LVal = string:to_lower(Val),
NewMatch = case SVar of
"user" -> make_val(Match, "lusername", LVal);
"fn" -> make_val(Match, "lfn", LVal);