3446

diff --git a/p.pl b/p.pl
index 61f5bcb..eebf366 100755 (executable)
--- 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] [$_]";