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 -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 -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 -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