This commit was generated by cvs2svn to compensate for changes in r5562,
[freeside.git] / httemplate / misc / cust_main_note-import.cgi
index 07b922f..b93c5c1 100644 (file)
 %    my $line;
 %    my $row = 0;
 %    while ( defined($line=<$fh>) ) {
-%      chomp $line;
+%      $line =~ s/(\S*)\s*$/$1/;
 %      $line =~ s/^(.*)(#!).*/$1/;
 %
 %      $csv->parse($line) or die "can't parse line: " . $csv->error_input();
 </FORM>
 </BODY>
 </HTML>
+
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Import');
+
+</%init>