Index: openacs-4/packages/invoices/www/mass-invoice.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/mass-invoice.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/invoices/www/mass-invoice.tcl	24 Aug 2006 09:56:43 -0000	1.5
+++ openacs-4/packages/invoices/www/mass-invoice.tcl	25 Oct 2006 21:37:45 -0000	1.6
@@ -62,8 +62,11 @@
     
     set due_date [db_string today {}]
     set title "[_ invoices.iv_invoice_1] [organizations::name -organization_id $customer_id] $due_date"
-    
+   
     db_1row offer_data {}
+    if {$status eq "billed"} {
+	ad_return_error "Already billed" "$title exists already"
+    }
 
     set contacts_package_id [lindex [application_link::get_linked -from_package_id $package_id -to_package_key contacts] 0]