From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 7 Jul 2023 18:38:12 +0000 (+0200)
Subject: 3446
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=2ee20e82c45c9a119d7fa0927e8e74beed01dbe7;p=openface-maja

3446
---

diff --git a/p.pl b/p.pl
index 61f5bcb..eebf366 100755
--- a/p.pl
+++ b/p.pl
@@ -3,6 +3,7 @@ use warnings;
 use strict;
 use autodie;
 use Data::Dump qw(dump);
+use Text::Unaccent;
 
 my $filename = 'Intervali_Openface_novi_rad_Boris_export.txt';
 
@@ -38,10 +39,17 @@ while(<$fh>) {
 	my @v = split(/\t/, $_);
 	warn "#[ $_ ]\n" if $debug;
 
+	my $id = $v[0];
+	if ( ! defined $id ) {
+		warn "ERROR: ID col 0 null [$_]";
+		next;
+	}
+
 	if ( ! $last_id || $last_id ne $v[0] ) {
 		my $patt = 'originals_2023-07-07/' . $v[0] . '*.csv';
 		$file2 = glob $patt;
 		$file2 ||= glob 'originals_2023-07-07/' . $v[0] . '*.csv';
+		$file2 ||= glob 'originals_2023-07-07/' . unac_string('utf-8', $v[0] ) . '*.csv';
 
 		if ( ! defined $file2 ) {
 			warn "SKIP ERROR: $patt glob didn't find anything for v[0]=$v[0] [$_]";