Index: openacs-4/packages/imsld/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/imsld/www/index.tcl	9 Dec 2005 12:01:31 -0000	1.10
+++ openacs-4/packages/imsld/www/index.tcl	12 Dec 2005 15:52:32 -0000	1.11
@@ -5,7 +5,7 @@
 set context {}
 set community_id [dotlrn_community::get_community_id]
 
-set cr_root_folder_id [imsld::cr::ger_root_folder -community_id $community_id]
+set cr_root_folder_id [imsld::cr::get_root_folder -community_id $community_id]
 
 db_multirow imslds_in_class get_manifests {
     select cr3.item_id as imsld_id,
Index: openacs-4/packages/imsld/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/admin/index.tcl	9 Dec 2005 12:01:32 -0000	1.2
+++ openacs-4/packages/imsld/www/admin/index.tcl	12 Dec 2005 15:50:38 -0000	1.3
@@ -59,11 +59,13 @@
 }
 
 set community_id [dotlrn_community::get_community_id]
-set cr_root_folder_id [imsld::cr::ger_root_folder -community_id $community_id]
+set cr_root_folder_id [imsld::cr::get_root_folder -community_id $community_id]
 
 db_multirow  -extend { delete_template } imslds  get_imslds {
-    select cr3.item_id as imsld_id,
-    coalesce(imsld.title, imsld.identifier) as imsld_title
+    select imsld.imsld_id,
+    coalesce(imsld.title, imsld.identifier) as imsld_title,
+    cr3.item_id,
+    cr3.live_revision
     from cr_items cr1, cr_items cr2, cr_items cr3, cr_items cr4,
     imsld_cp_manifests icm, imsld_cp_organizations ico, imsld_imsldsi imsld 
     where cr1.live_revision = icm.manifest_id
@@ -72,7 +74,7 @@
     and ico.manifest_id = cr1.item_id
     and imsld.organization_id = cr2.item_id
     and cr2.live_revision = ico.organization_id
-    and cr3.live_revision = imsld.imsld_id
+    and cr3.item_id = imsld.item_id
 } {
     if { [empty_string_p $live_revision] } {
         set delete_template "<span style=\"font-style: italic; color: red; font-size: 9pt;\">Deleted</span> <a href=[export_vars -base "index" { {set_imsld_id_live $item_id} }]>Make it live</a>"