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