Index: openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl 29 Dec 2017 11:13:40 -0000 1.13
+++ openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl 29 Dec 2017 11:17:34 -0000 1.14
@@ -38,7 +38,7 @@
multirow create timezones label value selected_p
foreach entry [lc_list_all_timezones] {
set tz [lindex $entry 0]
-
+
multirow append timezones $entry $tz [string equal $tz $system_timezone]>
}
@@ -57,7 +57,7 @@
if { [regexp {UTC[^:]+[:][ ]*]*>([^<]+)} $time_and_date_page match utc_from_page] } {
# UTC in format (including some historical ones to help keep a robust regexp:
- # Friday, July 27, 2012 at 19:20:27
+ # Friday, July 27, 2012 at 19:20:27
# Wednesday, 20 November 2002, at 2:49:07 PM
# Wednesday, 6 August 2003, at 12:11:48
# this regexp is a little more flexible and accepting of data types to help with parsing
@@ -102,7 +102,7 @@
} else {
set correct_p 0
}
-
+
set try_offsets [list]
foreach offset [list $recommended_offset [expr {$recommended_offset -24}]] {
if { $offset < 0 } {
@@ -114,7 +114,7 @@
set query "
select tz.tz, tz.gmt_offset
- from timezones tz,
+ from timezones tz,
timezone_rules tzr
where tzr.gmt_offset in ([join $try_offsets ", "])
and tzr.tz_id = tz.tz_id