Index: openacs.org-dev/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/attachments/tcl/attachments-procs.tcl	9 Jul 2002 17:35:01 -0000	1.1.1.1
+++ openacs.org-dev/packages/attachments/tcl/attachments-procs.tcl	25 Jul 2002 18:46:57 -0000	1.1.1.2
@@ -84,30 +84,35 @@
         db_dml delete_attachment {}
     }
 
+    ad_proc -public get_url {
+    } {
+        return [parameter::get  \
+            -package_id [apm_package_id_from_key attachments] \
+            -parameter RelativeUrl
+        ]
+    }
+
     ad_proc -public add_attachment_url {
         {-package_id ""}
         {-object_id:required}
         {-return_url ""}
         {-pretty_name ""}
     } {
-        # FIXME: absolute URL here!!
-        return "attach/attach?pretty_object_name=[ns_urlencode $pretty_name]&object_id=$object_id&return_url=[ns_urlencode $return_url]"
+        return "[attachments::get_url]/attach?pretty_object_name=[ns_urlencode $pretty_name]&object_id=$object_id&return_url=[ns_urlencode $return_url]"
     }
 
     ad_proc -public goto_attachment_url {
         {-package_id ""}
         {-object_id:required}
         {-attachment_id:required}
     } {
-        # FIXME: absolute URL!
-        return "attach/go-to-attachment?object_id=$object_id&attachment_id=$attachment_id"
+        return "[attachments::get_url]/go-to-attachment?object_id=$object_id&attachment_id=$attachment_id"
     }
 
     ad_proc -public graphic_url {
         {-package_id ""}
     } {
-        # FIXME: absolute URL!
-        return "<img valign=bottom src=\"attach/graphics/file.gif\">"
+        return "<img valign=bottom src=\"[attachments::get_url]/graphics/file.gif\">"
     }
 
     ad_proc -public get_attachments {