Capitalization in Infopath Expression Box

Question

Hello,
I have a first and last name in a single expression box and wanted the first and last name to capitalize if typed in. I have already accomplished this using: 
concat(substring(translate(Recipient Name, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ"), 1, 1), substring(Recipient Name, 2, string-length(Recipient Name) - 1))
for the first word; and
concat(substring-before(Recipient Name, " "), " ", translate(substring(substring-after(Recipient Name, " "), 1, 1), "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ"), substring(substring-after(Recipient
Name, " "), 2, string-length(Recipient Name) - 1))
for the second.
My question is: I would also like it if the user types in ALL CAPS, to just upper the first letter of the first word and the first letter of the last word with the rest lower case. My attempts to do this however have resulted in an infinite loop. Any ideas
or a way around this loop problem.
Many thanks!

Answer 1

This guy takes care of it with rules. First is a link to an example .xsn, and second is the forum thread it came from.
Example:
http://www.infopathdev.com/forums/storage/39/72823/capitalize.xsn
Thread: http://www.infopathdev.com/forums/t/20998.aspx