Index: openacs-4/packages/calendar/www/view-month-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/calendar/www/view-month-display.tcl	16 Aug 2006 17:52:14 -0000	1.19
+++ openacs-4/packages/calendar/www/view-month-display.tcl	26 Aug 2006 00:50:19 -0000	1.20
@@ -36,6 +36,10 @@
     set base_url ""
 }
 
+if {![info exists return_url]} {
+    set return_url [ad_urlencode "../"]
+}
+
 if {[info exists portlet_mode_p] && $portlet_mode_p} {
     set page_num_urlvar "&page_num=$page_num"
     if {![info exists return_url]} {
@@ -198,7 +202,7 @@
                 $display_information(today_p) \
 		f \
 		0 \
-                "${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time" \
+                "${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time&return_url=$return_url" \
 		$day_link 
 
         } 
@@ -243,7 +247,7 @@
         $display_information(today_p) \
 	f \
 	$time_p \
-        "${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time" \
+        "${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time&return_url=$return_url" \
 	$day_link 
 
 }
@@ -274,7 +278,7 @@
 	$display_information(today_p) \
 	f \
         0 \
-	"${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time" \
+	"${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time&return_url=$return_url" \
 	$day_link 
 
 }