Index: openacs-4/packages/notifications/tcl/notification-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-reply-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	25 Jun 2002 18:58:06 -0000	1.2
+++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	29 Jun 2002 00:21:11 -0000	1.3
@@ -29,6 +29,17 @@
         return $reply_id
     }
 
+    ad_proc -public get {
+        {-reply_id:required}
+        {-array:required}
+    } {
+        Get the information for the reply
+    } {
+        # Select the info into the upvar'ed Tcl Array
+        upvar $array row
+        db_1row select_reply {} -column_array row
+    }
+
     ad_proc -public delete {
         {-reply_id:required}
     } {