Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl 26 Jul 2002 23:53:35 -0000 1.5
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl 27 Jul 2002 00:01:25 -0000 1.6
@@ -147,8 +147,12 @@
set cbar_list [fs_context_bar_list -extra_vars $extra_vars -folder_url "attach" -file_url "attach" -root_folder_id $root_folder_id -final $final $folder_id]
- set cbar_html "Top > "
-
+ if {![empty_string_p $root_folder_id]} {
+ set cbar_html "Top > "
+ } else {
+ set cbar_html "Top > "
+ }
+
foreach el $cbar_list {
if {[llength $el] < 2} {
append cbar_html "$el"