Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	9 Jul 2002 19:42:36 -0000	1.20
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	11 Jul 2002 00:40:06 -0000	1.21
@@ -209,37 +209,4 @@
             we should never get here"
         }
     }
-
-    ad_proc -public get_child_package_id {
-        {-parent_package_id ""}
-        {-package_key:required}
-    } {
-        get the package_id of package_key that is mounted directly under
-        parent_package_id. returns 0 if not found.
-    } {
-        if {[empty_string_p $parent_package_id]} {
-            set parent_package_id [ad_conn package_id]
-        }
-
-        return [db_string select_child_package_id {} -default 0]
-    }
-
-    ad_proc -public child_package_exists_p {
-        {-parent_package_id ""}
-        {-package_key:required}
-    } {
-        Returns 1 if there exists a child package with the given package_key, 
-        or 0 if not.
-    } {
-        set child_package_id [site_nodes::get_child_package_id \
-            -parent_package_id $parent_package_id \
-            -package_key $package_key
-        ]
-
-        if {$child_package_id == 0} {
-            return 0
-        } else {
-            return 1 
-        }
-    }
 }
Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.xql,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql	22 Jun 2002 20:11:03 -0000	1.12
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql	11 Jul 2002 00:40:10 -0000	1.13
@@ -14,17 +14,4 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="site_nodes::get_child_package_id.select_child_package_id">
-        <querytext>
-            select sn1.object_id
-            from site_nodes sn1,
-                 apm_packages
-            where sn1.parent_id = (select sn2.node_id
-                                   from site_nodes sn2
-                                   where sn2.object_id = :parent_package_id)
-            and sn1.object_id = apm_packages.package_id
-            and apm_packages.package_key = :package_key
-        </querytext>
-    </fullquery>
-
 </queryset>