Index: openacs-4/packages/survey/tcl/survey-notification-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-notification-procs.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/survey/tcl/survey-notification-procs.xql	17 May 2003 12:30:26 -0000	1.2
@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <fullquery name="survey::notification::get_url.get_package_id">
+	<querytext>
+	    select package_id from surveys
+	    where survey_id=:object_id
+	</querytext>
+    </fullquery>
+</queryset>
\ No newline at end of file