Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v diff -u -r1.32 -r1.33 --- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 18 Sep 2002 21:03:59 -0000 1.32 +++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 7 Nov 2002 08:41:33 -0000 1.33 @@ -88,10 +88,12 @@ " - set days_of_week {Sunday Monday Tuesday Wednesday Thursday Friday Saturday} - foreach day $days_of_week { + + set days_of_week [list Sunday "[_ acs-datetime.Sunday]" Monday "[_ acs-datetime.Monday]" Tuesday "[_ acs-datetime.Tuesday]" Wednesday "[_ acs-datetime.Wednesday]" Thursday "[_ acs-datetime.Thursday]" Friday "[_ acs-datetime.Friday]" Saturday "[_ acs-datetime.Saturday]"] - set lower_day [string tolower $day] + foreach {eng_day day} $days_of_week { + + set lower_day [string tolower $eng_day] set julian [set ${lower_day}_julian] set date [set ${lower_day}_date] set pretty_date [util_AnsiDatetoPrettyDate $date] @@ -408,7 +410,7 @@ } { # Check for zero size if {[ns_set size $calendar_details] == 0} { - return "No Items" + return "[_ acs-datetime.No_Items]" } # The title @@ -426,7 +428,7 @@ } if {![empty_string_p $start_date] && ![empty_string_p $end_date]} { - set title "Items from [util_AnsiDatetoPrettyDate $start_date] to [util_AnsiDatetoPrettyDate $end_date]" + set title "[_ acs-datetime.Items_from] [util_AnsiDatetoPrettyDate $start_date] [_ acs-datetime.to] [util_AnsiDatetoPrettyDate $end_date]" } set return_html "$title

" @@ -441,14 +443,14 @@ # Create the header append return_html "

- " + " if {$real_order_by != "item_type"} { - append return_html "" + append return_html "" } - append return_html "\n" + append return_html "\n" # initialize the item_type so we can do intermediate titles set old_item_type "" @@ -474,7 +476,7 @@ # Do we need a title? if {$real_order_by == "item_type" && $item_type != "$old_item_type"} { if {[empty_string_p $item_type]} { - set item_type_for_title "(No Item Type)" + set item_type_for_title "([_ acs-datetime.No_Item_Type])" } else { set item_type_for_title $item_type }
Day of WeekDateStart TimeEnd Time
[_ acs-datetime.Day_of_Week][_ acs-datetime.Date][_ acs-datetime.Start_Time][_ acs-datetime.End_Time]Type[_ acs-datetime.Type]Title
[_ acs-datetime.Title]