Index: openacs-4/packages/assessment/tcl/as-assessment-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.xql,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/assessment/tcl/as-assessment-procs.xql	23 Jan 2005 18:10:48 -0000	1.9
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.xql	21 Nov 2005 15:10:25 -0000	1.9.2.1
@@ -133,5 +133,13 @@
 
 	</querytext>
 </fullquery>
-	
+
+<fullquery name="as::assessment::get_package_id.get_assessment_package_id">
+<querytext>
+    SELECT b.object_id as package_id 
+    FROM acs_objects as a,acs_objects as b  
+    WHERE a.context_id=:community_id and a.object_type='apm_package' and a.object_id=b.context_id and b.title='Assessment' 
+</querytext>
+</fullquery>
+
 </queryset>