Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl	15 May 2007 20:14:44 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -1,9 +1,9 @@
 # packages/lorsm/www/md/classificationmd/classification_pur.tcl
 
 ad_page_contract {
-    
+
     Add/Edit Classification MD Purpose
-    
+
     @author Gerard Low (glow5809@mail.usyd.edu.au)
     @author Ernie Ghiglione (ErnieG@mm.st)
     @creation-date 16 October 2004
@@ -19,47 +19,60 @@
 
 # set context & title
 
-set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.AddEdit_Purpose]"]
+set context [list \
+                [list   [export_vars -base ".." ims_md_id] \
+                        "[_ lorsm.IMS_Metadata_Editor]"] \
+
+                [list   [export_vars -base "../classificationmd" ims_md_id] \
+                        "[_ lorsm.Classification_MD]"] \
+
+                [list   [export_vars \
+                            -base "classification" {ims_md_id ims_md_cl_id}] \
+                        "[_ lorsm.Classification_Entry]"] \
+
+                "[_ lorsm.AddEdit_Purpose]"]
+
 set title "[_ lorsm.lt_Edit_Classification_M_1]"
 
 
 # Form
-
-ad_form -name classificationmd_pur \
+ad_form \
+    -name classificationmd_pur \
     -cancel_url classification?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id \
     -mode edit \
     -form {
+        ims_md_cl_id:key(ims_md_classification_seq)
 
-    ims_md_cl_id:key(ims_md_classification_seq)
+        {purpose_s:text,nospell
+            {html {size 10}}
+            {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+            {label "[_ lorsm.Source]"}
+        }
 
-    {purpose_s:text,nospell
-        {html {size 10}}
-        {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
-        {label "[_ lorsm.Source]"}
-    }
-    
-    {purpose_v:text,nospell
-        {html {size 20}}
-	{help_text "[_ lorsm.lt_Characteristics_of_th]"}
-        {label "[_ lorsm.Purpose]"}
-    }
+        {purpose_v:text,nospell
+            {html {size 20}}
+            {help_text "[_ lorsm.lt_Characteristics_of_th]"}
+            {label "[_ lorsm.Purpose]"}
+        }
 
-    {ims_md_id:text(hidden) {value $ims_md_id}
-    } 
+        {ims_md_id:text(hidden) {value $ims_md_id}}
 
-} -select_query  {select * from ims_md_classification where ims_md_cl_id = :ims_md_cl_id
+    } -select_query {
+        select *
+        from ims_md_classification
+        where ims_md_cl_id = :ims_md_cl_id
 
-} -edit_data {
-        db_dml do_update "
-            update ims_md_classification
+    } -edit_data {
+        db_dml do_update \
+            "update ims_md_classification
             set purpose_s = :purpose_s,
             purpose_v = :purpose_v
             where ims_md_cl_id = :ims_md_cl_id "
 
-} -after_submit {
-    ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
+    } -after_submit {
+        ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
         ad_script_abort
-} 
+    }
 
 # Classification Purpose
 template::list::create \
@@ -68,21 +81,12 @@
     -no_data "[_ lorsm.No_Purpose_Available]" \
     -html { align right style "width: 100%;" } \
     -elements {
-	purpose_s {
-            label ""
-        }
-	purpose_v {
-            label ""
-        }
+        purpose_s { label "" }
+        purpose_v { label "" }
     }
 
 db_multirow d_cl_pur select_cl_pur {
-    select purpose_s,
-           purpose_v,
-           ims_md_cl_id,
-           ims_md_id
-    from 
-           ims_md_classification
-    where
-           ims_md_cl_id = :ims_md_cl_id
-} 
+    select purpose_s, purpose_v, ims_md_cl_id, ims_md_id
+    from ims_md_classification
+    where ims_md_cl_id = :ims_md_cl_id
+}