Index: openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl,v
diff -u -r1.3 -r1.3.10.1
--- openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl	10 Jan 2007 21:22:12 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl	5 Dec 2013 11:16:42 -0000	1.3.10.1
@@ -23,8 +23,6 @@
 }
 
 ad_proc -public ad_sql_get { 
-    { 
-    }
     sqlarrayname
 } {
     @param sqlarrayname array reference
@@ -60,13 +58,11 @@
 }
 
 ad_proc -public ad_sql_append { 
-    {
-	-select {}
-	-from {}
-	-where {}
-	-groupby {}
-	-orderby {}
-    } 
+    {-select {}}
+    {-from {}}
+    {-where {}}
+    {-groupby {}}
+    {-orderby {}}
     sqlarrayname
 } { 
     Adds to the SQL statement.
Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.20.8.10 -r1.20.8.11
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	1 Nov 2013 22:03:57 -0000	1.20.8.10
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	5 Dec 2013 11:16:43 -0000	1.20.8.11
@@ -6,7 +6,12 @@
     
 # Dimensional selection bars.
 #
-ad_proc ad_dimensional {option_list {url {}} {options_set ""} {optionstype url}} {
+ad_proc ad_dimensional {
+    option_list 
+    {url {}} 
+    {options_set ""} 
+    {optionstype url}
+} {
     Generate an option bar as in the ticket system; 
     <ul>
       <li> option_list -- the structure with the option data provided 
@@ -100,7 +105,12 @@
     append html "</tr>\n</table>\n"
 }
 
-ad_proc ad_dimensional_sql {option_list {what "where"} {joiner "and"} {options_set ""}} {
+ad_proc ad_dimensional_sql {
+    option_list 
+    {what "where"} 
+    {joiner "and"} 
+    {options_set ""}
+} {
     see ad_dimensional for the format of option_list
     <p>
     Given what clause we are asking for and the joiner this returns 
@@ -179,31 +189,29 @@
 }
 
 ad_proc -deprecated ad_table { 
-    {
-        -Torder_target_url {}
-        -Torderby {}
-	-Tasc_order_img {^}
-	-Tdesc_order_img {v}
-        -Tmissing_text "<em>No data found.</em>"
-        -Tsuffix {}
-        -Tcolumns {}
-        -Taudit {}
-        -Trows_per_band 1
-        -Tband_colors {{} "#ececec"}
-        -Tband_classes {{even} {odd}}
-        -Trows_per_page 0
-        -Tmax_rows 0
-        -Ttable_extra_html {cellpadding=3 cellspacing=0 class="table-display"}
-        -Theader_row_extra {style="background-color:#f8f8f8" class="table-header"}
-        -Ttable_break_html "<br><br>"
-        -Tpre_row_code {}
-        -Trow_code {[subst $Trow_default]}
-        -Tpost_data_ns_sets {}
-        -Textra_vars {}
-	-Textra_rows {}
-	-bind {}
-        -dbn {}
-    }
+    {-Torder_target_url {}}
+    {-Torderby {}}
+    {-Tasc_order_img {^}}
+    {-Tdesc_order_img {v}}
+    {-Tmissing_text "<em>No data found.</em>"}
+    {-Tsuffix {}}
+    {-Tcolumns {}}
+    {-Taudit {}}
+    {-Trows_per_band 1}
+    {-Tband_colors {{} "#ececec"}}
+    {-Tband_classes {{even} {odd}}}
+    {-Trows_per_page 0}
+    {-Tmax_rows 0}
+    {-Ttable_extra_html {cellpadding=3 cellspacing=0 class="table-display"}}
+    {-Theader_row_extra {style="background-color:#f8f8f8" class="table-header"}}
+    {-Ttable_break_html "<br><br>"}
+    {-Tpre_row_code {}}
+    {-Trow_code {[subst $Trow_default]}}
+    {-Tpost_data_ns_sets {}}
+    {-Textra_vars {}}
+    {-Textra_rows {}}
+    {-bind {}}
+    {-dbn {}}
     statement_name sql_qry Tdatadef
 } {
 
@@ -500,9 +508,7 @@
 }
 
 ad_proc ad_table_column_list {
-    { 
-        -sortable all
-    }
+    { -sortable all }
     datadef columns
 } {
     build a list of pointers into the list of column definitions
@@ -545,7 +551,7 @@
     return $column_list
 }
 
-ad_proc ad_sort_primary_key orderby {
+ad_proc ad_sort_primary_key {orderby} {
     return the primary (first) key of an order spec
     used by 
 } {
@@ -577,7 +583,15 @@
     return "<tr><td colspan=\"[uplevel llength \$Tcolumn_list]\" $td_html>$str</td></tr>"
 }
 
-ad_proc ad_table_form {datadef {type select} {return_url {}} {item_group {}} {item {}} {columns {}} {allowed {}}} {
+ad_proc ad_table_form {
+    datadef 
+    {type select} 
+    {return_url {}} 
+    {item_group {}} 
+    {item {}} 
+    {columns {}} 
+    {allowed {}}
+} {
     builds a form for chosing the columns to display 
     <p>
     columns is a list of the currently selected columns.
@@ -679,7 +693,15 @@
     return $html
 }
 
-ad_proc ad_table_sort_form {datadef {type select} {return_url {}} {item_group {}} {item {}} {sort_spec {}} {allowed {}}} {
+ad_proc ad_table_sort_form {
+    datadef 
+    {type select} 
+    {return_url {}} 
+    {item_group {}} 
+    {item {}} 
+    {sort_spec {}} 
+    {allowed {}}
+} {
     builds a form for setting up custom sorts.
     <p>
     <ul>
@@ -927,7 +949,7 @@
 }
     
 
-ad_proc ad_custom_page_defaults defaults { 
+ad_proc ad_custom_page_defaults {defaults} { 
     set the page defaults. If the form is 
     empty do a returnredirect with the defaults set
 } {
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.17.2.5 -r1.17.2.6
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	31 Oct 2013 17:38:02 -0000	1.17.2.5
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	5 Dec 2013 11:22:33 -0000	1.17.2.6
@@ -4,8 +4,12 @@
     @cvs-id $Id$
 }
 
-ad_proc state_widget { {default ""} {select_name "usps_abbrev"}} "Returns a state selection box" {
-
+ad_proc state_widget { 
+    {default ""} 
+    {select_name "usps_abbrev"}
+} {
+    Returns a state selection box
+} {
     set widget_value "<select name=\"$select_name\">\n"
     if { $default eq "" } {
         append widget_value "<option value=\"\" selected=\"selected\">Choose a State</option>\n"
@@ -24,8 +28,13 @@
     return $widget_value
 }
 
-ad_proc country_widget { {default ""} {select_name "country_code"} {size_subtag "size=4"}} "Returns a country selection box" {
-
+ad_proc country_widget { 
+    {default ""} 
+    {select_name "country_code"} 
+    {size_subtag "size=4"}
+} {
+    Returns a country selection box
+} {
     set widget_value "<select name=\"$select_name\" $size_subtag>\n"
     if { $default eq "" } {
         if { [parameter::get -parameter SomeAmericanReadersP] } {
@@ -51,7 +60,14 @@
 # teadams - It is usually more approprate to use html_select_options or
 # html_select_value_options. 
 
-ad_proc ad_generic_optionlist {items values {default ""}} "Use this to build select form fragments.  Given a list of items and a list of values, will return the option tags with default highlighted as appropriate." {
+ad_proc ad_generic_optionlist {
+    items 
+    values 
+    {default ""}
+} {
+    Use this to build select form fragments.  Given a list of items and a list of values, 
+    will return the option tags with default highlighted as appropriate.
+} {
 
     # items is a list of the items you would like the user to select from
     # values is a list of corresponding option values
@@ -74,11 +90,15 @@
     return  {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31}
 }
 
-ad_proc month_list {} "Returns list of month abbreviations" {
+ad_proc month_list {} {
+    Returns list of month abbreviations
+} {
     return  {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec}
 }
 
-ad_proc long_month_list {} "Returns list of months" {
+ad_proc long_month_list {} {
+    Returns list of months
+} {
     return  {January February March April May June July August September October November December}
 }
 
@@ -87,7 +107,11 @@
     return {1 2 3 4 5 6 7 8 9 10 11 12}
 } 
 
-ad_proc future_years_list {{num_year 10}} "Returns a list containing the next num_year years in the future." {
+ad_proc future_years_list {
+    {num_year 10}
+} {
+    Returns a list containing the next num_year years in the future.
+} {
     set year [ns_fmttime [ns_time] %Y] 
     set counter  0
     while {$counter < $num_year } {
@@ -103,7 +127,16 @@
 # if pad_to_two_p is 1, the option values will be 
 # padded to 2 digites with a leading 0
 
-ad_proc ad_integer_optionlist {start_value end_value {default ""} { pad_to_two_p 0} } "Produces an optionlist for a range of integers from start_value to end_value. If default matches one of the options, it is selection. If pad_to_two_p is 1, the option values will be padded to 2 digites with a leading 0." {
+ad_proc ad_integer_optionlist {
+    start_value 
+    end_value 
+    {default ""} 
+    { pad_to_two_p 0} 
+} {
+    Produces an optionlist for a range of integers from start_value to end_value. 
+    If default matches one of the options, it is selection. If pad_to_two_p is 1, 
+    the option values will be padded to 2 digites with a leading 0.
+} {
     # items is a list of the items you would like the user to select from
     # values is a list of corresponding option values
     # default is the value of the item to be selected
@@ -171,16 +204,16 @@
 }
 
 ad_proc ad_db_select_widget {
-    { 
-        -size 0
-        -multiple 0
-        -default {}
-        -option_list {}
-        -blank_if_no_db 0
-        -hidden_if_one_db 0
-	-bind {}
-    } 
-    statement_name sql_qry name 
+    {-size 0}
+    {-multiple 0}
+    {-default {}}
+    {-option_list {}}
+    {-blank_if_no_db 0}
+    {-hidden_if_one_db 0}
+    {-bind {}}
+    statement_name 
+    sql_qry 
+    name 
 } { 
     given a sql query this generates a select group.  If there is only
     one value it returns the text and a hidden variable setting that value.
@@ -342,7 +375,13 @@
     }
 } 
 
-ad_proc ad_color_widget { name default { use_js 0 } } "Returns a color selection widget, optionally using JavaScript. Default is a string of the form '0,192,255'." {
+ad_proc ad_color_widget { 
+    name 
+    default 
+    { use_js 0 } 
+} {
+    Returns a color selection widget, optionally using JavaScript. Default is a string of the form '0,192,255'.
+} {
     set out "<table cellspacing=0 cellpadding=0><tr><td><select name=$name.list"
     if { $use_js != 0 } {
 	append out " onChange=\"adUpdateColorText('$name')\""
@@ -385,7 +424,9 @@
     return $out
 }
 
-ad_proc ad_process_color_widgets args { Sets variables corresponding to the color widgets named in $args. } {
+ad_proc ad_process_color_widgets args { 
+    Sets variables corresponding to the color widgets named in $args. 
+} {
     foreach field $args {
 	upvar $field var
 	set var [ns_queryget "$field.list"]
@@ -398,7 +439,9 @@
     }
 }
 
-ad_proc ad_color_to_hex { triplet } { Converts a string of the form 0,192,255 to a string of the form #00C0FF. } {
+ad_proc ad_color_to_hex { triplet } { 
+    Converts a string of the form 0,192,255 to a string of the form #00C0FF. 
+} {
     if { [regexp {^([0-9]+),([0-9]+),([0-9]+)$} $triplet all r g b] } {
 	return "#[format "%02x%02x%02x" $r $g $b]"
     } else {