Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	10 Jan 2004 18:59:50 -0000	1.21
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	1 Feb 2004 16:53:42 -0000	1.22
@@ -13,6 +13,7 @@
 }
 
 namespace eval calendar {}
+namespace eval calendar::notification {}
 
 
 #------------------------------------------------
@@ -536,3 +537,13 @@
     
 }
     
+
+ad_proc -public calendar::notification::get_url {
+    object_id
+} {
+    Returns a full URL to the object_id
+} {
+    return [site_node::get_url_from_object_id -object_id $object_id]
+}
+    
+