Index: openacs-4/packages/acs-admin/www/users/user-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.tcl,v diff -u -N -r1.14 -r1.14.2.1 --- openacs-4/packages/acs-admin/www/users/user-add-2.tcl 27 Jun 2018 16:45:47 -0000 1.14 +++ openacs-4/packages/acs-admin/www/users/user-add-2.tcl 3 Dec 2019 17:15:14 -0000 1.14.2.1 @@ -3,7 +3,7 @@ @cvs-id $Id$ } -query { user_id:naturalnum,notnull - password + password:optional {referer "/acs-admin/users"} } -properties { context:onevalue @@ -26,6 +26,10 @@ set $var_name $user($var_name) } +if { ![info exists password] || $password eq "" } { + set password [security::get_client_property_password] +} + if { $password eq "" } { set password [ad_generate_random_string] }