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.22 -r1.23
--- openacs-4/packages/invoices/tcl/invoice-procs.tcl	2 May 2006 12:07:11 -0000	1.22
+++ openacs-4/packages/invoices/tcl/invoice-procs.tcl	3 May 2006 05:52:35 -0000	1.23
@@ -64,6 +64,7 @@
 					 [list vat_percent $vat_percent] \
 					 [list vat $vat] \
 					 [list status new] \
+					 [list pdf_status new] \
 					 [list cancelled_p f] ] ]
     }
 
@@ -116,6 +117,7 @@
 					     [list vat_percent $vat_percent] \
 					     [list vat $vat] \
 					     [list status new] \
+					     [list pdf_status new] \
 					     [list cancelled_p f] ] ]
     }
 
@@ -134,6 +136,19 @@
     db_dml update_status {}
 }
 
+ad_proc -public iv::invoice::set_pdf_status {
+    -invoice_id:required
+    {-status "created"}
+    {-file_id ""}
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2006-05-02
+
+    Edit Invoice pdf status
+} {
+    db_dml update_status {}
+}
+
 ad_proc -public iv::invoice::data {
     -invoice_id:required
     -invoice_array:required