===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- pta/pta_import.pl	2020/11/10 17:30:31	1.7
+++ pta/pta_import.pl	2020/11/10 17:42:32	1.8
@@ -35,9 +35,9 @@ sub parse_import_file ($) {
 		chomp;
 		next if /^(?:#|$)/;
 		my $line = $_;
-		if (/^ACCOUNT/) {
-			$csv_account = $line;
-			$csv_account =~ s/^ACCOUNT\s+(\d+)$/$1/;
+		if (/^ACCOUNT\s+(\d+)$/) {
+			$csv_account and die "duplicate ACCOUNT line: $1";
+			$csv_account = $1;
 			next;
 		}
 		s/^(.*),\s+(\d+)\s+(\S+)// or
@@ -50,7 +50,7 @@ sub parse_import_file ($) {
 		$accounts{$reg} = $account;
 	}
 	close $in;
-	$csv_account or die "CSV account not defined in $fn";
+	$csv_account or die "no ACCOUNT line in $fn";
 	return (\%bookings, \%accounts, \@compiled, $csv_account, $import_type);
 }