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 "" }