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