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.10 -r1.11
--- openacs-4/packages/invoices/lib/invoice-list.tcl 4 Jan 2006 08:06:45 -0000 1.10
+++ openacs-4/packages/invoices/lib/invoice-list.tcl 27 Jan 2006 16:22:47 -0000 1.11
@@ -95,7 +95,7 @@
display_template {[_ invoices.iv_invoice_status_@iv_invoice.status@]}
}
action {
- display_template {#invoices.Edit# #invoices.Invoice_Cancel# #invoices.Delete#}
+ display_template {#invoices.Edit# #invoices.Invoice_Cancel# #invoices.Delete# #invoices.Preview#}
}
} -actions $actions -sub_class narrow \
-bulk_actions $bulk_actions \
@@ -153,7 +153,11 @@
-page_flush_p 1 \
-page_query_name iv_invoice_paginated \
-pass_properties {invoice_cancel_p} \
- -filters {organization_id {}} \
+ -filters {
+ organization_id {
+ where_clause {t.organization_id = :organization_id}
+ }
+ } \
-formats {
normal {
label "[_ invoices.Table]"
@@ -170,12 +174,13 @@
set contacts_p [apm_package_installed_p contacts]
-db_multirow -extend {creator_link edit_link cancel_link delete_link recipient} iv_invoice iv_invoice {} {
+db_multirow -extend {creator_link edit_link cancel_link delete_link preview_link recipient} iv_invoice iv_invoice {} {
# Ugly hack. We should find out which contact package is linked
set edit_link [export_vars -base "${base_url}invoice-ae" {invoice_id}]
set cancel_link [export_vars -base "${base_url}invoice-cancellation" {organization_id {parent_id $invoice_rev_id}}]
set delete_link [export_vars -base "${base_url}invoice-delete" {invoice_id}]
+ set preview_link [export_vars -base "${base_url}invoice-preview" {invoice_id}]
if {[empty_string_p $total_amount]} {
set total_amount 0
}