ticket_new_stuff db since_when only_from_new_users_p purposeWhat it does:
Only produces a report for the site administrator; the assumption is that random users won't want to see trouble ticketsDefined in: /web/philip/tcl/ticket-defs.tcl
Source code:
if { $purpose != "site_admin" } {
return {}
}
if { $only_from_new_users_p == "t" } {
set users_table "users_new"
} else {
set users_table "users"
}
set query "select ti.msg_id, ti.one_line, ut.email, ut.first_names || ' ' || ut.last_name as user_name, ut.user_id
from ticket_issues ti, $users_table ut
where posting_time > '$since_when'
and ti.user_id = ut.user_id"
set result_items {}
set selection [ns_db select $db $query]
while { [ns_db getrow $db $selection] } {
set_variables_after_query
append result_items "<li><a href=\"/ticket/issue-new?[export_url_vars msg_id]\">$one_line</a> by <a href=\"/admin/users/one?user_id=$user_id\">$user_name</a> (<a href=\"mailto:$email\">$email</a>)"
}
if { ![empty_string_p $result_items] } {
return "<ul>\n\n$result_items\n</ul>\n"
} else {
return ""
}