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.16 -r1.17
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl 13 Feb 2009 22:13:06 -0000 1.16
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl 29 May 2009 18:13:24 -0000 1.17
@@ -195,28 +195,30 @@
{-folder_id:required}
{-final ""}
{-extra_vars ""}
+ {-multirow "fs_context"}
} {
+ Create a multirow with cols (url title) for the file-storage bar
+ starting at folder_id
+ } {
+
set root_folder_id [attachments::get_root_folder]
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]
- if {![empty_string_p $root_folder_id]} {
- set cbar_html "[_ attachments.Top] > "
+ template::multirow create $multirow url label
+
+ if { $root_folder_id ne "" && $cbar_list ne "" } {
+ template::multirow append $multirow "attach?${extra_vars}&folder_id=$root_folder_id" [_ attachments.Top]
+ foreach elm $cbar_list {
+ if { [llength elm] > 1 } {
+ template::multirow append $multirow [lindex $elm 0] [lindex $elm 1]
+ } else {
+ template::multirow append $multirow "" $elm
+ }
+ }
} else {
- set cbar_html "[_ attachments.Top] > "
+ template::multirow append $multirow "" [_ attachments.Top]
}
- set length_list [llength $cbar_list]
- set aux 1
- foreach el $cbar_list {
- if {$aux == $length_list } {
- append cbar_html "$el"
- } else {
- append cbar_html "[lindex $el 1] > "
- }
- incr aux
- }
-
- return $cbar_html
}
}