Index: openacs-4/packages/invoices/tcl/invoice-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/invoice-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/invoices/tcl/invoice-procs.tcl	16 Aug 2005 20:04:32 -0000	1.1
+++ openacs-4/packages/invoices/tcl/invoice-procs.tcl	2 Sep 2005 16:10:00 -0000	1.2
@@ -192,15 +192,19 @@
 	set category [lang::util::localize [category::get_name $category_id]]
     }
 
-    set file [open "/web/document.html"]
-    fconfigure $file -translation binary
-    set content [read $file]
+    set file_url [parameter::get -parameter MailSendBoxFileP]
+    if {![empty_string_p $file_url]} {
+	set file [open $file_url]
+	fconfigure $file -translation binary
+	set content [read $file]
+	
+	# parse template and replace placeholders
+	eval [template::adp_compile -string $content]
+	set final_content $__adp_output
+    } else {
+	set final_content ""
+    }
 
-    
-    # parse template and replace placeholders
-    eval [template::adp_compile -string $content]
-    set final_content $__adp_output
-
     return $final_content
 }