Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl,v diff -u -N -r1.4 -r1.4.2.1 --- openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl 12 Dec 2008 14:25:38 -0000 1.4 +++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl 16 Apr 2010 21:41:40 -0000 1.4.2.1 @@ -20,23 +20,19 @@ # set context & title if { ![ad_form_new_p -key ims_md_ed_la_id]} { set context [list \ - [list [export_vars -base ".." ims_md_id] \ - "[_ lorsm.IMS_Metadata_Editor]"] \ - - [list [export_vars -base "../educationalmd" ims_md_id] \ - "[_ lorsm.Educational_MD]"] \ - - "[_ lorsm.Edit_Language]"] + [list [export_vars -base ".." ims_md_id] \ + "[_ lorsm.IMS_Metadata_Editor]"] \ + [list [export_vars -base "../educationalmd" ims_md_id] \ + "[_ lorsm.Educational_MD]"] \ + "[_ lorsm.Edit_Language]"] set title "[_ lorsm.lt_Edit_Educational_MD_L]" } else { set context [list \ - [list [export_vars -base ".." ims_md_id] \ - "[_ lorsm.IMS_Metadata_Editor]"] \ - - [list [export_vars -base "../educationalmd" ims_md_id] \ - "[_ lorsm.Educational_MD]"] \ - - "[_ lorsm.Add_Language]"] + [list [export_vars -base ".." ims_md_id] \ + "[_ lorsm.IMS_Metadata_Editor]"] \ + [list [export_vars -base "../educationalmd" ims_md_id] \ + "[_ lorsm.Educational_MD]"] \ + "[_ lorsm.Add_Language]"] set title "[_ lorsm.lt_Add_Educational_MD_La]" } @@ -46,6 +42,7 @@ -name educationalmd_lang \ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \ -mode edit \ + -select_query_name educationalmd_lang_ad_form \ -form { ims_md_ed_la_id:key(ims_md_educational_lang_seq) @@ -57,8 +54,6 @@ {ims_md_id:text(hidden) {value $ims_md_id}} - } -select_query_name educationalmd_lang_ad_form { - } -edit_data { db_dml do_update {}