Index: openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql	9 Oct 2001 00:55:50 -0000	1.2
+++ openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql	9 Nov 2001 19:13:39 -0000	1.3
@@ -44,6 +44,15 @@
 	value => ''
 );	
 
+  -- shaded_p 
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 't',
+	key => 'shaded_p',
+	value => 'f'
+);	  
+
 end;
 /
 show errors
Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	1 Nov 2001 23:12:31 -0000	1.10
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	9 Nov 2001 19:14:24 -0000	1.11
@@ -107,27 +107,34 @@
 	set data ""
 	set rowcount 0
 
-	db_foreach select_files_and_folders $query {
-	    append data "<tr><td>$name</td><td>$path</td><td>$content_size</td><td>$type</td><td>$last_modified</td>"
-	    incr rowcount
-	} 
+	if { $config(shaded_p) == "f" } {
 
-	set template "
-	<table border=1 cellpadding=2 cellspacing=2>
-	<tr>
-	<td bgcolor=#cccccc>Name</td>
-	<td bgcolor=#cccccc>Action</td>
-	<td bgcolor=#cccccc>Size (bytes)</td>
-	<td bgcolor=#cccccc>Type</td>
-	<td bgcolor=#cccccc>Modified</td>
-	</tr>
-	$data
-	</table>"
+	    db_foreach select_files_and_folders $query {
+		append data "<tr><td>$name</td><td>$path</td><td>$content_size</td><td>$type</td><td>$last_modified</td>"
+		incr rowcount
+	    } 
 
-	if {!$rowcount} {
-	    set template "<i>No items in this folder</i><P><a href=\"file-storage\">more...</a>"
-	}
+	    set template "
+	    <table border=1 cellpadding=2 cellspacing=2>
+	    <tr>
+	    <td bgcolor=#cccccc>Name</td>
+	    <td bgcolor=#cccccc>Action</td>
+	    <td bgcolor=#cccccc>Size (bytes)</td>
+	    <td bgcolor=#cccccc>Type</td>
+	    <td bgcolor=#cccccc>Modified</td>
+	    </tr>
+	    $data
+	    </table>"
+	    
+	    if {!$rowcount} {
+		set template "<i>No items in this folder</i><P><a href=\"file-storage\">more...</a>"
+	    }
 
+	} else {
+	    # shaded	
+	    set template ""
+	}
+	
 	set code [template::adp_compile -string $template]
 
 	set output [template::adp_eval code]