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 -r1.9 -r1.10
--- openacs-4/packages/acs-datetime/catalog/acs-datetime.en_US.ISO-8859-1.xml	17 Sep 2003 12:21:44 -0000	1.9
+++ openacs-4/packages/acs-datetime/catalog/acs-datetime.en_US.ISO-8859-1.xml	22 Sep 2003 19:44:28 -0000	1.10
@@ -2,18 +2,25 @@
 <!-- Generated by lang::catalog::export_messages_to_file on 2003 September 17 10:33 -->
 <message_catalog package_key="acs-datetime" package_version="4.0" locale="en_US" charset="ISO-8859-1">
 
+  <msg key="All_day">All day</msg>
+  <msg key="back_one_day">back one day</msg>
   <msg key="Date">Date</msg>
   <msg key="Date_as">Date as</msg>
   <msg key="Date_as_YYYYMMDD">Date as YYYYMMDD</msg>
   <msg key="Day">Day</msg>
   <msg key="Day_of_Week">Day of Week</msg>
+  <msg key="days_of_week">Sunday Monday Tuesday Wednesday Thursday Friday Saturday</msg>
   <msg key="End_Time">End Time</msg>
+  <msg key="forward_one_day">forward one day</msg>
   <msg key="is">is</msg>
   <msg key="Items_from">Items from</msg>
+  <msg key="Items_until">Items until @pretty_end_date@</msg>
   <msg key="List">List</msg>
+  <msg key="lt_Width_must_be_">Width must be between 1 and 12</msg>
   <msg key="Month">Month</msg>
   <msg key="No_Item_Type">No Item Type</msg>
   <msg key="No_Items">No Items</msg>
+  <msg key="short_days_of_week">S M T W T F S</msg>
   <msg key="Start_Time">Start Time</msg>
   <msg key="Title">Title</msg>
   <msg key="to">to</msg>
Index: openacs-4/packages/acs-datetime/catalog/acs-datetime.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/catalog/acs-datetime.es_ES.ISO-8859-1.xml,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-datetime/catalog/acs-datetime.es_ES.ISO-8859-1.xml	17 Sep 2003 12:21:44 -0000	1.5
+++ openacs-4/packages/acs-datetime/catalog/acs-datetime.es_ES.ISO-8859-1.xml	22 Sep 2003 19:44:28 -0000	1.6
@@ -2,18 +2,24 @@
 <!-- Generated by lang::catalog::export_messages_to_file on 2003 September 17 10:33 -->
 <message_catalog package_key="acs-datetime" package_version="4.0" locale="es_ES" charset="ISO-8859-1">
 
+  <msg key="back_one_day">regresar un dma</msg>
   <msg key="Date">Fecha</msg>
   <msg key="Date_as">Formato de fecha: </msg>
   <msg key="Date_as_YYYYMMDD">Formato de fecha: AAAAMMDD</msg>
   <msg key="Day">D�a</msg>
   <msg key="Day_of_Week">D�a de la Semana</msg>
+  <msg key="days_of_week">Domingo Lunes Martes Miircoles Jueves Viernes Sabado</msg>
   <msg key="End_Time">Hora Final</msg>
+  <msg key="forward_one_day">adelantar un dma</msg>
   <msg key="is">es</msg>
   <msg key="Items_from">Citas desde</msg>
+  <msg key="Items_until">Mtems hasta @pretty_end_date@</msg>
   <msg key="List">Lista</msg>
+  <msg key="lt_Width_must_be_">Ancho debe ser entre 1 y 12</msg>
   <msg key="Month">Mes</msg>
   <msg key="No_Item_Type">Sin Tipo</msg>
   <msg key="No_Items">Sin Citas</msg>
+  <msg key="short_days_of_week">D L M M J V S</msg>
   <msg key="Start_Time">Hora Inicial</msg>
   <msg key="Title">T�tulo</msg>
   <msg key="to">a</msg>
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.38 -r1.39
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	17 May 2003 09:44:35 -0000	1.38
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	22 Sep 2003 19:44:28 -0000	1.39
@@ -152,8 +152,8 @@
         -start_hour {0}
         -end_hour {23}
         -show_nav 1
