ticket_assignee_select

ticket_assignee_select   db   project_id   domain_id   group_id   user_id   { default_message "-- None assigned --" }   { variable "" }

given a group_id and user_id generate a select widget for choosing a new default user to feed to ticket-assignments-update.tcl

Source code:

 
    if {[empty_string_p $variable]} { 
        set variable a_${project_id}_${domain_id}_$user_id
    }
    return [ad_db_select_widget -default $user_id  -hidden_if_one_db 1 -blank_if_no_db 1  -option_list [list [list {} $default_message]] $db  "select u.last_name || ', ' || u.first_names || ' (' || u.email || ')' as uname, u.user_id
from users u
where ad_group_member_p(u.user_id, $group_id) = 't'
order by upper(u.last_name) asc, upper(u.first_names) asc" $variable]