Index: openacs-4/packages/lorsm/lib/md-record.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/md-record.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lorsm/lib/md-record.tcl	17 Nov 2008 13:36:43 -0000	1.2
+++ openacs-4/packages/lorsm/lib/md-record.tcl	12 Dec 2008 14:25:31 -0000	1.3
@@ -57,16 +57,8 @@
         }
     }
 
-db_multirow d_pres select_ge_titles {
-    select object_type
-    from acs_objects
-    where object_id = :ims_md_id
-}
+db_multirow d_pres select_ge_titles {}
 
-db_multirow -extend { schema_and_version } d_pres select_schema_details {
-    select ims_md_id, schema, schemaversion
-    from ims_md
-    where ims_md_id = :ims_md_id
-} {
+db_multirow -extend { schema_and_version } d_pres select_schema_details {} {
     set schema_and_version [concat $schema "  " $schemaversion]
 }