Index: openacs-4/packages/lorsm/www/md/classificationmd/classification_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/classificationmd/Attic/classification_desc.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/classificationmd/classification_desc.tcl	17 May 2005 17:03:42 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/classificationmd/classification_desc.tcl	5 Dec 2006 09:15:05 -0000	1.3.4.1
@@ -55,20 +55,12 @@
     {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}
     }
 
-} -select_query  {select * from ims_md_classification_descrip where ims_md_cl_de_id = :ims_md_cl_de_id and ims_md_cl_id = :ims_md_cl_id
+} -select_query_name select_md_class_desc \
+  -edit_data {
+        db_dml do_update ""
 
-} -edit_data {
-        db_dml do_update "
-            update ims_md_classification_descrip
-            set descrip_l = :descrip_l,
-            descrip_s = :descrip_s
-            where ims_md_cl_de_id = :ims_md_cl_de_id"
-
 } -new_data {
-        db_dml do_insert "
-            insert into ims_md_classification_descrip (ims_md_cl_de_id, ims_md_cl_id, descrip_l, descrip_s)
-            values 
-            (:ims_md_cl_de_id, :ims_md_cl_id, :descrip_l, :descrip_s)"
+        db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
@@ -82,8 +74,9 @@
     -no_data "[_ lorsm.lt_No_Description_Availa]" \
     -html { align right style "width: 100%;" } \
     -elements {
-	desc {
+	descrip {
 	    label ""
+	    display_eval {[concat \[$descrip_l\] $descrip_s]}
 	}
         export {
             display_eval {\[Edit\]}
@@ -93,17 +86,4 @@
         }
     }
 
-db_multirow d_cl_desc select_cl_desc {
-    select
-    '[' || clde.descrip_l || '] ' || clde.descrip_s as desc,
-    clde.ims_md_cl_de_id,
-    cl.ims_md_cl_id,
-    cl.ims_md_id
-    from 
-           ims_md_classification_descrip clde,
-           ims_md_classification cl
-    where
-           clde.ims_md_cl_id = cl.ims_md_cl_id
-    and
-           clde.ims_md_cl_id = :ims_md_cl_id
-} 
+db_multirow d_cl_desc select_cl_desc {}