Index: openacs-4/packages/curriculum/lib/admin-curriculums.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/admin-curriculums.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/curriculum/lib/admin-curriculums.tcl	13 Jun 2003 11:44:33 -0000	1.2
+++ openacs-4/packages/curriculum/lib/admin-curriculums.tcl	15 Jun 2003 15:33:02 -0000	1.3
@@ -38,6 +38,9 @@
 # Construct a nicely formatted string to use in the query file.
 set where_clauses [ad_decode $where_clauses {} {} "    and    [join $where_clauses "\n    and    "]"]
 
+set truncation_length [parameter::get -package_id $package_id \
+			   -parameter DescTruncLength -default 200]
+
 # List of curriculums and their elements.
 db_multirow -extend {
     curriculum_id_export
@@ -50,14 +53,4 @@
 
 set curriculum_count [curriculum::conn -nocache curriculum_count]
 
-##
-## DEBUG. FIXME. 
-##
-set debug_output "
-<b>debug_output</b>
-<br>package_id: $package_id
-<br>workflow_id: $workflow_id
-<br>action_role: $action_role
-"
-
 ad_return_template