Index: openacs-4/packages/acs-subsite/www/members/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/members/index.tcl 28 Aug 2003 09:41:41 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/members/index.tcl 30 Aug 2003 19:17:16 -0000 1.3 @@ -28,7 +28,6 @@ ad_script_abort } - if { $admin_p } { # We can skip the permissions check for "delete" because user had admin. set delete_p 1 Index: openacs-4/packages/acs-subsite/www/pvt/home.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.adp,v diff -u -r1.8 -r1.9 --- openacs-4/packages/acs-subsite/www/pvt/home.adp 28 Aug 2003 09:41:42 -0000 1.8 +++ openacs-4/packages/acs-subsite/www/pvt/home.adp 30 Aug 2003 19:17:16 -0000 1.9 @@ -9,7 +9,7 @@

- » #acs-subsite.Change_my_Password# + » #acs-subsite.Change_my_Password#

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 "[element get_value user_info email]" - element set_properties user_info url -display_value "[element get_value user_info url]" + 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]" + } else { + element set_properties user_info url -display_value \ + "[element get_value user_info url]" + } } # The template needs to know if this is a request Index: openacs-4/packages/acs-subsite/www/shared/community-member.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/community-member.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-subsite/www/shared/community-member.tcl 28 Aug 2003 09:41:42 -0000 1.7 +++ openacs-4/packages/acs-subsite/www/shared/community-member.tcl 30 Aug 2003 19:17:16 -0000 1.8 @@ -58,6 +58,10 @@ return } +if { ![string match -nocase "http://*" $url] } { + set url "http://$url" +} + set bio [person::get_bio -person_id $user_id] # Do we show the portrait?