Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl	17 Nov 2008 13:37:55 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl	12 Dec 2008 14:25:38 -0000	1.4
@@ -52,18 +52,10 @@
     } -on_submit {
         # check if the Rights Copyright details already exist...
 
-        if {[db_0or1row select_type {
-                                        select ims_md_id
-                                        from ims_md_rights
-                                        where ims_md_id = :ims_md_id}]} {
-            db_dml do_update \
-                "update ims_md_rights
-                set caor_s = :caor_s, caor_v = :caor_v
-                where ims_md_id = :ims_md_id "
+        if {[db_0or1row select_type {}]} {
+            db_dml do_update {}
         } else {
-            db_dml do_insert \
-                "insert into ims_md_rights (ims_md_id, caor_s, caor_v)
-                values (:ims_md_id, :caor_s, :caor_v) "
+            db_dml do_insert {}
         }
 
     } -after_submit {
@@ -81,8 +73,4 @@
         caor { label "[_ lorsm.Copyright_Info]" }
     }
 
-db_multirow d_ri_caor select_ri_caor {
-    select '[' || caor_s || '] ' || caor_v as caor, ims_md_id
-    from ims_md_rights
-    where ims_md_id = :ims_md_id
-}
+db_multirow d_ri_caor select_ri_caor {}