just warn for the weird diacritics from SIPServer
authorJason Etheridge <jason@EquinoxOLI.org>
Thu, 24 Nov 2022 05:34:16 +0000 (00:34 -0500)
committerJason Etheridge <jason@EquinoxOLI.org>
Thu, 24 Nov 2022 05:34:16 +0000 (00:34 -0500)
Signed-off-by: Jason Etheridge <jason@EquinoxOLI.org>
t/03checkout.t

index 7702b03..07722ee 100755 (executable)
@@ -128,11 +128,12 @@ foreach my $i (0 .. (scalar @{$test->{fields}})-1) {
     my $field =  $test->{fields}[$i];
 
     if ($field->{field} eq FID_ITEM_ID) {
-    $field->{pat} = qr/^$item_diacritic_barcode$/;
+        $field->{pat} = qr/^$item_diacritic_barcode$/;
     } elsif ($field->{field} eq FID_TITLE_ID) {
-    $field->{pat} = qr/^$item_diacritic_title\s*$/;
+        $field->{pat} = qr/^$item_diacritic_title\s*$/;
+        $field->{just_warn} = 1;
     } elsif ($field->{field} eq FID_OWNER) {
-    $field->{pat} = qr/^$item_diacritic_owner$/;
+        $field->{pat} = qr/^$item_diacritic_owner$/;
     }
 }