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.25 -r1.25.2.1
--- openacs-4/packages/dotlrn/www/user-add.tcl 9 Aug 2002 18:39:26 -0000 1.25
+++ openacs-4/packages/dotlrn/www/user-add.tcl 17 Oct 2002 12:58:16 -0000 1.25.2.1
@@ -40,9 +40,11 @@
if {![empty_string_p $community_id]} {
dotlrn::require_user_admin_community -community_id [dotlrn_community::get_community_id]
set context_bar {{"one-community-admin" Admin} {Add User}}
+ set community_p 1
} else {
dotlrn::require_admin
set context_bar {{users Users} {Add User}}
+ set community_p 0
}
set target_user_id [db_nextval acs_object_id_seq]
@@ -55,21 +57,14 @@
-widget hidden \
-value $target_user_id
-element create add_user id \
- -label ID \
- -datatype text \
- -widget text \
- -html {size 30} \
- -value $id
-
element create add_user email \
-label Email \
-datatype text \
-widget text \
-html {size 50} \
-validate {
{expr (([util_email_valid_p $value] == 1) && ([util_email_unique_p $value] == 1))}
- {E-mail address must be valid and unique}
+ {E-mail address must be complete and unique.
This user probably already has a SloanSpace account.
Try adding this user through Manage Membership.}
}
element create add_user first_names \
@@ -122,10 +117,9 @@
if {[form is_valid add_user]} {
form get_values add_user \
- target_user_id id email first_names last_name referer type can_browse_p read_private_data_p dotlrn_interactive_p
+ target_user_id email first_names last_name referer type can_browse_p read_private_data_p dotlrn_interactive_p
db_transaction {
-
if {[empty_string_p [cc_email_from_party $target_user_id]]} {
# create the ACS user
set password [ad_generate_random_string]
@@ -137,7 +131,7 @@
if {!${dotlrn_interactive_p}} {
# make the user a dotLRN user
- dotlrn::user_add -id $id -type $type -can_browse\=$can_browse_p -user_id $target_user_id
+ dotlrn::user_add -type $type -can_browse\=$can_browse_p -user_id $target_user_id
}
}
@@ -157,3 +151,12 @@
}
ad_return_template
+
+
+
+
+
+
+
+
+