Index: openacs-4/packages/lorsm/www/md/generalmd/general_aggl.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_aggl.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_aggl.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_aggl.tcl	5 Dec 2006 10:41:43 -0000	1.3.4.1
@@ -47,19 +47,13 @@
 } -on_submit {
     # check if the aggregation level already exist..
 
-    if {[db_0or1row select_aggregation_level {select ims_md_id from ims_md_general where ims_md_id = :ims_md_id}]} {
+    if {[db_0or1row select_aggregation_level {}]} {
 
-        db_dml do_update "
-            update ims_md_general
-            set agg_level_v = :agg_level_v, agg_level_s = :agg_level_s
-            where ims_md_id = :ims_md_id "
+        db_dml do_update ""
 
     } else {
 
-        db_dml do_insert "
-            insert into ims_md_general (ims_md_id, agg_level_v, agg_level_s)
-            values
-            (:ims_md_id, :agg_level_v, :agg_level_s)"
+        db_dml do_insert ""
 
     }
 
@@ -89,13 +83,5 @@
         }
     }
 
-db_multirow d_gen_aggl select_ge_aggl {
-    select agg_level_s,
-           agg_level_v, 
-           ims_md_id
-    from 
-           ims_md_general
-    where
-           ims_md_id = :ims_md_id
-}
+db_multirow d_gen_aggl select_ge_aggl {}
 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_aggl.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_cata.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_cata.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_cata.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_cata.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -57,18 +57,11 @@
     {ims_md_id:text(hidden) {value $ims_md_id}
     }
 
-} -select_query  {select * from ims_md_general_cata where ims_md_ge_cata_id = :ims_md_ge_cata_id and ims_md_id = :ims_md_id
-
-} -edit_data {
-        db_dml do_update "
-            update ims_md_general_cata
-            set catalog = :catalog, entry_l = :entry_l, entry_s = :entry_s
-            where ims_md_ge_cata_id = :ims_md_ge_cata_id"
+} -select_query_name  select_md_gen_cata \
+  -edit_data {
+        db_dml do_update ""
 } -new_data {
-        db_dml do_insert "
-            insert into ims_md_general_cata (ims_md_ge_cata_id, ims_md_id, catalog, entry_l, entry_s)
-            values
-            (:ims_md_ge_cata_id, :ims_md_id, :catalog, :entry_l, :entry_s)"
+        db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
@@ -99,15 +92,5 @@
         }
     }
 
-db_multirow d_gen_cata select_ge_cata {
-    select catalog,
-           entry_l,
-           entry_s, 
-           ims_md_ge_cata_id,
-           ims_md_id
-    from 
-           ims_md_general_cata
-    where
-           ims_md_id = :ims_md_id
-} 
+db_multirow d_gen_cata select_ge_cata {} 
 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_cata.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_cover.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_cover.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_cover.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_cover.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -51,18 +51,11 @@
     {ims_md_id:text(hidden) {value $ims_md_id}
     }
 
-} -select_query  {select * from ims_md_general_cover where ims_md_ge_cove_id = :ims_md_ge_cove_id and ims_md_id = :ims_md_id
-
-} -edit_data {
-        db_dml do_update "
-            update ims_md_general_cover
-            set cover_l = :cover_l, cover_s = :cover_s
-            where ims_md_ge_cove_id = :ims_md_ge_cove_id "
+} -select_query_name select_md_gen_cover \
+  -edit_data {
+        db_dml do_update ""
 } -new_data {
-        db_dml do_insert "
-            insert into ims_md_general_cover (ims_md_ge_cove_id, ims_md_id, cover_l, cover_s)
-            values
-            (:ims_md_ge_cove_id, :ims_md_id, :cover_l, :cover_s)"
+        db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
@@ -90,13 +83,4 @@
         }
     }
 
-db_multirow d_gen_cover select_ge_cover {
-    select cover_l,
-           cover_s, 
-           ims_md_ge_cove_id,
-           ims_md_id
-    from 
-           ims_md_general_cover
-    where
-           ims_md_id = :ims_md_id
-}
+db_multirow d_gen_cover select_ge_cover {}
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_cover.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_desc.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_desc.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_desc.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -51,18 +51,11 @@
     {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
-
-} -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 "
+} -select_query_name  select_general_desc \
+   -edit_data {
+        db_dml do_update ""
 } -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)"
+        db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
@@ -90,13 +83,4 @@
         }
     }
 
-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
-} 
+db_multirow d_gen_desc select_ge_desc {} 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_desc.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_key.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_key.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_key.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_key.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -51,18 +51,11 @@
     {ims_md_id:text(hidden) {value $ims_md_id}
     }
 
