Index: openacs-4/packages/invoices/www/invoice-credit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-credit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/invoices/www/invoice-credit.tcl	16 Aug 2005 20:04:34 -0000	1.1
+++ openacs-4/packages/invoices/www/invoice-credit.tcl	11 Oct 2005 15:23:29 -0000	1.2
@@ -12,7 +12,9 @@
     page_title:onevalue
 }
 
+set package_id [ad_conn package_id]
 set user_id [auth::require_login]
+permission::require_permission -party_id $user_id -object_id $package_id -privilege invoice_cancel
 set date_format "YYYY-MM-DD"
 
 set page_title "[_ invoices.iv_invoice_credit_Add]"
@@ -21,7 +23,6 @@
 set organization_name [organizations::name -organization_id $organization_id]
 
 set context [list [list "invoice-list" "[_ invoices.iv_invoice_2]"] [list [export_vars -base invoice-add {organization_id}] "[_ invoices.iv_invoice_Add]"] $page_title]
-set package_id [ad_conn package_id]
 array set container_objects [iv::util::get_default_objects -package_id $package_id]
 set timestamp_format "$date_format [lc_get formbuilder_time_format]"