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.42.6.3 -r1.42.6.4 --- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 2 Oct 2013 08:56:26 -0000 1.42.6.3 +++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 6 Dec 2013 09:13:49 -0000 1.42.6.4 @@ -11,27 +11,25 @@ } ad_proc dt_widget_week { - { - -calendar_details "" - -date "" - -large_calendar_p 1 - -master_bgcolor "" - -header_bgcolor "" - -header_text_color "white" - -header_text_size "+2" - -day_template {$day} - -day_header_size 2 - -day_header_bgcolor "#666666" - -calendar_width "100%" - -day_bgcolor "#DCDCDC" - -today_bgcolor "#FFF8DC" - -day_text_color "white" - -empty_bgcolor "white" - -next_week_template "" - -prev_week_template "" - -prev_next_links_in_title 0 - -fill_all_days 0 - } + {-calendar_details ""} + {-date ""} + {-large_calendar_p 1} + {-master_bgcolor ""} + {-header_bgcolor ""} + {-header_text_color "white"} + {-header_text_size "+2"} + {-day_template {$day}} + {-day_header_size 2} + {-day_header_bgcolor "#666666"} + {-calendar_width "100%"} + {-day_bgcolor "#DCDCDC"} + {-today_bgcolor "#FFF8DC"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-next_week_template ""} + {-prev_week_template ""} + {-prev_next_links_in_title 0} + {-fill_all_days 0} } { Returns a calendar for a specific week, with details supplied by Julian date. Defaults to this week. @@ -145,26 +143,24 @@ ad_proc dt_widget_day { - { - -calendar_details "" - -date "" - -hour_template {$display_hour} - -start_hour {0} - -end_hour {23} - -show_nav 1 - -prev_nav_template {\"[_} - -next_nav_template {\"[_} - -master_bgcolor "black" - -header_bgcolor "black" - -header_text_color "white" - -header_text_size "+2" - -calendar_width "100%" - -day_bgcolor "#DDDDDD" - -today_bgcolor "yellow" - -day_text_color "white" - -empty_bgcolor "white" - -overlap_p 0 - } + {-calendar_details ""} + {-date ""} + {-hour_template {$display_hour}} + {-start_hour 0} + {-end_hour 23} + {-show_nav 1} + {-prev_nav_template {\"[_}} + {-next_nav_template {\"[_}} + {-master_bgcolor "black"} + {-header_bgcolor "black"} + {-header_text_color "white"} + {-header_text_size "+2"} + {-calendar_width "100%"} + {-day_bgcolor "#DDDDDD"} + {-today_bgcolor "yellow"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-overlap_p 0} } { Returns a calendar for a specific day, with details supplied by hour. Defaults to today. 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.24.6.3 -r1.24.6.4 --- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl 2 Oct 2013 08:56:26 -0000 1.24.6.3 +++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl 6 Dec 2013 09:13:49 -0000 1.24.6.4 @@ -10,29 +10,27 @@ } ad_proc dt_widget_month { - { - -calendar_details "" - -date "" - -days_of_week "" - -large_calendar_p 1 - -master_bgcolor "black" - -header_bgcolor "black" - -header_text_color "white" - -header_text_size "+2" - -day_number_template {$day_number} - -day_header_size 2 - -day_header_bgcolor "#666666" - -calendar_width "100%" - -day_bgcolor "#DDDDDD" - -today_bgcolor "#DDDDDD" - -day_text_color "white" - -empty_bgcolor "white" - -next_month_template "" - -prev_month_template "" - -prev_next_links_in_title 0 - -fill_all_days 0 - -show_calendar_name_p 1 - } + {-calendar_details ""} + {-date ""} + {-days_of_week ""} + {-large_calendar_p 1} + {-master_bgcolor "black"} + {-header_bgcolor "black"} + {-header_text_color "white"} + {-header_text_size "+2"} + {-day_number_template {$day_number}} + {-day_header_size 2} + {-day_header_bgcolor "#666666"} + {-calendar_width "100%"} + {-day_bgcolor "#DDDDDD"} + {-today_bgcolor "#DDDDDD"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-next_month_template ""} + {-prev_month_template ""} + {-prev_next_links_in_title 0} + {-fill_all_days 0} + {-show_calendar_name_p 1} } { Returns a calendar for a specific month, with details supplied by Julian date. Defaults to this month. @@ -212,25 +210,23 @@ } ad_proc dt_widget_month_small { - { - -calendar_details "" - -date "" - -days_of_week "" - -large_calendar_p 0 - -master_bgcolor "black" - -header_bgcolor "black" - -header_text_color "white" - -header_text_size "+1" - -day_number_template {$day_number} - -day_header_size 1 - -day_header_bgcolor "#666666" - -calendar_width 0 - -day_bgcolor "#DDDDDD" - -day_text_color "white" - -empty_bgcolor "white" - -next_month_template "" - -prev_month_template "" - } + {-calendar_details ""} + {-date ""} + {-days_of_week ""} + {-large_calendar_p 0} + {-master_bgcolor "black"} + {-header_bgcolor "black"} + {-header_text_color "white"} + {-header_text_size "+1"} + {-day_number_template {$day_number}} + {-day_header_size 1} + {-day_header_bgcolor "#666666"} + {-calendar_width 0} + {-day_bgcolor "#DDDDDD"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-next_month_template ""} + {-prev_month_template ""} } { Returns a small calendar for a specific month. Defaults to this month. } { @@ -258,25 +254,23 @@ } ad_proc dt_widget_month_centered { - { - -calendar_details "" - -date "" - -days_of_week "" - -large_calendar_p 0 - -master_bgcolor "black" - -header_bgcolor "black" - -header_text_color "white" - -header_text_size "+1" - -day_number_template {$day_number} - -day_header_size 1 - -day_header_bgcolor "#666666" - -calendar_width 0 - -day_bgcolor "#DDDDDD" - -day_text_color "white" - -empty_bgcolor "white" - -next_month_template "" - -prev_month_template "" - } + {-calendar_details ""} + {-date ""} + {-days_of_week ""} + {-large_calendar_p 0} + {-master_bgcolor "black"} + {-header_bgcolor "black"} + {-header_text_color "white"} + {-header_text_size "+1"} + {-day_number_template {$day_number}} + {-day_header_size 1} + {-day_header_bgcolor "#666666"} + {-calendar_width 0} + {-day_bgcolor "#DDDDDD"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-next_month_template ""} + {-prev_month_template ""} } { Returns a calendar for a specific month, with details supplied by Julian date. Defaults to this month. @@ -310,25 +304,24 @@ } ad_proc dt_widget_year { - { - -calendar_details "" - -date "" - -days_of_week "" - -large_calendar_p 0 - -master_bgcolor "black" - -header_bgcolor "black" - -header_text_color "white" - -header_text_size "+1" - -day_number_template {$day_number} - -day_header_size 1 - -day_header_bgcolor "#666666" - -calendar_width 0 - -day_bgcolor "#DDDDDD" - -day_text_color "white" - -empty_bgcolor "white" - -next_month_template "" - -prev_month_template "" - -width 2} + {-calendar_details ""} + {-date ""} + {-days_of_week ""} + {-large_calendar_p 0} + {-master_bgcolor "black"} + {-header_bgcolor "black"} + {-header_text_color "white"} + {-header_text_size "+1"} + {-day_number_template {$day_number}} + {-day_header_size 1} + {-day_header_bgcolor "#666666"} + {-calendar_width 0} + {-day_bgcolor "#DDDDDD"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-next_month_template ""} + {-prev_month_template ""} + {-width 2} } { Returns a year of small calendars given the starting month as a date. Defaults to this month. Data in calendar_details will be @@ -367,26 +360,24 @@ } ad_proc dt_widget_calendar_year { - { - -calendar_details "" - -date "" - -days_of_week "" - -large_calendar_p 0 - -master_bgcolor "black" - -header_bgcolor "black" - -header_text_color "white" - -header_text_size "+1" - -day_number_template {$day_number} - -day_header_size 1 - -day_header_bgcolor "#666666" - -calendar_width 0 - -day_bgcolor "#DDDDDD" - -day_text_color "white" - -empty_bgcolor "white" - -next_month_template "" - -prev_month_template "" - -width 2 - } + {-calendar_details ""} + {-date ""} + {-days_of_week ""} + {-large_calendar_p 0} + {-master_bgcolor "black"} + {-header_bgcolor "black"} + {-header_text_color "white"} + {-header_text_size "+1"} + {-day_number_template {$day_number}} + {-day_header_size 1} + {-day_header_bgcolor "#666666"} + {-calendar_width 0} + {-day_bgcolor "#DDDDDD"} + {-day_text_color "white"} + {-empty_bgcolor "white"} + {-next_month_template ""} + {-prev_month_template ""} + {-width 2} } { Returns a calendar year of small calendars for the year of the passed in date. Defaults to this year. @@ -611,7 +602,6 @@ ad_proc dt_widget_calendar_navigation { - {} {base_url ""} {view "week"} {date ""} 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.12.14.3 -r1.12.14.4 --- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl 11 Oct 2013 11:08:55 -0000 1.12.14.3 +++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl 6 Dec 2013 09:13:49 -0000 1.12.14.4 @@ -10,7 +10,8 @@ } ad_proc -public dt_systime { - {-format "%Y-%m-%d %H:%M:%S" -gmt f} + {-format "%Y-%m-%d %H:%M:%S"} + {-gmt f} } { Returns current server time in the standard format "yyyy-mm-dd hh:mi:ss". With the optional -gmt flag it returns the time in @@ -40,7 +41,8 @@ } ad_proc -deprecated dt_format { - {-format "%Y-%m-%d %H:%M:%S" -gmt f} + {-format "%Y-%m-%d %H:%M:%S"} + {-gmt f} time } { This proc should not be used, because it does not take internationalization into account. Use lc_time_fmt instead. @@ -325,8 +327,11 @@ } ad_proc -public dt_widget_datetime { - {-show_date 1 -date_time_sep " " -use_am_pm 0 -default none} - {name} + {-show_date 1} + {-date_time_sep " "} + {-use_am_pm 0} + {-default none} + name {granularity days} } { @@ -496,7 +501,10 @@ } ad_proc -public dt_widget_maybe_range { - {-hide t -hidden_value "00" -default "" -format "%02d"} + {-hide t} + {-hidden_value "00"} + {-default ""} + {-format "%02d"} ask_for_value name start Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v diff -u -r1.17.6.1 -r1.17.6.2 --- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 27 Aug 2013 11:25:28 -0000 1.17.6.1 +++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 6 Dec 2013 09:22:05 -0000 1.17.6.2 @@ -135,18 +135,16 @@ } ad_proc rss_gen_100 { - { - -channel_title "" - -channel_link "" - -channel_description "" - -image "" - -items "" - -channel_copyright "" - -channel_managingEditor "" - -channel_webMaster "" - -channel_pubDate "" - } -} { + {-channel_title ""} + {-channel_link ""} + {-channel_description ""} + {-image ""} + {-items ""} + {-channel_copyright ""} + {-channel_managingEditor ""} + {-channel_webMaster ""} + {-channel_pubDate ""} +} { generate an rss 1.0 xml feed very basic rss 1.0, with no modules implemented.... } { @@ -288,23 +286,21 @@ } ad_proc rss_gen_091 { - { - -channel_title "" - -channel_link "" - -channel_description "" - -channel_language "en-us" - -channel_copyright "" - -channel_managingEditor "" - -channel_webMaster "" - -channel_rating "" - -channel_pubDate "" - -channel_lastBuildDate "" - -channel_skipDays "" - -channel_skipHours "" - -image "" - -items "" - } -} { + {-channel_title ""} + {-channel_link ""} + {-channel_description ""} + {-channel_language "en-us"} + {-channel_copyright ""} + {-channel_managingEditor ""} + {-channel_webMaster ""} + {-channel_rating ""} + {-channel_pubDate ""} + {-channel_lastBuildDate ""} + {-channel_skipDays ""} + {-channel_skipHours ""} + {-image ""} + {-items ""} +} { generate an rss 0.91 xml feed } { @@ -461,24 +457,22 @@ } ad_proc rss_gen { - { - -version "2.0" - -channel_title "" - -channel_link "" - -channel_description "" - -image "" - -items "" - -channel_language "en-us" - -channel_copyright "" - -channel_managingEditor "" - -channel_webMaster "" - -channel_rating "" - -channel_pubDate "" - -channel_lastBuildDate "" - -channel_skipDays "" - -channel_skipHours "" - } -} { + {-version "2.0"} + {-channel_title ""} + {-channel_link ""} + {-channel_description ""} + {-image ""} + {-items ""} + {-channel_language "en-us"} + {-channel_copyright ""} + {-channel_managingEditor ""} + {-channel_webMaster ""} + {-channel_rating ""} + {-channel_pubDate ""} + {-channel_lastBuildDate ""} + {-channel_skipDays ""} + {-channel_skipHours ""} +} { 
     Generates an RSS XML doc given channel information and item
     information.  Supports versions .91 and 1.0.