Index: openacs-4/packages/acs-admin/www/users/user-batch-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-admin/www/users/user-batch-add.tcl 15 Jun 2015 11:10:10 -0000 1.6 +++ openacs-4/packages/acs-admin/www/users/user-batch-add.tcl 7 Aug 2017 23:47:45 -0000 1.7 @@ -10,12 +10,22 @@ } set admin_user_id [ad_conn user_id] -set admin_email [db_string unused "select email from parties where party_id = :admin_user_id"] -set administration_name [db_string admin_name "select first_names || ' ' || last_name from persons where person_id = :admin_user_id"] +set admin_email [db_string unused { + select email from parties where party_id = :admin_user_id +}] +set administration_name [db_string admin_name { + select first_names || ' ' || last_name from persons where person_id = :admin_user_id +}] set context [list [list "./" "Users"] "Notify added user"] set system_name [ad_system_name] set export_vars [export_vars -form {email first_names last_name user_id}] set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""] ad_return_template + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: