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 ""
+ return ""
}
ad_proc -public get_attachments {