Index: openacs-4/packages/dotlrn/www/admin/class.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/dotlrn/www/admin/class.tcl 21 May 2002 17:30:02 -0000 1.12 +++ openacs-4/packages/dotlrn/www/admin/class.tcl 23 May 2002 23:36:33 -0000 1.13 @@ -37,6 +37,8 @@ ad_script_abort } +set description [ad_quotehtml $description] + set terms [db_list_of_lists select_terms_for_select_widget { select dotlrn_terms.term_name || ' ' || dotlrn_terms.term_year, dotlrn_terms.term_id Index: openacs-4/packages/dotlrn/www/admin/club.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/dotlrn/www/admin/club.tcl 21 May 2002 17:30:02 -0000 1.11 +++ openacs-4/packages/dotlrn/www/admin/club.tcl 23 May 2002 23:36:33 -0000 1.12 @@ -34,6 +34,8 @@ db_1row select_club {} +set description [ad_quotehtml $description] + set context_bar [list [list clubs [parameter::get -parameter clubs_pretty_plural]] $pretty_name] ad_return_template Index: openacs-4/packages/dotlrn/www/admin/clubs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/clubs.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/dotlrn/www/admin/clubs.tcl 21 May 2002 17:30:02 -0000 1.9 +++ openacs-4/packages/dotlrn/www/admin/clubs.tcl 23 May 2002 23:36:33 -0000 1.10 @@ -32,6 +32,8 @@ set title [parameter::get -parameter clubs_pretty_plural] set context_bar [list $title] -db_multirow clubs select_clubs {} +db_multirow clubs select_clubs {} { + set description [ad_quotehtml $description] +} ad_return_template Index: openacs-4/packages/dotlrn/www/admin/department.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/dotlrn/www/admin/department.tcl 21 May 2002 17:30:02 -0000 1.8 +++ openacs-4/packages/dotlrn/www/admin/department.tcl 23 May 2002 23:36:33 -0000 1.9 @@ -41,6 +41,8 @@ ad_script_abort } +set description [ad_quotehtml $description] + set context_bar [list [list departments [parameter::get -parameter departments_pretty_plural]] $pretty_name] set referer "[ns_conn url]?[ns_conn query]"