Index: openacs-4/packages/acs-datetime/catalog/acs-datetime.da_DK.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/catalog/acs-datetime.da_DK.ISO-8859-1.xml,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-datetime/catalog/acs-datetime.da_DK.ISO-8859-1.xml	7 Nov 2002 08:41:32 -0000	1.1
@@ -0,0 +1,42 @@
+<?xml version="1.0"?>
+<!-- Generated by lang::catalog::export_package_to_files on 2002 November 03 19:56 -->
+<message_catalog package_key="acs-datetime" locale="da_DK" charset="ISO-8859-1">
+
+  <msg key="Today">I dag</msg>
+  <msg key="S_M_T_W_T_F_S">S M T O T F L</msg>
+  <msg key="Type">Type</msg>
+  <msg key="to">til</msg>
+  <msg key="List">Liste</msg>
+  <msg key="is">er</msg>
+  <msg key="Start_Time">Starttidspunkt</msg>
+  <msg key="Sunday">S�ndag</msg>
+  <msg key="End_Time">Sluttidspunkt</msg>
+  <msg key="Items_from">Emner fra</msg>
+  <msg key="Day">Dag</msg>
+  <msg key="Tuesday">Tirsdag</msg>
+  <msg key="Monday">Mandag</msg>
+  <msg key="Date_as">Datoen skrives som</msg>
+  <msg key="Title">Titel</msg>
+  <msg key="Week">Uge</msg>
+  <msg key="No_Item_Type">Ingen emnetype</msg>
+  <msg key="Wednesday">Onsdag</msg>
+  <msg key="Thursday">Torsdag</msg>
+  <msg key="Day_of_Week">Ugedag</msg>
+  <msg key="Saturday">L�rdag</msg>
+  <msg key="Month">M�ned</msg>
+  <msg key="Date">Dato</msg>
+  <msg key="No_Items">Ingen emner</msg>
+  <msg key="Friday">Fredag</msg>
+  <msg key="January">Januar</msg>
+  <msg key="February">Februar</msg>
+  <msg key="March">Marts</msg>
+  <msg key="April">April</msg>
+  <msg key="May">Maj</msg>
+  <msg key="June">Juni</msg>
+  <msg key="July">Juli</msg>
+  <msg key="August">August</msg>
+  <msg key="September">September</msg>
+  <msg key="October">Oktober</msg>
+  <msg key="November">November</msg>
+  <msg key="December">December</msg>
+</message_catalog>
Index: openacs-4/packages/acs-datetime/catalog/acs-datetime.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/catalog/acs-datetime.en_US.ISO-8859-1.xml,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-datetime/catalog/acs-datetime.en_US.ISO-8859-1.xml	7 Nov 2002 08:41:32 -0000	1.1
@@ -0,0 +1,42 @@
+<?xml version="1.0"?>
+<!-- Generated by lang::catalog::export_package_to_files on 2002 November 03 19:56 -->
+<message_catalog package_key="acs-datetime" locale="en_US" charset="ISO-8859-1">
+
+  <msg key="Today">Today</msg>
+  <msg key="S_M_T_W_T_F_S">S M T W T F S</msg>
+  <msg key="Type">Type</msg>
+  <msg key="to">to</msg>
+  <msg key="is">is</msg>
+  <msg key="List">List</msg>
+  <msg key="Start_Time">Start Time</msg>
+  <msg key="Sunday">Sunday</msg>
+  <msg key="End_Time">End Time</msg>
+  <msg key="Items_from">Items from</msg>
+  <msg key="Day">Day</msg>
+  <msg key="Tuesday">Tuesday</msg>
+  <msg key="Monday">Monday</msg>
+  <msg key="Date_as">Date as</msg>
+  <msg key="Title">Title</msg>
+  <msg key="Week">Week</msg>
+  <msg key="No_Item_Type">No Item Type</msg>
+  <msg key="Wednesday">Wednesday</msg>
+  <msg key="Thursday">Thursday</msg>
+  <msg key="Day_of_Week">Day of Week</msg>
+  <msg key="Saturday">Saturday</msg>
+  <msg key="Month">Month</msg>
+  <msg key="Date">Date</msg>
+  <msg key="No_Items">No Items</msg>
+  <msg key="Friday">Friday</msg>
+  <msg key="January">January</msg>
+  <msg key="February">February</msg>
+  <msg key="March">March</msg>
+  <msg key="April">April</msg>
+  <msg key="May">May</msg>
+  <msg key="June">June</msg>
+  <msg key="July">July</msg>
+  <msg key="August">August</msg>
+  <msg key="September">September</msg>
+  <msg key="October">October</msg>
+  <msg key="November">November</msg>
+  <msg key="December">December</msg>
+</message_catalog>
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 @@
     <td>
     <table  class=\"table-display\" cellpadding=0 cellspacing=0 border=0 width=90%>"
 
