Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	29 Aug 2003 21:08:06 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	30 Aug 2003 19:17:16 -0000	1.11
@@ -29,6 +29,8 @@
 
 set page_title [ad_pvt_home_name]
 
+set pvt_home_url [ad_pvt_home]
+
 set context [list $page_title]
 
 set ad_url [ad_url]
@@ -99,7 +101,13 @@
 # LARS HACK: Make the URL and email elements real links
 if { ![form is_valid user_info] } {
     element set_properties user_info email -display_value "<a href=\"mailto:[element get_value user_info email]\">[element get_value user_info email]</a>"
-    element set_properties user_info url -display_value "<a href=\"[element get_value user_info url]\">[element get_value user_info url]</a>"
+    if {![string match -nocase "http://*" [element get_value user_info url]]} {
+	element set_properties user_info url -display_value \
+		"<a href=\"http://[element get_value user_info url]\">[element get_value user_info url]</a>"
+    } else {
+	element set_properties user_info url -display_value \
+		"<a href=\"[element get_value user_info url]\">[element get_value user_info url]</a>"
+    }
 }
 
 # The template needs to know if this is a request