- extended simple surveys

230912d0 · Frank Bergmann · 518b9b3d · 230912d0 · 230912d0
Commit 230912d0 authored Nov 26, 2006 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

survey-create-2-postgresql.xql www/admin/survey-create-2-postgresql.xql +1 -1

survey-create-2.tcl www/admin/survey-create-2.tcl +2 -0

No files found.
--- a/www/admin/survey-create-2-postgresql.xql
+++ b/www/admin/survey-create-2-postgresql.xql
@@ -9,7 +9,7 @@
 	        select survsimp_survey__new (
                    :survey_id,
                    :name,
-                    :name,
+                    :short_name,
                    :description,
                    :description_html_p,
 		    'f',

--- a/www/admin/survey-create-2.tcl
+++ b/www/admin/survey-create-2.tcl
@@ -35,6 +35,8 @@ ad_require_permission $package_id survsimp_create_survey

 set user_id [ad_get_user_id]

+set short_name [string range $name 0 19]
+
 set exception_count 0
 set exception_text ""