-} -select_query  {select * from ims_md_general_key where ims_md_ge_key_id = :ims_md_ge_key_id and ims_md_id = :ims_md_id
-
-} -edit_data {
-        db_dml do_update "
-            update ims_md_general_key
-            set keyword_l = :keyword_l, keyword_s = :keyword_s
-            where ims_md_ge_key_id = :ims_md_ge_key_id "
+} -select_query_name select_general_key \
+  -edit_data {
+        db_dml do_update ""
 } -new_data {
-        db_dml do_insert "
-            insert into ims_md_general_key (ims_md_ge_key_id, ims_md_id, keyword_l, keyword_s)
-            values
-            (:ims_md_ge_key_id, :ims_md_id, :keyword_l, :keyword_s)"
+        db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
@@ -90,14 +83,5 @@
         }
     }
 
-db_multirow d_gen_key select_ge_key {
-    select keyword_l,
-           keyword_s, 
-           ims_md_ge_key_id,
-           ims_md_id
-    from 
-           ims_md_general_key
-    where
-           ims_md_id = :ims_md_id
-}
+db_multirow d_gen_key select_ge_key {}
 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_key.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_lang.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_lang.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_lang.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_lang.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -45,18 +45,11 @@
     {ims_md_id:text(hidden) {value $ims_md_id}
     }
 
-} -select_query  {select * from ims_md_general_lang where ims_md_ge_lang_id = :ims_md_ge_lang_id and ims_md_id = :ims_md_id
-
-} -edit_data {
-        db_dml do_update "
-            update ims_md_general_lang
-            set language = :language
-            where ims_md_ge_lang_id = :ims_md_ge_lang_id "
+} -select_query_name select_general_lang \
+  -edit_data {
+        db_dml do_update ""
 } -new_data {
-        db_dml do_insert "
-            insert into ims_md_general_lang (ims_md_ge_lang_id, ims_md_id, language)
-            values
-            (:ims_md_ge_lang_id, :ims_md_id, :language)"
+        db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
@@ -81,12 +74,4 @@
         }
     }
 
-db_multirow d_gen_lang select_ge_lang {
-    select language, 
-           ims_md_ge_lang_id,
-           ims_md_id
-    from 
-           ims_md_general_lang
-    where
-           ims_md_id = :ims_md_id
-} 
+db_multirow d_gen_lang select_ge_lang {} 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_lang.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_struc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_struc.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_struc.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_struc.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -45,19 +45,13 @@
 } -on_submit {
     # check if the structure details already exist...
 
-    if {[db_0or1row select_structure {select ims_md_id from ims_md_general where ims_md_id = :ims_md_id}]} {
+    if {[db_0or1row select_structure {}]} {
 
-	db_dml do_update "
-            update ims_md_general
-            set structure_v = :structure_v, structure_s = :structure_s
-            where ims_md_id = :ims_md_id "
+	db_dml do_update ""
 
     } else {
 
-        db_dml do_insert "
-            insert into ims_md_general (ims_md_id, structure_v, structure_s)
-            values
-            (:ims_md_id, :structure_v, :structure_s)"
+        db_dml do_insert ""
 
     }
 
@@ -83,13 +77,4 @@
         }
     }
 
-db_multirow d_gen_struc select_ge_struc {
-    select structure_s,
-           structure_v, 
-           ims_md_id
-    from 
-           ims_md_general
-    where
-           ims_md_id = :ims_md_id
-}
-
+db_multirow d_gen_struc select_ge_struc {}
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_struc.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/md/generalmd/general_title.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_title.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_title.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_title.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -33,7 +33,7 @@
     -mode edit \
     -form {
 
-    ims_md_ge_ti_id:key(ims_md_general_title_seq)
+	ims_md_ge_ti_id:key(ims_md_general_title_seq)
 
     {title_l:text,nospell,optional
 	{section "[_ lorsm.lt_AddEdit_General_MD_Ti]"}
@@ -48,26 +48,19 @@
         {label "[_ lorsm.Title]"}
     }
 
-    {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_title where ims_md_ge_ti_id = :ims_md_ge_ti_id and ims_md_id = :ims_md_id
+} -select_query_name select_general_title \
+-edit_data {
+      db_dml do_update ""
 
-} -edit_data {
-        db_dml do_update "
-            update ims_md_general_title
-            set title_l = :title_l, title_s = :title_s
-            where ims_md_ge_ti_id = :ims_md_ge_ti_id "
 } -new_data {
-       db_dml do_insert "
-            insert into ims_md_general_title (ims_md_ge_ti_id, ims_md_id, title_l, title_s)
-            values
-            (:ims_md_ge_ti_id, :ims_md_id, :title_l, :title_s)"
+    db_dml do_insert ""
 
 } -after_submit {
     ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
-        ad_script_abort
-} 
+    ad_script_abort
+}
 
 # General Title
 template::list::create \
@@ -90,16 +83,7 @@
         }
     }
 
-db_multirow d_gen_titles select_ge_titles {
-    select title_l,
-           title_s, 
-           ims_md_ge_ti_id,
-           ims_md_id
-    from 
-           ims_md_general_title
-    where
-           ims_md_id = :ims_md_id
-} {
+db_multirow d_gen_titles select_ge_titles {} {
     set item_url [export_vars -base "item" { ims_md_id }]
 }
 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/md/generalmd/general_title.xql'.
Fisheye: No comparison available.  Pass `N' to diff?