Index: openacs-4/packages/invoices/www/invoice-send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-send.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/invoices/www/invoice-send.tcl	29 Jan 2006 15:43:16 -0000	1.14
+++ openacs-4/packages/invoices/www/invoice-send.tcl	15 Mar 2006 17:05:06 -0000	1.15
@@ -22,6 +22,7 @@
 # We are only getting the invoice_nr here.
 if {[string eq $invoice_nr ""]} {
     set invoice_nr [db_nextval iv_invoice_seq]
+    db_dml set_invoice_nr {}
 }
 
 set locale [lang::user::site_wide_locale -user_id $contact_id]
@@ -133,7 +134,6 @@
 	    db_dml set_publish_status {}
 	    db_dml set_context_id {}
 	}
-	db_dml set_invoice_nr {}
 	if {$status != "paid"} {
 	    iv::invoice::set_status -invoice_id $invoice_id -status "billed"
 	}