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.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl	15 May 2007 20:14:45 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl	17 Nov 2008 13:37:55 -0000	1.3
@@ -1,9 +1,9 @@
 # packages/lorsm/www/md/rightsmd/rights_caor.tcl
 
 ad_page_contract {
-    
+
     Add/Edit Rights MD Copyright or other Restrictions
-    
+
     @author Gerard Low (glow5809@mail.usyd.edu.au)
     @author Ernie Ghiglione (ErnieG@mm.st)
     @creation-date 16 October 2004
@@ -17,71 +17,72 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  [list [export_vars -base "../rightsmd" ims_md_id] "[_ lorsm.Rights_MD]"] " <#_Add/Edit Copyrights or other Restrictions #>"]
-set title "[_ lorsm.lt_Edit_Rights_MD_Copyri]"
+set context [list \
+                [list \
+                    [export_vars -base ".." ims_md_id] \
+                    "[_ lorsm.IMS_Metadata_Editor]"] \
 
+                [list \
+                    [export_vars -base "../rightsmd" ims_md_id] \
+                    "[_ lorsm.Rights_MD]"] \
 
-# Form
+                " <#_Add/Edit Copyrights or other Restrictions #>"]
+set title "[_ lorsm.lt_Edit_Rights_MD_Copyri]"
 
-ad_form -name rightsmd_caor \
+# Form
+ad_form \
+    -name rightsmd_caor \
     -cancel_url ../rightsmd?ims_md_id=$ims_md_id \
     -mode edit \
     -form {
+        {caor_s:text,nospell
+            {html {size 10}}
+            {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+            {label "[_ lorsm.Source]"}
+        }
 
-    {caor_s:text,nospell
-        {html {size 10}}
-        {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
-        {label "[_ lorsm.Source]"}
-    }
+        {caor_v:text,nospell
+            {html {size 10}}
+            {help_text "[_ lorsm.lt_Whether_copyright_or_]"}
+            {label "[_ lorsm.lt_Copyright_or_other_Re]"}
+        }
 
-    {caor_v:text,nospell
-        {html {size 10}}
-	{help_text "[_ lorsm.lt_Whether_copyright_or_]"}
-        {label "[_ lorsm.lt_Copyright_or_other_Re]"}
-    }
     {ims_md_id:text(hidden) {value $ims_md_id}}
 
-} -on_submit {
-    # check if the Rights Copyright details already exist...
+    } -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}]} {
+        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 "
+        } 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_update "
-            update ims_md_rights
-            set caor_s = :caor_s, caor_v = :caor_v
-            where ims_md_id = :ims_md_id "
-
-    } 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) "
+    } -after_submit {
+        ad_returnredirect [export_vars -base "../rightsmd" {ims_md_id}]
+        ad_script_abort
     }
 
-} -after_submit {
-    ad_returnredirect [export_vars -base "../rightsmd" {ims_md_id}]
-        ad_script_abort
-} 
-
 # Rights Copyright or other Restrictions
 template::list::create \
     -name d_ri_caor \
     -multirow d_ri_caor \
     -no_data "[_ lorsm.lt_No_Copyright_or_other]" \
     -html { align right style "width: 100%;" } \
     -elements {
-	caor {
-            label "[_ lorsm.Copyright_Info]"
-        }
+        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
-} 
+    select '[' || caor_s || '] ' || caor_v as caor, ims_md_id
+    from ims_md_rights
+    where ims_md_id = :ims_md_id
+}