ad_survsimp_new_stuff db since_when only_from_new_users_p purposeWhat it does:
Produces a report of the new surveys created for the site administrator.Defined in: /web/philip/tcl/survey-simple-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 new_survey_items ""
set selection [ns_db select $db "select survey_id, name, description, u.user_id, first_names || ' ' || last_name as creator_name, creation_date
from survsimp_surveys s, $users_table u
where s.creation_user = u.user_id
and creation_date> '$since_when'
order by creation_date desc"]
while { [ns_db getrow $db $selection] } {
set_variables_after_query
append new_survey_items "<li><a href=\"/survsimp/admin/one?[export_url_vars survey_id]\">$name</a> ($description) created by <a href=\"/shared/community-member?[export_url_vars user_id]\">$creator_name</a> on $creation_date\n"
}
if { ![empty_string_p $new_survey_items] } {
return "<ul>\n\n$new_survey_items\n</ul>\n"
} else {
return ""
}