Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-oracle.xql,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-oracle.xql	20 Aug 2005 18:27:54 -0000	1.7
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-oracle.xql	22 Jan 2006 20:10:25 -0000	1.8
@@ -34,7 +34,6 @@
 		ci.item_id = dec.course_id(+) and 
 		dec.product_id = v.product_id(+) and
 		dc.course_id = ci.live_revision and
-		dc.display_p
 
 		[template::list::filter_where_clauses -and -name course_list]
 
Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-postgresql.xql,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-postgresql.xql	17 Oct 2005 13:03:00 -0000	1.9
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk-postgresql.xql	22 Jan 2006 20:10:25 -0000	1.10
@@ -32,9 +32,6 @@
 		on (dec.product_id = v.product_id)
 			
 		where dc.course_id = ci.live_revision
-		and dc.display_p
-		and (v.display_section_p = 't' or
-		     v.display_section_p is null)
 		[template::list::filter_where_clauses -and -name course_list]
 	
 		order by lower(dc.course_name), lower(dec.section_name)
Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v
diff -u -N -r1.60 -r1.61
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	24 Sep 2005 08:10:01 -0000	1.60
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	22 Jan 2006 20:10:25 -0000	1.61
@@ -12,6 +12,7 @@
     instructor:optional
     { orderby course_name }
     { groupby course_name }
+    {show_hidden "f"}
 }
 
 set memoize_max_age [parameter::get -parameter CatalogMemoizeAge -default 10800]
@@ -240,6 +241,14 @@
 set cc_package_id [apm_package_id_from_key "dotlrn-catalog"]
 set admin_p [permission::permission_p -object_id $cc_package_id -privilege "admin"]
 
+if {$admin_p} {
+    set hidden_filter_hide_p 0
+} else {
+    set show_hidden f
+    set hidden_filter_hide_p 1
+}
+lappend filters show_hidden [list hide_p $hidden_filter_hide_p label "Show hidden courses" values { {Show t} {Hide f}} where_clause " (display_section_p <> :show_hidden or display_section_p is null or display_section_p = 't') "]
+
 set actions [list]
 
 lappend actions "[_ dotlrn-ecommerce.View_All]" ? "[_ dotlrn-ecommerce.View_All]"