Index: openacs-4/packages/invoices/tcl/offer-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/offer-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/invoices/tcl/offer-procs.tcl	2 Apr 2006 22:08:02 -0000	1.20
+++ openacs-4/packages/invoices/tcl/offer-procs.tcl	3 Apr 2006 13:30:30 -0000	1.21
@@ -104,6 +104,9 @@
 } {
     db_transaction {
 	set status [iv::offer::get_status -offer_id $offer_id]
+	if {[empty_string_p $status]} {
+	    set status new
+	}
 	set old_rev_id [content::item::get_best_revision -item_id $offer_id]
 	set new_rev_id [content::revision::new \
 			    -item_id $offer_id \
@@ -140,7 +143,9 @@
 
     Edit Offer status
 } {
-    db_dml update_status {}
+    if {![empty_string_p $status]} {
+	db_dml update_status {}
+    }
 }
 
 ad_proc -public iv::offer::get_status {