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#
}
}
}