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.1 -r1.7.2.2
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl 4 Jul 2005 21:20:35 -0000 1.7.2.1
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl 19 Jul 2005 11:18:40 -0000 1.7.2.2
@@ -78,6 +78,11 @@
set aditional_elements [list options $asm_list]
}
}
+ boolean {
+ if { [string equal [lindex $attribute 2] "active_p"]} {
+ set aditional_type "(checkbox)"
+ }
+ }
date {
if { [string equal [lindex $attribute 2] "start_date"] } {
set aditional_type "(text),optional"
@@ -90,7 +95,6 @@
set aditional_elements_2 {after_html { \[y-m-d\] }}
}
}
-
}
set element [list [lindex $attribute 2]:text${aditional_type} [list label [lindex $attribute 3]] $aditional_elements $aditional_elements_2 $element_mode]
lappend elements $element