Index: openacs-4/packages/dotlrn/www/user-add-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/user-add-2.adp 28 Jan 2002 21:57:52 -0000 1.4 +++ openacs-4/packages/dotlrn/www/user-add-2.adp 31 Jan 2002 17:08:09 -0000 1.5 @@ -1,7 +1,6 @@ Add A User @context_bar@ -@portal_id@ @first_names@ @last_name@ has been added to @system_name@. Edit the message below and hit "Send Email" to Index: openacs-4/packages/dotlrn/www/user-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn/www/user-add.tcl 28 Jan 2002 18:50:35 -0000 1.8 +++ openacs-4/packages/dotlrn/www/user-add.tcl 31 Jan 2002 17:08:09 -0000 1.9 @@ -11,6 +11,7 @@ {type "student"} {rel_type "dotlrn_full_user_rel"} {read_private_data_p "t"} + {add_membership_p "t"} } -properties { context_bar:onevalue } @@ -80,6 +81,12 @@ -widget hidden \ -value $read_private_data_p +element create add_user add_membership_p \ + -label "Add Membership To Community" \ + -datatype text \ + -widget hidden \ + -value $add_membership_p + if {[form is_valid add_user]} { template::form get_values add_user target_user_id email first_names last_name referer rel_type type read_private_data_p @@ -96,7 +103,11 @@ } set redirect "user-add-2?[export_vars {{user_id $target_user_id} email password first_names last_name referer}]" - ad_returnredirect "member-add-2?[export_vars {{user_id $target_user_id} {referer $redirect}}]" + if {[string equal $add_membership_p "t"] == 1} { + ad_returnredirect "member-add-2?[export_vars {{user_id $target_user_id} {referer $redirect}}]" + } else { + ad_returnredirect $redirect + } ad_script_abort }