Index: openacs-4/packages/survey/tcl/survey-notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-notification-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey/tcl/survey-notification-procs.tcl	17 May 2003 12:30:25 -0000	1.2
+++ openacs-4/packages/survey/tcl/survey-notification-procs.tcl	3 Sep 2024 15:37:54 -0000	1.3
@@ -1,7 +1,7 @@
 ad_library {
     Notification procs for Survey
 
-    Currently this is a place holder file. These procs are not currently needeed and have not been implemented.
+    Currently this is a place holder file. These procs are not currently needed and have not been implemented.
 
     At some point the notification procs in survey-procs should be moved into this file.
 
@@ -14,6 +14,8 @@
 ad_proc -public survey::notification::get_url {
     object_id
 } {
+    Return the URL to supplied survey object to be used in notifications
+} {
     set package_id [db_string get_package_id {}]
     set package_url [site_node::get_url_from_object_id -object_id $package_id]
     return "${package_url}admin/one?survey_id=$object_id"
@@ -22,5 +24,12 @@
 ad_proc -public survey::notification::process_reply {
     reply_id
 } {
+    This proc is an empty stub
+} {
+}
 
-}
\ No newline at end of file
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: