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 -N -r1.4 -r1.5
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	26 Jul 2002 21:13:59 -0000	1.4
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	26 Jul 2002 23:53:35 -0000	1.5
@@ -110,8 +110,9 @@
         {-package_id ""}
         {-object_id:required}
         {-attachment_id:required}
+        {-base_url ""}
     } {
-        return "[attachments::get_url]/go-to-attachment?object_id=$object_id&attachment_id=$attachment_id"
+        return "${base_url}[attachments::get_url]/go-to-attachment?object_id=$object_id&attachment_id=$attachment_id"
     }
 
     ad_proc -public graphic_url {
@@ -122,14 +123,15 @@
 
     ad_proc -public get_attachments {
         {-object_id:required}
+        {-base_url ""}
     } {
         returns a list of attachment ids and names
     } {
         set lst [db_list_of_lists select_attachments {}]
         set lst_with_urls [list]
 
         foreach el $lst {
-            set append_lst [list [goto_attachment_url -object_id $object_id -attachment_id [lindex $el 0]]]
+            set append_lst [list [goto_attachment_url -object_id $object_id -attachment_id [lindex $el 0] -base_url $base_url]]
             lappend lst_with_urls [concat $el $append_lst]
         }