Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl	12 Dec 2008 14:25:39 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl	16 Apr 2010 21:41:40 -0000	1.4.2.1
@@ -20,75 +20,61 @@
 # set context & title
 if { ![ad_form_new_p -key ims_md_te_rq_id]} {
     set context [list \
-                    [list   [export_vars -base ".." ims_md_id] \
-                            "[_ lorsm.IMS_Metadata_Editor]"] \
-
-                    [list   [export_vars -base "../technicalmd" \\im\\s_md_id] \
-                            "[_ lorsm.Technical_MD]"] \
-
-                    "[_ lorsm.Edit_Requirement]"]
+                     [list   [export_vars -base "../" ims_md_id] \
+                          "[_ lorsm.IMS_Metadata_Editor]"] \
+                     [list   [export_vars -base "../technicalmd" ims_md_id] \
+                          "[_ lorsm.Technical_MD]"] \
+                     "[_ lorsm.Edit_Requirement]"]
     set title "[_ lorsm.lt_Edit_Technical_MD_Req]"
 } else {
     set context [list \
-                    [list   [export_vars -base ".." ims_md_id] \
-                            "[_ lorsm.IMS_Metadata_Editor]"] \
-
-                    [list   [export_vars -base "../technicalmd" \\im\\s_md_id] \
-                            "[_ lorsm.Technical_MD]"] \
-
-                    "[_ lorsm.Add_Requirement]"]
+                     [list   [export_vars -base ".." ims_md_id] \
+                          "[_ lorsm.IMS_Metadata_Editor]"] \
+                     [list   [export_vars -base "../technicalmd" ims_md_id] \
+                          "[_ lorsm.Technical_MD]"] \
+                     "[_ lorsm.Add_Requirement]"]
     set title "[_ lorsm.lt_Add_Technical_MD_Requ]"
 }
 
 # Form
 
 ad_form \
     -name technicalmd_req \
-    -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+    -cancel_url "../technicalmd?ims_md_id=$ims_md_id" \
     -mode edit \
+    -select_query_name technicalmd_req_ad_form \
     -form {
         ims_md_te_rq_id:key(ims_md_technical_requirement_seq)
-
         {type_s:text,nospell
             {html {size 10}}
             {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
             {label "[_ lorsm.Source]"}
         }
-
         {type_v:text,nospell
             {html {size 20}}
             {help_text "[_ lorsm.Type_of_requirement]"}
             {label "[_ lorsm.Type_1]"}
         }
-
         {name_v:text,nospell
             {html {size 20}}
             {help_text "[_ lorsm.lt_Name_of_required_item]"}
             {label "[_ lorsm.Name_1]"}
         }
-
         {min_version:text,nospell
             {html {size 10}}
             {help_text "[_ lorsm.lt_Lowest_version_of_the]"}
             {label "[_ lorsm.Minimum_Version]"}
         }
-
         {max_version:text,nospell
             {html {size 10}}
             {help_text "[_ lorsm.lt_Highest_version_of_th]"}
             {label "[_ lorsm.Maximum_Version]"}
         }
-
         {ims_md_id:text(hidden) {value $ims_md_id}}
-
-    } -select_query_name technicalmd_req_ad_form {
-
     } -edit_data {
         db_dml do_update {}
-
     } -new_data {
         db_dml do_insert {}
-
     } -after_submit {
         ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
         ad_script_abort