Index: openacs-4/packages/curriculum/tcl/misc-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/tcl/misc-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum/tcl/misc-procs.xql	3 Jun 2003 10:28:20 -0000	1.1
+++ openacs-4/packages/curriculum/tcl/misc-procs.xql	17 Oct 2003 13:43:30 -0000	1.2
@@ -27,5 +27,14 @@
             where  package_id = :package_id
         </querytext>
     </fullquery>
+
+    <fullquery name="curriculum::get_package_id_from_subsite_id.max_curriculum_id">
+        <querytext>
+            select max(package_id)
+            from   apm_packages
+            where package_key = :package_key
+        </querytext>
+    </fullquery>
+
  
 </queryset>