acls on new import

[freeside.git] / httemplate / misc / process / cust_main_note-import.cgi

diff --git a/httemplate/misc/process/cust_main_note-import.cgi b/httemplate/misc/process/cust_main_note-import.cgi
index af06ae9..efc6224 100644 (file)
--- 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;