ad_survsimp_new_stuff

one of the documented procedures in this installation of the ACS
Usage:
ad_survsimp_new_stuff   db   since_when   only_from_new_users_p   purpose
What 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 ""
    }


philg@mit.edu