Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl	12 Dec 2008 14:25:37 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl	16 Apr 2010 21:35:12 -0000	1.5
@@ -22,40 +22,33 @@
 # set context & title
 if { ![ad_form_new_p -key ims_md_cl_ta_ta_id]} {
     set context [list \
-                    [list   [export_vars -base ".." ims_md_id] \
-                            "[_ lorsm.IMS_Metadata_Editor]"] \
+                     [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 ims_md_cl_ta_id}] \
+                          "[_ lorsm.Classification_Entry]"] \
+                     [list   [export_vars \
+                                  -base "classification_tpath" \
+                                  {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] \
+                          "[_ lorsm.Taxonomic_Paths_2]"] \
+                     "[_ lorsm.Edit_Taxonomy]"]
 
-                    [list   [export_vars -base "../classificationmd" ims_md_id] \
-                            "[_ lorsm.Classification_MD]"] \
-
-                    [list   [export_vars \
-                                -base "classification" \
-                                {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] \
-                            "[_ lorsm.Classification_Entry]"] \
-
-                    [list   [export_vars \
-                                -base "classification_tpath" \
-                                {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] \
-                            "[_ lorsm.Taxonomic_Paths_2]"] \
-
-                    "[_ lorsm.Edit_Taxonomy]"]
-
     set title "[_ lorsm.lt_Edit_Classification_M_2]"
 } else {
     set context [list \
-                    [list   [export_vars -base ".." ims_md_id] \
-                            "[_ lorsm.IMS_Metadata_Editor]"] \
+                     [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 ims_md_cl_ta_id}] \
+                          "[_ lorsm.lt_Classification_Entry_]"] \
+                     "[_ lorsm.Add_Taxonomy]"]
 
-                    [list   [export_vars -base "../classificationmd" ims_md_id] \
-                            "[_ lorsm.Classification_MD]"] \
-
-                    [list   [export_vars \
-                                -base "classification" \
-                                {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] \
-                            "[_ lorsm.lt_Classification_Entry_]"] \
-
-                    "[_ lorsm.Add_Taxonomy]"]
-
     set title "[_ lorsm.lt_Add_Classification_MD_4]"
 }
 
@@ -64,6 +57,7 @@
     -name classificationmd_taxon \
     -cancel_url classification_tpath?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id&ims_md_cl_ta_id=$ims_md_cl_ta_id \
     -mode edit \
+    -select_query_name classificationmd_taxon_ad_form \
     -form {
         ims_md_cl_ta_ta_id:key(ims_md_classification_taxpath_taxon_seq)
 
@@ -91,8 +85,6 @@
 
         {ims_md_cl_ta_id:text(hidden) {value $ims_md_cl_ta_id}}
 
-    } -select_query_name classificationmd_taxon_ad_form {
-
     } -edit_data {
         db_dml do_update {}