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.17 -r1.18
--- openacs-4/packages/invoices/www/invoice-send.tcl	10 Apr 2006 11:26:01 -0000	1.17
+++ openacs-4/packages/invoices/www/invoice-send.tcl	3 May 2006 05:56:33 -0000	1.18
@@ -103,9 +103,6 @@
 	set file_size [file size $document_file]
 	set file_id [contact::oo::import_oo_pdf -oo_file $document_file -printer_name "pdfconv" -title $file_title -parent_id $invoice_id]
 
-	# set file_id [cr_import_content -title $file_title -description "PDF version of <a href=[export_vars -base "/invoices/invoice-ae" -url {{mode display} invoice_id}]>this invoice</a>" $invoice_id $document_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
-	# content::item::set_live_revision -revision_id $file_id
-
 	lappend file_ids $file_id
 #	db_dml set_publish_status {}
     }
@@ -139,11 +136,14 @@
 	    db_dml set_publish_status_and_parent {}
 	    db_dml set_context_id {}
 	}
+
+	# mark displayed pdf as sent
+	iv::invoice::set_pdf_status -invoice_id $invoice_id -status "sent"
+
 	if {$status == "new" || [empty_string_p $status]} {
 	    iv::invoice::set_status -invoice_id $invoice_id -status "billed"
 	}
     }
-    
 }
 
 set cancel_url [export_vars -base invoice-list {organization_id}]