Index: openacs-4/packages/evaluation/lib/tasks-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/lib/tasks-chunk.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/evaluation/lib/tasks-chunk.tcl 13 Jul 2009 11:39:10 -0000 1.19
+++ openacs-4/packages/evaluation/lib/tasks-chunk.tcl 13 Jul 2009 12:19:21 -0000 1.20
@@ -38,19 +38,19 @@
lappend elements view \
[list label "" \
sub_class narrow \
- display_template {} \
+ display_template {} \
link_url_eval {[export_vars -base "${base_url}admin/tasks/task-add-edit" { grade_id task_id mode return_url }]} \
link_html { title "[_ evaluation-portlet.View_task_]" }]
lappend elements edit \
[list label "" \
sub_class narrow \
- display_template {} \
+ display_template {} \
link_url_eval {[export_vars -base "${base_url}admin/tasks/task-add-edit" { grade_id return_url item_id task_id }]} \
link_html { title "[_ evaluation-portlet.Edit_task_]" }]
lappend elements delete \
[list label "" \
sub_class narrow \
- display_template {} \
+ display_template {} \
link_url_eval {[export_vars -base "${base_url}admin/tasks/task-delete" { grade_id task_id return_url }]} \
link_html { title "[_ evaluation-portlet.Delete_task_]" }]
@@ -61,20 +61,21 @@
lappend elements answer \
[list label "" \
link_url_col answer_url \
- display_template { @tasks.answer;noquote@ } \
link_html { title "[_ evaluation-portlet.Addedit_answer_]" }]
lappend elements view \
[list label "" \
sub_class narrow \
- display_template {} \
+ display_template {} \
link_url_eval {[export_vars -base "${base_url}task-view" { grade_id task_id return_url }]} \
link_html { title "[_ evaluation-portlet.View_task_]" }]
set multirow_name tasks
set actions ""
}
+set suffix [ad_generate_random_string 4]
+set list_name "tasks_${suffix}"
template::list::create \
- -name tasks \
+ -name $list_name \
-multirow $multirow_name \
-actions $actions \
-key task_id \
@@ -85,7 +86,7 @@
-elements $elements \
-orderby { default_value task_name }
-set assignments_orderby [template::list::orderby_clause -orderby -name tasks]
+set assignments_orderby [template::list::orderby_clause -orderby -name $list_name]
if {[string equal $assignments_orderby ""]} {
set assignments_orderby " order by task_name asc"