survsimp_survey_short_name_to_id short_nameWhat it does:
Returns the id of the survey given the short nameDefined in: /web/philip/tcl/survey-simple-defs.tcl
Source code:
# we use the subquery pool so it is easy # to Memoize this function (we are not passing it an # arbitrary db handle) set db [ns_db gethandle subquery] set survey_id [database_to_tcl_string_or_null $db "select survey_id from survsimp_surveys where lower(short_name) = '[string tolower [DoubleApos $short_name]]'"] ns_db releasehandle $db return $survey_id