Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl,v diff -u -r1.7.2.2 -r1.7.2.3 --- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl 19 Jul 2005 11:18:40 -0000 1.7.2.2 +++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl 3 Dec 2005 01:51:26 -0000 1.7.2.3 @@ -53,6 +53,8 @@ # Creates the elements to show with ad_form foreach attribute $attribute_list { +ns_log Notice "Huh? attribute: $attribute" + set element_mode "" set aditional_type "" set aditional_elements_2 "" @@ -79,9 +81,15 @@ } } boolean { - if { [string equal [lindex $attribute 2] "active_p"]} { - set aditional_type "(checkbox)" - } + # DRB: this is broken. You can't have a checkbox without an options list. + # + # If Solution Grove folks want a nice boolean checkbox they need to + # 1. Make it work by provide the option list + # 2. Do it for ALL boolean attributes, not just active_p + # + # if { [string equal [lindex $attribute 2] "active_p"]} { + # set aditional_type "(checkbox)" + # } } date { if { [string equal [lindex $attribute 2] "start_date"] } { @@ -97,6 +105,7 @@ } } set element [list [lindex $attribute 2]:text${aditional_type} [list label [lindex $attribute 3]] $aditional_elements $aditional_elements_2 $element_mode] +ns_log Notice "Huh? element: $element" lappend elements $element }