Index: openacs-4/packages/simulation/www/siminst/map-tasks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-tasks.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/simulation/www/siminst/map-tasks.tcl 29 Jun 2004 10:17:34 -0000 1.15 +++ openacs-4/packages/simulation/www/siminst/map-tasks.tcl 30 Nov 2004 21:09:17 -0000 1.16 @@ -28,6 +28,8 @@ a.pretty_name, a.description, a.description_mime_type, + st.default_text, + st.default_text_mime_type, st.attachment_num, (select pretty_name from workflow_roles where role_id = a.assigned_role) as assigned_role_pretty from workflow_actions a, @@ -66,7 +68,18 @@ {html {cols 60 rows 4}} \ {section $section_name} ]] set description_$row(action_id) [template::util::richtext::create $row(description) $row(description_mime_type)] - + + # Show default message text field if this is a message-type task + if { ![empty_string_p $recipient_role_pretty] } { + ad_form -extend -name tasks -form \ + [list [list default_text_$row(action_id):richtext,optional \ + {label "Task Default message"} \ + {help_text "This is the default text that will appear in a message-type task form."} \ + {html {cols 60 rows 4}} \ + {section $section_name} ]] + set default_text_$row(action_id) [template::util::richtext::create $row(default_text) $row(default_text_mime_type)] + } + # Save attachment_num for later ad_form -extend -name tasks -form \ [list [list attachment_num_$row(action_id):integer(hidden),optional \ @@ -79,7 +92,7 @@ } ad_form -extend -name tasks -form \ - [list [list attachment_$row(action_id)_${i}:integer(select) \ + [list [list attachment_$row(action_id)_${i}:integer(select),optional \ {label "Attachment $i"} \ {options $prop_options} \ {help_text "Select from existing attachments or