Index: openacs-4/packages/invoices/lib/invoice-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/invoice-list.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/invoices/lib/invoice-list.tcl	11 Oct 2005 15:23:28 -0000	1.4
+++ openacs-4/packages/invoices/lib/invoice-list.tcl	11 Oct 2005 16:15:00 -0000	1.5
@@ -45,8 +45,13 @@
     -name iv_invoice \
     -key invoice_id \
     -no_data "[_ invoices.None]" \
+    -has_checkboxes \
     -selected_format $format \
     -elements {
+	checkbox {
+	    label {}
+	    display_template {@iv_invoice.checkbox;noquote@}
+	}
 	invoice_nr {
 	    label {[_ invoices.iv_invoice_invoice_nr]}
 	}
@@ -80,7 +85,7 @@
 	    display_template {[_ invoices.iv_invoice_status_@iv_invoice.status@]}
 	}
         action {
-	    display_template {<if @iv_invoice.status@ eq new><a href="@iv_invoice.edit_link@">#invoices.Edit#</a>&nbsp;<if @organization_id@ not nil and @invoice_cancel_p@ true><a href="@iv_invoice.cancel_link@">#invoices.Cancel#</a></if></if><if @iv_invoice.status@ ne billed>&nbsp;<a href="@iv_invoice.delete_link@">#invoices.Delete#</a></if>}
+	    display_template {<if @iv_invoice.status@ eq new><a href="@iv_invoice.edit_link@">#invoices.Edit#</a>&nbsp;<if @organization_id@ not nil and @invoice_cancel_p@ true><a href="@iv_invoice.cancel_link@">#invoices.Cancel#</a></if></if><if @iv_invoice.status@ ne billed and @iv_invoice.status@ ne paid>&nbsp;<a href="@iv_invoice.delete_link@">#invoices.Delete#</a></if>}
 	}
     } -actions $actions -sub_class narrow \
     -bulk_actions $bulk_actions \
@@ -152,7 +157,7 @@
 	}
     }
 
-db_multirow -extend {creator_link edit_link cancel_link delete_link} iv_invoice iv_invoice {} {
+db_multirow -extend {creator_link edit_link cancel_link delete_link checkbox} iv_invoice iv_invoice {} {
     # Ugly hack. We should find out which contact package is linked
     set creator_link "/contacts/$creation_user"
     set edit_link [export_vars -base "${base_url}invoice-ae" {invoice_id}]
@@ -165,4 +170,9 @@
     if {![empty_string_p $paid_amount]} {
 	set paid_amount [format "%.2f" $paid_amount]
     }
+    if {$status == "billed"} {
+	set checkbox "<input type=checkbox name=invoice_id value=\"$invoice_id\">"
+    } else {
+	set checkbox ""
+    }
 }
Index: openacs-4/packages/invoices/www/invoice-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/invoices/www/invoice-list.tcl	16 Aug 2005 20:04:34 -0000	1.1
+++ openacs-4/packages/invoices/www/invoice-list.tcl	11 Oct 2005 16:15:01 -0000	1.2
@@ -17,6 +17,6 @@
 set page_title "[_ invoices.iv_invoice_2]"
 set context [list $page_title]
 
-set row_list {invoice_nr {} title {} description {} total_amount {} creation_user {} creation_date {} due_date {} action {}}
+set row_list {checkbox {} invoice_nr {} title {} description {} total_amount {} creation_user {} creation_date {} due_date {} action {}}
 
 ad_return_template