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.4 -r1.5
--- openacs-4/packages/invoices/www/invoice-list.tcl	9 Dec 2005 18:26:33 -0000	1.4
+++ openacs-4/packages/invoices/www/invoice-list.tcl	29 Jan 2006 16:24:04 -0000	1.5
@@ -14,6 +14,13 @@
 }
 
 set user_id [auth::require_login]
+
+# If there is no organization_id require admin permission on invoices
+if {[string eq $organization_id ""]} {
+    set package_id [ad_conn package_id]
+    permission::require_permission -object_id $package_id -privilege "admin"
+}
+
 set page_title "[_ invoices.iv_invoice_2]"
 set context [list $page_title]