Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.5.4.2 -r1.5.4.3
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	19 Jul 2004 18:39:40 -0000	1.5.4.2
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	22 Jul 2004 10:30:35 -0000	1.5.4.3
@@ -63,6 +63,28 @@
     }
 }
 
+ad_form -extend -name register -form {
+    {organization:text
+        {label "Organization"}
+        {html "size 30"}
+    }
+    {institution_short_name:text,optional
+        {label "Short Name"}
+        {html {size 30}}
+    }
+    {position:text
+        {label "Position"}
+        {html {size 50}}
+    }
+    {responsibilities:text,optional
+        {label "Responsibilities"}
+        {html {size 50}}
+    }
+    {role:text(select)
+        {label "Role"}
+        {options {{Academic academic} {Corporate corporate} {Student student} {Staff staff} {Other other}}}
+    }
+}
 
 ad_form -extend -name register -on_request {
     # Populate elements from local variables
@@ -92,7 +114,10 @@
         }
     }
 
+    # Insert eabis user information
+    db_dml eabis_user_info "insert into eabis_user_info (organization, position,user_id,institution_short_name,responsibilities,role) values (:organization,:position,:user_id,:institution_short_name,:responsibilities,:role)"
 
+
     # Handle registration problems
     
     switch $creation_info(creation_status) {
@@ -131,10 +156,6 @@
     if { ![empty_string_p $next_url] } {
         # Add user_id and account_message to the URL
         
-        if { $creation_info(generated_pwd_p) } {
-            set password $creation_info(password)
-        }
-        
         ad_returnredirect [export_vars -base $next_url {user_id password {account_message $creation_info(account_message)}}]
         ad_script_abort
     }