Index: openacs-4/packages/dotlrn/tcl/applets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	7 Jun 2007 20:32:27 -0000	1.21
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	12 May 2010 14:15:34 -0000	1.22
@@ -36,7 +36,7 @@
     }
 
     ad_proc -public is_initalized {} {
-        if {[nsv_exists site_nodes "[get_url]/"]} {
+        if {[site_node::exists_p -url "[get_url]/"]} {
             return 1
         } else {
             return 0
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.75 -r1.76
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	8 Aug 2006 21:26:23 -0000	1.75
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	12 May 2010 14:15:34 -0000	1.76
@@ -105,21 +105,10 @@
         {-package_key:required}
     } {
         returns 1 if package is mounted under dotlrn, 0 otherwise
-        FIXME: refactor
     } {
-        set dotlrn_ancestor_p 0
-        set package_list [nsv_array get site_nodes "[get_url]/${package_key}*"]
-
-        for {set i 1} {$i < [llength $package_list]} {incr i 2} {
-            array set package_info [lindex $package_list $i]
-
-            if {[site_node_closest_ancestor_package -default 0 -url $package_info(url) [package_key]] != 0} {
-                set dotlrn_ancestor_p 1
-                break
-            }
-        }
-
-        return $dotlrn_ancestor_p
+        set list [site_node::get_children -package_key $package_key \
+                      -node_id [get_node_id]]
+        return [expr [llength $list] > 0 ? 1 : 0]
     }
 
     ad_proc -public mount_package {