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