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 -N -r1.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	29 Mar 2002 19:14:45 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	16 Apr 2002 13:53:52 -0000	1.8
@@ -43,6 +43,14 @@
         return [site_nodes::get_info -return url -package_key $applet_key]
     }
 
+    ad_proc -public is_initalized {} {
+        if {[site_nodes::get_node_id_from_url -url [get_url]] != [dotlrn::get_node_id] } {
+            return 1 
+        } else { 
+            return 0
+        }
+    }
+
     ad_proc -public init {} {
         # Create the applets node
         site_nodes::site_node_create -parent_node_id [dotlrn::get_node_id] -name "applets"
@@ -154,6 +162,17 @@
 
         return $package_id
     }
+
+    ad_proc -public is_applet_mounted {
+        {-url:required}
+    } {
+        if {[site_nodes::get_node_id_from_url -url "/dotlrn/applets/$url"] 
+        ==  [site_nodes::get_node_id_from_url -url "/dotlrn/applets"]} {
+            return 0
+        } else {
+            return 1
+        }
+    }
         
         
 }