Index: openacs-4/packages/assessment/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/assessment/www/index.tcl	29 Apr 2005 18:38:50 -0000	1.14
+++ openacs-4/packages/assessment/www/index.tcl	12 Jun 2006 02:49:51 -0000	1.15
@@ -24,7 +24,7 @@
     -elements {
         title {
             label "[_ assessment.open_assessments]"
-            display_template {<a href="@assessments.assessment_url@">@assessments.title@</a>}
+            display_template {<a href="@assessments.assessment_url@">@assessments.title;noquote@</a>}
         }
     } -main_class {
         narrow
@@ -33,6 +33,7 @@
 # get the information of all open assessments
 template::multirow create assessments assessment_id title description assessment_url
 db_foreach open_asssessments {} {
+    set title [as::assessment::title -title $title]
     if {([empty_string_p $start_time] || $start_time <= $cur_time) && ([empty_string_p $end_time] || $end_time >= $cur_time)} {
 	if {[empty_string_p $password]} {
 	    set assessment_url [export_vars -base "assessment" {assessment_id}]
@@ -51,7 +52,7 @@
     -elements {
         title {
             label "[_ assessment.Assessments]"
-            display_template {@sessions.title@}
+            display_template {@sessions.title;noquote@}
         }
         session {
             label {[_ assessment.Sessions]}