Index: openacs-4/packages/acs-subsite/lib/user-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v diff -u -r1.22.2.2 -r1.22.2.3 --- openacs-4/packages/acs-subsite/lib/user-info.tcl 20 Oct 2015 08:01:05 -0000 1.22.2.2 +++ openacs-4/packages/acs-subsite/lib/user-info.tcl 18 Apr 2016 14:35:58 -0000 1.22.2.3 @@ -218,13 +218,18 @@ # LARS HACK: Make the URL and email elements real links if { ![form is_valid user_info] } { - element set_properties user_info email -display_value "[element get_value user_info email]" - if {![string match -nocase "http://*" [element get_value user_info url]]} { - element set_properties user_info url -display_value \ - "[element get_value user_info url]" + element set_properties user_info email \ + -display_value "[element get_value user_info email]" + + set url [element get_value user_info url] + if { ![string match -nocase "http://*" $url] + && ![string match -nocase "https://*" $url] + } { + element set_properties user_info url \ + -display_value "$url" } else { element set_properties user_info url -display_value \ - "[element get_value user_info url]" + "$url" } }