Index: openacs-4/packages/tasks/www/task.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/Attic/task.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/tasks/www/task.tcl	16 Nov 2005 14:36:03 -0000	1.8
+++ openacs-4/packages/tasks/www/task.tcl	16 Feb 2006 07:21:33 -0000	1.9
@@ -118,26 +118,20 @@
     }
 }
 
+set params [split [parameter::get -parameter DefaultTasks -default ""] ";"] 
+set opts [list [list "" ""]]
+foreach param $params {
+    lappend opts [list [_ $param] [_ $param]]
+}
+
 ad_form -extend -name add_edit \
     -cancel_url $return_url \
     -cancel_label "[_ tasks.Cancel]" \
     -edit_buttons $edit_buttons \
     -form {
         {task_prescribed:text(select),optional
             {label "[_ tasks.Standard_Task]"}
-	    {options {
-		{{}                                {}}             
-		{{[_ tasks.lt_Delete_from_Recruitin]}   {[_ tasks.lt_Delete_from_Recruitin]}}	 
-		{{[_ tasks.Follow_Up_Call]}		   {[_ tasks.Follow_Up_Call]}}		 	
-		{{[_ tasks.Follow_Up_Email]}		   {[_ tasks.Follow_Up_Email]}}		 
-		{{[_ tasks.Have_they_responded]}		   {[_ tasks.Have_they_responded]}}		 
-		{{[_ tasks.lt_Provide_Promotional_I]} {[_ tasks.lt_Provide_Promotional_I]}}
-		{{[_ tasks.Send_Letter]}			   {[_ tasks.Send_Letter]}}			 
-		{{[_ tasks.Send_Birthday_Card]}		   {[_ tasks.Send_Birthday_Card]}}		 
-		{{[_ tasks.Send_Class_Schedule]}		   {[_ tasks.Send_Class_Schedule]}}		 
-		{{[_ tasks.lt_Send_Personal_NoteLet]}	   {[_ tasks.lt_Send_Personal_NoteLet]}}	 
-		{{[_ tasks.Send_Web_Info_Card]}              {[_ tasks.Send_Web_Info_Card]}}             
-	    }}
+	    {options $opts}
 	}
 
         {task:text(text),optional