Index: openacs-4/packages/calendar/www/cal-item-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/calendar/www/cal-item-new.adp 8 Aug 2006 21:26:18 -0000 1.16
+++ openacs-4/packages/calendar/www/cal-item-new.adp 26 Aug 2006 00:50:19 -0000 1.17
@@ -16,23 +16,28 @@
@@ -47,6 +52,7 @@
Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/calendar/www/cal-item-new.tcl 16 Aug 2006 17:52:14 -0000 1.28
+++ openacs-4/packages/calendar/www/cal-item-new.tcl 26 Aug 2006 00:50:19 -0000 1.29
@@ -21,6 +21,7 @@
set package_id [ad_conn package_id]
set user_id [ad_conn user_id]
+set js ""
if {![info exists item_type_id]} {
set item_type_id ""
@@ -177,6 +178,7 @@
set start_hour $start_time
set start_time "{} {} {} 0 0 {} {HH24:MI}"
set end_time "{} {} {} 0 0 {} {HH24:MI}"
+ set js "disableTime('cal_item');"
}
# set the calendar_id before setting item_types form element (see top of script) DAVEB
set calendar_id [lindex [lindex $calendar_options 0] 1]
@@ -201,6 +203,10 @@
set calendar_id $cal_item(calendar_id)
set time_p $cal_item(time_p)
+ if { $time_p == 0 } {
+ set js "disableTime('cal_item');"
+ }
+
if { [empty_string_p $repeat_p] } {
set repeat_p 0
} else {
Index: openacs-4/packages/calendar/www/cal-item-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/calendar/www/cal-item-view.tcl 16 Aug 2006 17:52:14 -0000 1.17
+++ openacs-4/packages/calendar/www/cal-item-view.tcl 26 Aug 2006 00:50:19 -0000 1.18
@@ -6,7 +6,7 @@
@cvs-id $Id$
} {
cal_item_id:integer
- {return_url ""}
+ {return_url [ad_return_url]}
}
set user_id [ad_conn user_id]
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 -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
}