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.25 -r1.26 --- openacs-4/packages/acs-subsite/www/shared/community-member.tcl 28 Sep 2018 18:45:04 -0000 1.25 +++ openacs-4/packages/acs-subsite/www/shared/community-member.tcl 3 Sep 2024 15:37:34 -0000 1.26 @@ -1,7 +1,7 @@ ad_page_contract { shows User A what User B has contributed to the community - - @param user_id defaults to currently logged in user if there is one + + @param user_id defaults to currently logged-in user if there is one @cvs-id $Id$ } { {user_id:naturalnum ""} @@ -27,12 +27,12 @@ valid_user_id { set verified_user_id [ad_conn user_id] set untrusted_user_id [ad_conn untrusted_user_id] - + if {$user_id eq ""} { if {$verified_user_id != 0} { set user_id $verified_user_id } else { - # Don't know what to do! + # Don't know what to do! auth::require_login return } @@ -70,12 +70,12 @@ set email_image "
\#acs-subsite.E_mail\#: [email_image::get_user_email -user_id $user_id]
" # -# "url" is obtained from the sql query above, together with +# "url" is obtained from the SQL query above, together with # "first_names" etc. # if { $url ne "" && ![string match -nocase "http://*" $url] - && ![string match -nocase "https://*" $url] + && ![string match -nocase "https://*" $url] } { set url "http://$url" } @@ -104,10 +104,10 @@ # use it. The maintenance of the image width in i.width # (above) does not seem to work reliable. # - # let's show it inline - set inline_portrait_state "inline" + # let's show it inline + set inline_portrait_state "inline" } else { - set inline_portrait_state "link" + set inline_portrait_state "link" } } @@ -116,7 +116,7 @@ set show_email_p 1 } else { set show_email_p 0 - # guy doesn't want his email address shown, but we can still put out + # guy doesn't want his email address shown, but we can still put out # the home page }