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.11 -r1.12
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	22 Jun 2002 20:11:03 -0000	1.11
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	2 Jul 2002 22:31:15 -0000	1.12
@@ -35,15 +35,14 @@
     }
 
     ad_proc -public is_initalized {} {
-        if {[site_node::get_node_id -url [get_url]] != [dotlrn::get_node_id] } {
+        if {[nsv_exists site_nodes "[get_url]/"]} {
             return 1
         } else {
             return 0
         }
     }
 
     ad_proc -public init {} {
-        # Create the applets node
         site_node::new -name applets -parent_id [dotlrn::get_node_id]
     }
 
@@ -52,9 +51,6 @@
     } {
         Register an applet.
     } {
-        # Check if it's registered
-
-        # Add it
         nsv_lappend dotlrn applets $applet_key
     }
 
@@ -143,24 +139,24 @@
         set applets_url [get_url]
         set parent_node_id [site_node_id $applets_url]
 
-        # Mount it baby
         set package_id [dotlrn::mount_package \
-                -parent_node_id $parent_node_id \
-                -package_key $package_key \
-                -url $url \
-                -directory_p t \
-                -pretty_name $pretty_name]
+            -parent_node_id $parent_node_id \
+            -package_key $package_key \
+            -url $url \
+            -directory_p t \
+            -pretty_name $pretty_name \
+        ]
 
         return $package_id
     }
 
     ad_proc -public is_applet_mounted {
         {-url:required}
     } {
-        if {[site_node::get_node_id -url "[get_url]/$url"] == [site_node::get_node_id -url [get_url]]} {
-            return 0
-        } else {
+        if {[nsv_exists site_nodes "[get_url]/$url/"]} {
             return 1
+        } else {
+            return 0
         }
     }