| line |
!l |
l&&!r |
l&&r |
condition |
|
281
|
37 |
1 |
1 |
$subdata =~ /\.\.+/ and not $subdata =~ /\.\.\.[^\.]*/ |
|
355
|
2 |
0 |
0 |
$tag eq '260' and $subdata =~ /\<.*?\>/ |
|
579
|
0 |
0 |
17 |
$record->field('010') && $record->field('010')->subfield('a') |
|
721
|
0 |
0 |
1 |
@fields4xx and not $newsubfields[-1] =~ /\.$/ |
|
|
0 |
0 |
0 |
$newsubfields[-1] =~ /\)\.$/ and not @fields4xx |
|
|
0 |
0 |
0 |
is_RDA($record) and $newsubfields[-1] =~ /\.$/ |
|
|
0 |
0 |
0 |
is_RDA($record) and $newsubfields[-1] =~ /\.$/ and not @fields4xx |
|
834
|
1 |
0 |
0 |
$record->subfield('245', 'h') and $record->subfield('245', 'h') =~ /\[electronic resource\]/ |
|
909
|
0 |
0 |
1 |
$subfieldb and $subfieldb =~ /col[^\.]/ |
|
914
|
0 |
0 |
0 |
$subfieldb and $subfieldb =~ /col\./ |
|
920
|
1 |
0 |
0 |
$illcodes =~ /^\s{4}$/ and not $subfieldb |
|
|
1 |
0 |
0 |
$illcodes =~ /^\s{4}$/ and $subfieldb |
|
|
0 |
1 |
0 |
$illcodes =~ /[a-e,g-m,o,p]/ and not $subfieldb |
|
|
0 |
0 |
1 |
$illcodes =~ /[a-e,g-m,o,p]/ and $subfieldb |
|
|
0 |
0 |
0 |
$illcodes =~ /f/ and $subfielda |
|
936
|
1 |
0 |
0 |
$illcodes =~ /f/ and $subfielda |
|
1033
|
0 |
0 |
1 |
not $record_is_RDA and $subfieldb =~ /ill\./ |
|
1063
|
0 |
1 |
0 |
not $record_is_RDA and $subfieldb =~ /port\.|ports\./ |
|
1176
|
0 |
0 |
1 |
$record->field(490) and $record->field(490)->indicator(1) eq '1' |
|
1211
|
0 |
0 |
1 |
$record->field(240) and not $record->field('1..') |
|
|
0 |
0 |
0 |
$record->field(240) and $record->field(240)->indicator(1) eq '0' |
|
|
0 |
0 |
0 |
$record->field(240) and $record->field(240)->indicator(1) eq '0' and $record->field('1..') |
|
1347
|
0 |
0 |
1 |
$date1 and $date1 =~ /^\d{4}$/ |
|
1351
|
0 |
0 |
1 |
$record->field('050') and $record->field('050')->subfield('b') |
|
1382
|
0 |
0 |
1 |
$#dates050 == 0 and not join("\t", @warningstoreturn) =~ /Dates do not match in each of the 050s/ |
|
1392
|
0 |
0 |
0 |
$record->field('260') and $record->field('260')->subfield('c') |
|
|
0 |
0 |
0 |
$record_is_RDA and ($record->field('260') and $record->field('260')->subfield('c')) |
|
1394
|
0 |
0 |
1 |
$record->field('260') and $record->field('260')->subfield('c') |
|
1430
|
0 |
0 |
0 |
$record->field('260') and $record->field('260')->subfield('c') |
|
1524
|
1 |
0 |
0 |
$record->field(110) and $record->field(110)->subfield('d') |
|
1528
|
1 |
0 |
0 |
$date1 eq $date050 and $date050 eq $date260 |
|
1638
|
0 |
0 |
1 |
$bkindex eq '0' and $hasindexin500or504 |
|
|
0 |
0 |
0 |
$bkindex eq '1' and not $hasindexin500or504 |
|
1680
|
1 |
0 |
0 |
$hasbibrefs == 1 and not $bibrefin504 || $bibrefin500 || $isbibliography |
|
|
0 |
1 |
0 |
$hasbibrefs == 0 and $bibrefin504 || $bibrefin500 |
|
1814
|
16 |
0 |
0 |
$isCIP and $tag eq '500' |
|
|
16 |
0 |
0 |
$isCIP and $tag eq '500' and $field5xx->subfield('a') =~ /^(LCCN)|(ISBN)|(Preassigned)/ |
|
2105
|
0 |
0 |
0 |
$field007bytes[4] =~ /^[vsz]$/ and $field007bytes[5] eq 'a' |
|
|
0 |
0 |
0 |
$field007bytes[4] =~ /^[vsz]$/ and $field007bytes[5] eq 'a' and $field007bytes[6] eq 'i' |
|
|
0 |
0 |
0 |
$field007bytes[4] =~ /^[vsz]$/ and $field007bytes[5] eq 'a' and $field007bytes[6] eq 'i' and $field007bytes[7] eq 'z' |
|
2118
|
0 |
0 |
0 |
$field007bytes[4] eq 'b' and $field007bytes[5] eq 'a' |
|
|
0 |
0 |
0 |
$field007bytes[4] eq 'b' and $field007bytes[5] eq 'a' and $field007bytes[6] eq 'h' |
|
|
0 |
0 |
0 |
$field007bytes[4] eq 'b' and $field007bytes[5] eq 'a' and $field007bytes[6] eq 'h' and $field007bytes[7] eq 'o' |
|
2131
|
0 |
0 |
0 |
$field300->subfield('a') and $field300->subfield('b') |
|
|
0 |
0 |
0 |
$field300->subfield('a') and $field300->subfield('b') and $field300->subfield('c') |
|
2168
|
0 |
0 |
0 |
$subfield300b =~ /b.?\&.?w/ and $subfield300b =~ /col\./ |
|
|
0 |
0 |
0 |
$subfield300b =~ /b.?\&.?w/ and $subfield300b =~ /col[^.]/ |
|
|
0 |
0 |
0 |
$subfield300b =~ /b.?\&.?w/ and not $subfield300b =~ /col\./ |
|
|
0 |
0 |
0 |
$subfield300b =~ /col\./ and not $subfield300b =~ /b.?\&.?w/ |
|
|
0 |
0 |
0 |
$subfield300b =~ /col[^.]/ and not $subfield300b =~ /b.?\&.?w/ |
|
2192
|
0 |
0 |
0 |
$subfield300b =~ /black \& white/ and $subfield300b =~ /colou?r/ |
|
|
0 |
0 |
0 |
$subfield300b =~ /b.?\&.?w/ and $subfield300b =~ /col\./ |
|
|
0 |
0 |
0 |
$subfield300b =~ /black \& white/ and not $subfield300b =~ /colou?r/ |
|
|
0 |
0 |
0 |
$subfield300b =~ /b.?\&.?w/ and not $subfield300b =~ /col/ |
|
|
0 |
0 |
0 |
$subfield300b =~ /colou?r/ and not $subfield300b =~ /black \& white/ |
|
|
0 |
0 |
0 |
$subfield300b =~ /col\./ and not $subfield300b =~ /(b.?\&.?w)|(black \& white)/ |
|
2291
|
0 |
0 |
0 |
$vhs538 || $dvd538 and $notdvd_or_vhs_in538 == 1 |
|
2598
|
32 |
0 |
0 |
$encodelvl eq '8' and $tag eq '037' |
|
2731
|
5 |
1 |
0 |
$tag eq '240' and $code =~ /o/ |
|
3041
|
0 |
0 |
1 |
71 <= $yearentered and $yearentered <= 99 |
|
3062
|
2 |
67 |
0 |
$monthentered =~ /^01$|^03$|^05$|^07$|^08$|^10$|^12$/ and $dayentered < 1 || $dayentered > 31 |
|
|
68 |
0 |
0 |
$monthentered =~ /^04$|^06$|^09$|^11$/ and $dayentered < 1 || $dayentered > 30 |
|
|
68 |
0 |
0 |
$monthentered =~ /^02$/ and $dayentered < 1 || $dayentered > 29 |
|
3231
|
1 |
4 |
65 |
$field008hash{'dateentered'} =~ /^\d{6}$/ and not $dateerrors =~ /entered/ |
|
3263
|
1 |
1 |
0 |
$field008hash{'date1'} =~ /^\s{4}$/ and $field008hash{'datetype'} =~ /^b$/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
629
|
0 |
2 |
6 |
$year < 2001 or $year > $current_year |
|
860
|
0 |
0 |
1 |
$subfielda =~ /\(?.*\b[pv]\.[,\) ]?/ or $subfielda =~ /\(?.*\bcolumns?\)?/ |
|
|
0 |
0 |
1 |
$subfielda =~ /\(?.*\b[pv]\.[,\) ]?/ or $subfielda =~ /\(?.*\bcolumns?\)?/ or $subfielda =~ / leaves / |
|
|
0 |
0 |
1 |
$subfielda =~ /\(?.*\b[pv]\.[,\) ]?/ or $subfielda =~ /\(?.*\bcolumns?\)?/ or $subfielda =~ / leaves / or $subfielda =~ / leaf / |
|
873
|
0 |
0 |
0 |
$subfielda =~ /\(?.*\bpages?[,\) ]?/ or $subfielda =~ /\(?.*\bvolumes?[,\) ]?/ |
|
|
0 |
0 |
0 |
$subfielda =~ /\(?.*\bpages?[,\) ]?/ or $subfielda =~ /\(?.*\bvolumes?[,\) ]?/ or $subfielda =~ /\(?.*\bcolumns?\)?/ |
|
|
0 |
0 |
0 |
$subfielda =~ /\(?.*\bpages?[,\) ]?/ or $subfielda =~ /\(?.*\bvolumes?[,\) ]?/ or $subfielda =~ /\(?.*\bcolumns?\)?/ or $subfielda =~ / leaves / |
|
|
0 |
0 |
0 |
$subfielda =~ /\(?.*\bpages?[,\) ]?/ or $subfielda =~ /\(?.*\bvolumes?[,\) ]?/ or $subfielda =~ /\(?.*\bcolumns?\)?/ or $subfielda =~ / leaves / or $subfielda =~ / leaf / |
|
1524
|
0 |
0 |
1 |
$record->field(111) or $record->field(110) and $record->field(110)->subfield('d') |
|
1680
|
0 |
0 |
0 |
$bibrefin504 || $bibrefin500 || $isbibliography |
|
|
1 |
0 |
0 |
$bibrefin504 || $bibrefin500 |
|
1691
|
0 |
1 |
1 |
$bibref =~ /\(.+?\)[^ \,\.]/ or $bibref =~ /[^ ]\(.+?\)/ |
|
2291
|
0 |
0 |
0 |
$vhs538 || $dvd538 |
|
2731
|
0 |
0 |
6 |
$code =~ /^\d$/ or $tag eq '240' and $code =~ /o/ |
|
2755
|
1 |
2 |
1 |
$abbexceptions{$lastwords[-1]} or $lastwords[-1] =~ /(?:(?:\b|\W)[a-zA-Z]\.)$/ |
|
3057
|
0 |
2 |
67 |
$monthentered < 1 or $monthentered > 12 |
|
3062
|
0 |
1 |
66 |
$dayentered < 1 || $dayentered > 31 |
|
|
0 |
0 |
0 |
$dayentered < 1 || $dayentered > 30 |
|
|
0 |
0 |
0 |
$dayentered < 1 || $dayentered > 29 |
|
|
0 |
1 |
67 |
$dayentered < 1 or $dayentered > 31 |
|
3263
|
68 |
0 |
2 |
$field008hash{'date1'} =~ /^[u\d|]{4}$/ or $field008hash{'date1'} =~ /^\s{4}$/ and $field008hash{'datetype'} =~ /^b$/ |