Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl	6 Mar 2008 13:54:00 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl	17 Nov 2008 13:36:45 -0000	1.4
@@ -1,9 +1,9 @@
 # packages/lorsm/www/md/generalmd/general_desc.tcl
 
 ad_page_contract {
-    
+
     Add/Edit General MD Description
-    
+
     @author Gerard Low (glow5809@mail.usyd.edu.au)
     @author Ernie Ghiglione (ErnieG@mm.st)
     @creation-date 16 October 2004
@@ -19,54 +19,70 @@
 
 # set context & title
 if { ![ad_form_new_p -key ims_md_ge_desc_id]} {
-    set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  [list [export_vars -base "../generalmd" ims_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Description]"]
+    set context [list \
+                    [list   [export_vars -base ".." ims_md_id] \
+                            "[_ lorsm.IMS_Metadata_Editor]"] \
+
+                    [list   [export_vars -base "../generalmd" ims_md_id] \
+                            "[_ lorsm.General_MD]"] \
+
+                    "[_ lorsm.Edit_Description]"]
     set title "[_ lorsm.lt_Edit_General_MD_Descr]"
 } else {
-    set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  [list [export_vars -base "../generalmd" ims_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Description]"]
+    set context [list \
+                    [list   [export_vars -base ".." ims_md_id] \
+                            "[_ lorsm.IMS_Metadata_Editor]"] \
+
+                    [list   [export_vars -base "../generalmd" ims_md_id] \
+                            "[_ lorsm.General_MD]"] \
+
+                    "[_ lorsm.Add_Description]"]
     set title "[_ lorsm.lt_Add_General_MD_Descri]"
 }
 
 # Form
-
-ad_form -name generalmd_desc \
+ad_form \
+    -name generalmd_desc \
     -cancel_url ../generalmd?ims_md_id=$ims_md_id \
     -mode edit \
     -form {
+        ims_md_ge_desc_id:key(ims_md_general_desc_seq)
 
-    ims_md_ge_desc_id:key(ims_md_general_desc_seq)
+        {descrip_l:text,nospell,optional
+            {html {size 10}}
+            {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+            {label "[_ lorsm.Language]"}
+        }
 
-    {descrip_l:text,nospell,optional
-        {html {size 10}}
-        {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
-        {label "[_ lorsm.Language]"}
-    }
+        {descrip_s:text(textarea),nospell
+            {html {rows 5 cols 50}}
+            {help_text "[_ lorsm.lt_Describes_learning_ob]"}
+            {label "[_ lorsm.Description]"}
+        }
 
-    {descrip_s:text(textarea),nospell
-        {html {rows 5 cols 50}}
-        {help_text "[_ lorsm.lt_Describes_learning_ob]"}
-        {label "[_ lorsm.Description]"}
-    }
-    
-    {ims_md_id:text(hidden) {value $ims_md_id}
-    }
+        {ims_md_id:text(hidden) {value $ims_md_id}}
 
-} -select_query  {select * from ims_md_general_desc where ims_md_ge_desc_id = :ims_md_ge_desc_id and ims_md_id = :ims_md_id
+    } -select_query  {
+        select *
+        from ims_md_general_desc
+        where ims_md_ge_desc_id = :ims_md_ge_desc_id
+            and ims_md_id = :ims_md_id
 
-} -edit_data {
-        db_dml do_update "
-            update ims_md_general_desc
+    } -edit_data {
+        db_dml do_update \
+            "update ims_md_general_desc
             set descrip_l = :descrip_l, descrip_s = :descrip_s
             where ims_md_ge_desc_id = :ims_md_ge_desc_id "
-} -new_data {
-        db_dml do_insert "
-            insert into ims_md_general_desc (ims_md_ge_desc_id, ims_md_id, descrip_l, descrip_s)
-            values
-            (:ims_md_ge_desc_id, :ims_md_id, :descrip_l, :descrip_s)"
 
-} -after_submit {
-    ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+    } -new_data {
+            db_dml do_insert \
+                "insert into ims_md_general_desc (ims_md_ge_desc_id, ims_md_id, descrip_l, descrip_s)
+                values (:ims_md_ge_desc_id, :ims_md_id, :descrip_l, :descrip_s)"
+
+    } -after_submit {
+        ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
         ad_script_abort
-} 
+    }
 
 # General Language
 template::list::create \
@@ -75,27 +91,20 @@
     -no_data "[_ lorsm.lt_No_Description_Availa]" \
     -html { style "width: 100%; align:rigth;" } \
     -elements {
-        descrip_l {
-            label "[_ lorsm.Language_1]"
-        }
-	descrip_s {
-	    label "[_ lorsm.Description_1]"
-	}
+        descrip_l {label "[_ lorsm.Language_1]"}
+        descrip_s {label "[_ lorsm.Description_1]"}
         export {
             display_eval {\[Edit\]}
-            link_url_eval { [export_vars -base "general_desc" {ims_md_ge_desc_id ims_md_id}] }
+            link_url_eval { [export_vars \
+                                -base "general_desc" \
+                                {ims_md_ge_desc_id ims_md_id}] }
             link_html {title "[_ lorsm.Edit_Record] "}
             html { align center }
         }
     }
 
 db_multirow d_gen_desc select_ge_desc {
-    select descrip_l,
-           descrip_s,
-           ims_md_ge_desc_id,
-           ims_md_id
-    from 
-           ims_md_general_desc
-    where
-           ims_md_id = :ims_md_id
-} 
+    select descrip_l, descrip_s, ims_md_ge_desc_id, ims_md_id
+    from ims_md_general_desc
+    where ims_md_id = :ims_md_id
+}