-    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 "<i>No Items</i>"
+        return "<i>[_ acs-datetime.No_Items]</i>"
     }
 
     # 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 "<b>$title</b><p>"
@@ -441,14 +443,14 @@
     # Create the header
     append return_html "
     <table class=\"table-display\" border=0 cellspacing=0 cellpadding=2>
-    <tr class=\"table-header\"><th>Day of Week</th><th><a href=\"$start_date_url\">Date</a></th><th>Start Time</th><th>End Time</th>"
+    <tr class=\"table-header\"><th>[_ acs-datetime.Day_of_Week]</th><th><a href=\"$start_date_url\">[_ acs-datetime.Date]</a></th><th>[_ acs-datetime.Start_Time]</th><th>[_ acs-datetime.End_Time]</th>"
 
     if {$real_order_by != "item_type"} {
-        append return_html "<th><a href=\"$item_type_url\">Type</a></th>"
+        append return_html "<th><a href=\"$item_type_url\">[_ acs-datetime.Type]</a></th>"
     }
 
 
-    append return_html "<th>Title</th></tr>\n"
+    append return_html "<th>[_ acs-datetime.Title]</th></tr>\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
             }
Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	18 Sep 2002 21:03:59 -0000	1.11
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	7 Nov 2002 08:41:33 -0000	1.12
@@ -42,6 +42,11 @@
     Julian date of the day, and the value is a string (possibly with
     HTML formatting) that represents the details. 
 } {
+    if {[string equal $days_of_week "Sunday Monday Tuesday Wednesday Thursday Friday Saturday"]} {
+	set days_of_week [list [_ acs-datetime.Sunday] [_ acs-datetime.Monday] [_ acs-datetime.Tuesday] [_ acs-datetime.Wednesday] [_ acs-datetime.Thursday] [_ acs-datetime.Friday] [_ acs-datetime.Saturday]]
+    }
+
+
     dt_get_info $date
 
     set today_date [dt_sysdate]    
@@ -226,6 +231,10 @@
 } {
     Returns a small calendar for a specific month. Defaults to this month.
 } {
+    if {[string equal $days_of_week "S M T W T F S"]} {
+	set days_of_week "[_ acs-datetime.S_M_T_W_T_F_S]"
+    }
+
     return [dt_widget_month \
 	    -calendar_details $calendar_details \
 	    -date $date \
@@ -270,6 +279,10 @@
     Returns a calendar for a specific month, with details supplied by
     Julian date. Defaults to this month.
 } {
+    if {[string equal $days_of_week "S M T W T F S"]} {
+	set days_of_week "[_ acs-datetime.S_M_T_W_T_F_S]"
+    }
+
     set output ""
 
     dt_get_info $date
@@ -319,6 +332,10 @@
     date.  Defaults to this month.  Data in calendar_details will be
     ignored.
 } { 
+    if {[string equal $days_of_week "S M T W T F S"]} {
+	set days_of_week "[_ acs-datetime.S_M_T_W_T_F_S]"
+    }
+
     if { $width < 1 || $width > 12 } {
 	return "Width must be between 1 and 12"
     }
@@ -372,6 +389,10 @@
     Returns a calendar year of small calendars for the year of the
     passed in date.  Defaults to this year. 
 } {
+    if {[string equal $days_of_week "S M T W T F S"]} {
+	set days_of_week "[_ acs-datetime.lt_S_M_T_W_T_F_S________]"
+    }
+
     dt_get_info $date
 
     return [dt_widget_year \
@@ -428,7 +449,15 @@
     
     # ben: taking out year for now, since it doesn't work
     foreach viewname {list day week month} {
-        set text [string toupper $viewname 0]
+	set text [string toupper $viewname 0]
+	ns_log bug "STC: $text"
+	switch -exact -- $text {
+	    List {set text "[_ acs-datetime.List]"}
+	    Day {set text "[_ acs-datetime.Day]"}
+	    Week {set text "[_ acs-datetime.Week]"}
+	    Month {set text "[_ acs-datetime.Month]"}
+	}
+
         if { $viewname == $view } {
             # current view
             append result "<td class=\"selected\">
@@ -663,8 +692,9 @@
 	<tr>
 	"
 
-	set days_of_week [list S M T W T F S]
+	set days_of_week "[_ acs-datetime.S_M_T_W_T_F_S]"
 
+
 	foreach day_of_week $days_of_week {
 	    append output "<td align=right><font size=-1><b>$day_of_week</b></td>\n"
 	}
@@ -750,17 +780,17 @@
     <font size=-2>"
 
     if { $view == "day" && [dt_sysdate] == $date } {
-        append output "<b>Today</b>"
+        append output "<b>[_ acs-datetime.Today]</b>"
     } else {
         append output "<a href=\"$today_url\">
-    <b>Today</b></a> "
+    <b>[_ acs-datetime.Today]</b></a> "
     }
     
     append output "
-    is [dt_ansi_to_pretty]</font></td></tr>
+    [_ acs-datetime.is] [dt_ansi_to_pretty]</font></td></tr>
     <tr><td align=center><br>
     <form method=get action=$base_url>
-    <INPUT TYPE=text name=date size=10> <INPUT type=image src=\"/doc/acs-datetime/pics/go.gif\" alt=\"Go\" border=0><br><font size=-2>Date as YYYYMMDD</font>
+    <INPUT TYPE=text name=date size=10> <INPUT type=image src=\"/doc/acs-datetime/pics/go.gif\" alt=\"Go\" border=0><br><font size=-2>[_ acs-datetime.Date_as] YYYYMMDD</font>
     <INPUT TYPE=hidden name=view value=day>
     "
 
Index: openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	14 Sep 2002 17:30:43 -0000	1.5
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	7 Nov 2002 08:41:33 -0000	1.6
@@ -49,13 +49,15 @@
 ad_proc dt_month_names {} {
     Returns the calendar month names as a Tcl list (January, February, ...)
 } {
-    set month_names [list]
+    #set month_names [list]
     
-    for {set i 1} {$i <= 12} {incr i} {
-	lappend month_names [clock format [clock scan "2000-$i-1"] -format "%B"]
-    }
+    #for {set i 1} {$i <= 12} {incr i} {
+	#lappend month_names [clock format [clock scan "2000-$i-1"] -format "%B"]
+    #}
 
-    return $month_names
+    #return $month_names
+
+    return [list [_ acs-datetime.January] [_ acs-datetime.February] [_ acs-datetime.March] [_ acs-datetime.April] [_ acs-datetime.May] [_ acs-datetime.June] [_ acs-datetime.July] [_ acs-datetime.August] [_ acs-datetime.September] [_ acs-datetime.October] [_ acs-datetime.November] [_ acs-datetime.December]]
 }
 
 ad_proc dt_month_abbrev {} {