- Surveys:

  Now allowing "read" permissions for survey

www/index.tcl

@@ -26,7 +26,7 @@ db_multirow -extend {survey_url} surveys survey_select {
     from survsimp_surveys, acs_objects
     where object_id = survey_id
     and context_id = :package_id
-    and acs_permission.permission_p(object_id, :user_id, 'survsimp_take_survey') = 't'
+    and (acs_permission.permission_p(object_id, :user_id, 'survsimp_take_survey') = 't' OR acs_permission.permission_p(object_id, :user_id, 'read') = 't')
     and enabled_p = 't'
     order by upper(name)
 } {