Index: openacs-4/packages/invoices/www/offer-pdf.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-pdf.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/invoices/www/offer-pdf.tcl	10 Mar 2006 19:28:42 -0000	1.6
+++ openacs-4/packages/invoices/www/offer-pdf.tcl	7 Apr 2006 13:46:37 -0000	1.7
@@ -7,6 +7,7 @@
 } {
     offer_id:integer
     file_id:integer
+    {return_url ""}
 }
 
 set user_id [auth::require_login]
@@ -16,9 +17,11 @@
 if {![empty_string_p $project_id]} {
     acs_object::get -object_id $project_id -array project
     set pm_url [lindex [site_node::get_url_from_object_id -object_id $project(package_id)] 0]
-    set return_url [export_vars -base "${pm_url}one" {{project_item_id $project_id}}]
+    if {[empty_string_p $return_url]} {
+	set return_url [export_vars -base "${pm_url}one" {{project_item_id $project_id}}]
+    }
     db_1row project_data {}
-} else {
+} elseif {[empty_string_p $return_url]} {
     set return_url [export_vars -base offer-list {organization_id}]
 }