Index: openacs-4/packages/curriculum/lib/admin-curriculums-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/admin-curriculums-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/curriculum/lib/admin-curriculums-oracle.xql	4 Jun 2003 16:43:42 -0000	1.2
+++ openacs-4/packages/curriculum/lib/admin-curriculums-oracle.xql	15 Jun 2003 15:33:02 -0000	1.3
@@ -7,11 +7,15 @@
         <querytext>
     select   cc.curriculum_id,
              cc.name as curriculum_name,
-             cc.description as curriculum_desc,
+             dbms_lob.substr(cc.description,:truncation_length,1) as curriculum_desc,
+             case when dbms_lob.getlength(cc.description) > :truncation_length
+                  then 1 else 0 end as curr_desc_trunc_p,
              cc.sort_key as curriculum_sort_order,
              ce.element_id,
              ce.name as element_name,
-             ce.description as element_desc,
+             dbms_lob.substr(ce.description,:truncation_length,1) as element_desc,
+             case when dbms_lob.getlength(ce.description) > :truncation_length
+                  then 1 else 0 end as elem_desc_trunc_p,
              ce.url as element_url,
              ce.enabled_p as element_enabled_p,
              ce.sort_key as element_sort_order,