Index: openacs-4/contrib/packages/project-manager/www/task-select-project.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-select-project.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/project-manager/www/task-select-project.tcl	26 Jan 2004 15:39:40 -0000	1.2
+++ openacs-4/contrib/packages/project-manager/www/task-select-project.tcl	27 Apr 2004 00:49:29 -0000	1.3
@@ -14,15 +14,13 @@
 } {
 
     {process_id:integer ""}
-
+    {return_url ""}
+    
 } -properties {
 
     context_bar:onevalue
     title:onevalue
-    select_widget:onevalue
-    select_widget_name:onevalue
-    form_definition_beg:onevalue
-    form_definition_end:onevalue
+    choices:onevalue
 
 } -validate {
 } -errors {
@@ -36,11 +34,11 @@
 # terminology
 set project_term    [parameter::get -parameter "ProjectName" -default "Project"]
 set task_term       [parameter::get -parameter "TaskName" -default "Task"]
-set task_term_lower [parameter::get -parameter "taskname" -default "task"]
-set use_uncertain_completion_times_p [parameter::get -parameter "UseUncertainCompletionTimesP" -default "1"]
+# set task_term_lower [parameter::get -parameter "taskname" -default "task"]
+# set use_uncertain_completion_times_p [parameter::get -parameter "UseUncertainCompletionTimesP" -default "1"]
 
 
-set title "Edit a $task_term_lower"
+set title "Select a $project_term to assign this $task_term to"
 
 if {[exists_and_not_null process_id]} {
     set context_bar [ad_context_bar [list "processes" "Processes"] "Use"]
@@ -54,17 +52,12 @@
 
 set root_folder [db_string get_root "select pm_project__get_root_folder (:package_id, 'f')"]
 
-set select_widget_name project_item_id
-set select_widget "<select name=\"$select_widget_name\">"
+set export_vars [export_vars -url {process_id return_url}]
 
-
 db_foreach select_a_project { } -column_array proj {
-    append select_widget "<option value=\"$proj(project_item_id)\">$proj(project_name)</option>"
+    append choices "<a href=\"task-add-edit?$export_vars&project_item_id=$proj(project_item_id)\">$proj(project_name)</a> <font color=\"777777\" size=\"-1\">$proj(description)</font><br />"
+} if_no_rows {
+    append choices "No open projects to add tasks to"
 }
-append select_widget "</select>"
 
-set form_definition_beg "<form action=\"task-add-edit\" method=\"post\">"
 
-append form_definition_beg [export_vars -form {process_id}]
-set form_definition_end "</form>"
-