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.22 -r1.23
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl 28 Jun 2018 14:21:45 -0000 1.22
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl 28 Jun 2018 14:22:42 -0000 1.23
@@ -177,23 +177,23 @@
@return a list representing attachments and their UI URLs.
@param object_id object to check for attachments.
- @param base_url URL path that will be prepended to generated URLs.
+ @param base_url URL path that will be prepended to generated URLs.
@param return_url only meaningful if we are also generating
detach_url, is the location we will return
- to after detaching.
+ to after detaching.
@param approved_only flag deciding if we want to return only
attachments that have been approved. All
attachments will be returned when this is
- not specified.
+ not specified.
@param add_detach_url flag deciding whether we want to
generate also detach_url in the result.
@return list of lists in the format {item_id name url} or
{item_id name url detach_url} when
- add_detach_url
is specified.
+ add_detach_url
is specified.
} {
set lst_with_urls [list]
-
+
foreach item_id [db_list_of_lists select_attachments {
select item_id from attachments
where object_id = :object_id
@@ -234,7 +234,7 @@
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]
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 {
@@ -248,7 +248,7 @@
template::multirow append $multirow "" [_ attachments.Top]
}
}
-
+
}
# Local variables: