Index: openacs-4/packages/dotlrn/www/members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v diff -u -r1.23.2.3 -r1.23.2.4 --- openacs-4/packages/dotlrn/www/members.tcl 8 Aug 2005 11:03:31 -0000 1.23.2.3 +++ openacs-4/packages/dotlrn/www/members.tcl 11 Aug 2005 01:42:04 -0000 1.23.2.4 @@ -118,8 +118,8 @@ html "align left" display_template { - #dotlrn.Drop_Membership# | - #dotlrn.User_Admin_Page# + #dotlrn.Drop_Membership# | + #dotlrn.User_Admin_Page# } } @@ -136,13 +136,10 @@ set member_page [acs_community_member_page] - - -db_multirow -extend { update_bio_p member_url referer } members select_current_members {} { +db_multirow -extend { update_bio_p member_url member_referer } members select_current_members {} { set member_url "$member_page?user_id=$user_id" - set referer $referer + set member_referer $referer - set update_bio_p $admin_p set role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type] } @@ -164,13 +161,12 @@ multirow append members "" "" "" "" "" $selection } - set user_ids "" -db_multirow -extend { member_url referer } pending_users select_pending_users {} { +db_multirow -extend { member_url pending_user_referer } pending_users select_pending_users {} { set role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type] append user_ids "user_id=$user_id&" set member_url "$member_page?user_id=$user_id" - set referer $referer + set pending_user_referer $referer } @@ -211,8 +207,8 @@ label "[_ dotlrn.Actions]" html "align left" display_template { - #dotlrn.Approve# | - #dotlrn.Reject# + #dotlrn.Approve# | + #dotlrn.Reject# } } }