Index: openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl 26 Apr 2005 17:25:42 -0000 1.8
+++ openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl 25 Feb 2006 15:55:59 -0000 1.8.2.1
@@ -32,7 +32,12 @@
label "[_ assessment.open_assessments]" \
display_template {@assessments.title@}]
+lappend elements anonymous_p \
+ [list \
+ label "[_ assessment-portlet.lt_Is_this_assessment_an]" \
+ display_template {YesNo}]
+
# create a list with all open assessments
template::list::create \
-name assessments \
@@ -42,7 +47,7 @@
-main_class narrow
# get the information of all open assessments
-template::multirow create assessments assessment_id title description assessment_url community_url community_name
+template::multirow create assessments assessment_id title description assessment_url community_url community_name anonymous_p
set old_comm_node_id 0
db_foreach open_asssessments {} {
if {([empty_string_p $start_time] || $start_time <= $cur_time) && ([empty_string_p $end_time] || $end_time >= $cur_time)} {
@@ -59,7 +64,7 @@
append assessment_url [export_vars -base "assessment-password" {assessment_id}]
}
- template::multirow append assessments $assessment_id $title $description $assessment_url $community_url $community_name
+ template::multirow append assessments $assessment_id $title $description $assessment_url $community_url $community_name $anonymous_p
}
}