Index: openacs-4/packages/dotlrn-catalog/dotlrn-catalog.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/dotlrn-catalog.info,v diff -u -N -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/dotlrn-catalog/dotlrn-catalog.info 4 Jul 2005 21:20:34 -0000 1.2.2.1 +++ openacs-4/packages/dotlrn-catalog/dotlrn-catalog.info 19 Jul 2005 11:18:40 -0000 1.2.2.2 @@ -8,12 +8,12 @@ t dotlrn-catalog - + Miguel Marin 2005-05-11 Viaro Networks - + Index: openacs-4/packages/dotlrn-catalog/lib/tree-chunk.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/tree-chunk.xql,v diff -u -N -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-catalog/lib/tree-chunk.xql 19 Feb 2005 02:32:07 -0000 1.2 +++ openacs-4/packages/dotlrn-catalog/lib/tree-chunk.xql 19 Jul 2005 11:18:40 -0000 1.2.2.1 @@ -5,7 +5,7 @@ select dc.course_id, dc.course_key, dc.course_name, dc.assessment_id from dotlrn_catalog dc, cr_items ci - where dc.course_id = ci.live_revision + where active_p = 't', dc.course_id = ci.live_revision [template::list::filter_where_clauses -and -name course_list] 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 -N -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