-        -prev_nav_template {<a href="?date=[ns_urlencode $yesterday]"><img border=0 src=\"[dt_left_arrow]\" alt=\"back one day\"></a>}
-        -next_nav_template {<a href="?date=[ns_urlencode $tomorrow]"><img border=0 src=\"[dt_right_arrow]\" alt=\"forward one day\"></a>}
+        -prev_nav_template {<a href="?date=[ns_urlencode $yesterday]"><img border=0 src=\"[dt_left_arrow]\" alt=\"[_ acs-datetime.back_one_day]\"></a>}
+        -next_nav_template {<a href="?date=[ns_urlencode $tomorrow]"><img border=0 src=\"[dt_right_arrow]\" alt=\"[_ acs-datetime.forward_one_day]\"></a>}
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
 	-header_text_color "white" 
@@ -250,7 +250,7 @@
     set next_hour ""
     set start_time ""
     set odd_row_p 0
-    set display_hour "<span style=\"font-size: 70%; text-decoration: none;\">All day</span>"
+    set display_hour "<span style=\"font-size: 70%; text-decoration: none;\">[_ acs-datetime.All_day]</span>"
     append return_html "<tr class=\"odd\"><td class=\"center\" align=\"left\" width=\"60\" \"nowrap\"><font size=-1>[subst $hour_template]</font></td>"
     append return_html "<td colspan=\"$max_n_events\"><font size=-1>"
     
@@ -418,7 +418,8 @@
     }
 
     if {[empty_string_p $start_date] && ![empty_string_p $end_date]} {
-        set title "Items until [util_AnsiDatetoPrettyDate $end_date]"
+	set $pretty_end_date [lc_time_fmt $end_date "%x"]
+        set title "[_ acs-datetime.Items_until]"
     }
 
     if {![empty_string_p $start_date] && [empty_string_p $end_date]} {
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.18 -r1.19
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	17 May 2003 09:44:35 -0000	1.18
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	22 Sep 2003 19:44:28 -0000	1.19
@@ -13,7 +13,7 @@
     {
 	-calendar_details "" 
 	-date "" 
-	-days_of_week "Sunday Monday Tuesday Wednesday Thursday Friday Saturday" 
+	-days_of_week ""
 	-large_calendar_p 1 
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
@@ -42,6 +42,10 @@
     Julian date of the day, and the value is a string (possibly with
     HTML formatting) that represents the details. 
 } {
+    if [empty_string_p $days_of_week] {
+	set days_of_week "[_ acs-datetime.days_of_week]" 
+    }
+
     dt_get_info $date
 
     set today_date [dt_sysdate]    
@@ -207,7 +211,7 @@
     {
 	-calendar_details "" 
 	-date "" 
-	-days_of_week "S M T W T F S" 
+	-days_of_week ""
 	-large_calendar_p 0 
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
@@ -226,6 +230,9 @@
 } {
     Returns a small calendar for a specific month. Defaults to this month.
 } {
+    if [empty_string_p $days_of_week] {
+	set days_of_week "[_ acs-datetime.short_days_of_week]"
+    }
     return [dt_widget_month \
 	    -calendar_details $calendar_details \
 	    -date $date \
@@ -250,7 +257,7 @@
     {
 	-calendar_details "" 
 	-date "" 
-	-days_of_week "S M T W T F S" 
+	-days_of_week ""
 	-large_calendar_p 0 
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
@@ -270,6 +277,10 @@
     Returns a calendar for a specific month, with details supplied by
     Julian date. Defaults to this month.
 } {
+
+    if [empty_string_p $days_of_week] {
+	set days_of_week "[_ acs-datetime.short_days_of_week]" 
+    }
     set output ""
 
     dt_get_info $date
@@ -298,7 +309,7 @@
     {
 	-calendar_details "" 
 	-date "" 
-	-days_of_week "S M T W T F S" 
+	-days_of_week ""
 	-large_calendar_p 0 
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
@@ -320,9 +331,13 @@
     ignored.
 } { 
     if { $width < 1 || $width > 12 } {
-	return "Width must be between 1 and 12"
+	return "[_ acs-datetime.lt_Width_must_be_]"
     }
 
+    if [empty_string_p $days_of_week] {
+	set days_of_week "[_ acs-datetime.short_days_of_week]" 
+    }
+
     set output "<table><tr valign=top>\n"
     set current_width 0
 
@@ -351,7 +366,7 @@
     {
 	-calendar_details "" 
 	-date "" 
-	-days_of_week "S M T W T F S" 
+	-days_of_week ""
 	-large_calendar_p 0 
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
@@ -372,6 +387,10 @@
     Returns a calendar year of small calendars for the year of the
     passed in date.  Defaults to this year. 
 } {
+    if [empty_string_p $days_of_week] {
+	set days_of_week "[_ acs-datetime.short_days_of_week]" 
+    }
+
     dt_get_info $date
 
     return [dt_widget_year \
@@ -898,7 +917,7 @@
     ns_set put $dt_info_set julian_date_today \
         [dt_ansi_to_julian $year $month $day]
     ns_set put $dt_info_set month \
-        [clock format [clock scan $the_date] -format %B]
+        [lc_time_fmt $the_date "%B"]
     ns_set put $dt_info_set year \
         [clock format [clock scan $the_date] -format %Y]
     ns_set put $dt_info_set first_julian_date_of_month \
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.10 -r1.11
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	1 Sep 2003 08:45:37 -0000	1.10
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	22 Sep 2003 19:44:28 -0000	1.11
@@ -179,10 +179,7 @@
 	set ansi_date [dt_sysdate]
     }
 
-    set date [clock scan $ansi_date]
-    set day  [clock format $date -format "%e"]
-
-    return [clock format $date -format "%B [string trim $day], %Y"]
+    return [lc_time_fmt $ansi_date "%x"]
 }
 
 ad_proc dt_ansi_to_list {
Index: openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/Attic/calendar-navigation.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.adp	22 May 2003 14:04:28 -0000	1.2
+++ openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.adp	22 Sep 2003 19:44:28 -0000	1.3
@@ -42,3 +42,4 @@
 
 <p>Click on any view, date, or other navigational element to change
 the display of this page.</p>
+
Index: openacs-4/packages/acs-datetime/www/doc/examples/calendar-widgets.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/Attic/calendar-widgets.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-datetime/www/doc/examples/calendar-widgets.adp	22 May 2003 14:04:28 -0000	1.2
+++ openacs-4/packages/acs-datetime/www/doc/examples/calendar-widgets.adp	22 Sep 2003 19:44:28 -0000	1.3
@@ -34,3 +34,4 @@
 link specific days with events occurring on those days.
 
 </ol>
+
Index: openacs-4/packages/acs-datetime/www/doc/examples/datetime-procs.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/datetime-procs.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-datetime/www/doc/examples/datetime-procs.adp	22 May 2003 14:04:28 -0000	1.3
+++ openacs-4/packages/acs-datetime/www/doc/examples/datetime-procs.adp	22 Sep 2003 19:44:28 -0000	1.4
@@ -44,3 +44,4 @@
 formats, including am/pm and timezone qualifiers.
 
 </ol>
+
Index: openacs-4/packages/acs-datetime/www/doc/examples/datetime-widgets.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/Attic/datetime-widgets.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-datetime/www/doc/examples/datetime-widgets.adp	22 May 2003 14:04:28 -0000	1.3
+++ openacs-4/packages/acs-datetime/www/doc/examples/datetime-widgets.adp	22 Sep 2003 19:44:28 -0000	1.4
@@ -49,3 +49,4 @@
 
 
 </ol>
+
Index: openacs-4/packages/acs-datetime/www/doc/examples/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-datetime/www/doc/examples/index.adp	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-datetime/www/doc/examples/index.adp	22 Sep 2003 19:44:28 -0000	1.2
@@ -17,4 +17,4 @@
 
 </ul>
 
-<%= [ad_footer] %>
\ No newline at end of file
+<%= [ad_footer] %>
Index: openacs-4/packages/acs-datetime/www/doc/examples/master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/master.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-datetime/www/doc/examples/master.adp	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-datetime/www/doc/examples/master.adp	22 Sep 2003 19:44:28 -0000	1.2
@@ -11,4 +11,4 @@
 
 <slave>
 
-<%= [ad_footer] %>
\ No newline at end of file
+<%= [ad_footer] %>