Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/file-storage/www/index.tcl	17 May 2003 10:39:54 -0000	1.20
+++ openacs-4/packages/file-storage/www/index.tcl	15 Dec 2003 11:18:45 -0000	1.21
@@ -8,6 +8,7 @@
 } {
     {folder_id:integer [fs_get_root_folder]}
     {n_past_days:integer "99999"}
+    {orderby:optional}
 } -validate {
     valid_folder -requires {folder_id:integer} {
 	if {![fs_folder_p $folder_id]} {
@@ -80,9 +81,14 @@
 set context [fs_context_bar_list $folder_id]
 
 set up_url {}
-if { [llength $context] > 1 } {
-    set up_url [lindex [lindex $context end-1] 0]
-    set up_name [lindex [lindex $context end-1] 1]
+if { !${root_folder_p}} {
+    if {[llength $context] == 1} {
+	set up_url [ad_conn package_url]
+	set up_name [ad_conn instance_name]
+    } else {
+	set up_url [lindex [lindex $context end-1] 0]
+	set up_name [lindex [lindex $context end-1] 1]
+    }
 }
 
 ad_return_template