From 9f4b217a918ce2fd00138fb91f50ee21a2a77bae Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Tue, 20 Mar 2007 20:11:07 +0000
Subject: acls on new import

---
 httemplate/misc/process/cust_main_note-import.cgi | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'httemplate/misc/process')

diff --git a/httemplate/misc/process/cust_main_note-import.cgi b/httemplate/misc/process/cust_main_note-import.cgi
index af06ae95e..efc6224d0 100644
--- a/httemplate/misc/process/cust_main_note-import.cgi
+++ b/httemplate/misc/process/cust_main_note-import.cgi
@@ -22,6 +22,10 @@ The following items <% $op eq 'Preview' ? 'would be' : 'were' %> imported.  (See
 </PRE>
   
 <%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Import');
+
 my $date = time;
 my $otaker = $FS::CurrentUser::CurrentUser->username;
 my $csv = new Text::CSV_XS;
-- 
cgit v1.2.1