Index: openacs-4/contrib/packages/survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/one.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/survey/www/admin/one.tcl	16 Mar 2005 12:26:31 -0000	1.4
+++ openacs-4/contrib/packages/survey/www/admin/one.tcl	18 Mar 2005 02:28:02 -0000	1.5
@@ -109,7 +109,7 @@
 	}
     }
     if {![empty_string_p $question_id]} {
-	survey_question_add_to_form admin_survey $question_id
+	survey::form::create_ad_form_element -form admin_survey -question_id $question_id 
     }
 }