| line |
!l |
l&&!r |
l&&r |
condition |
|
160
|
0 |
0 |
13 |
ref $marc and $marc->isa('MARC::Record') |
|
190
|
0 |
1 |
1 |
$tagrules->{'repeatable'} and $tagrules->{'repeatable'} eq 'NR' |
|
|
1 |
1 |
0 |
$tagrules->{'repeatable'} and $tagrules->{'repeatable'} eq 'NR' and $field_seen{'880.' . $tagno} |
|
202
|
0 |
94 |
110 |
$tagrules->{'repeatable'} and $tagrules->{'repeatable'} eq 'NR' |
|
|
94 |
110 |
0 |
$tagrules->{'repeatable'} and $tagrules->{'repeatable'} eq 'NR' and $field_seen{$tagno} |
|
224
|
105 |
156 |
0 |
$rule eq 'NR' and $sub_seen{$code} |
|
351
|
0 |
0 |
0 |
length $isbnno == 10 and Business::ISBN::is_valid_checksum($isbnno) == 1 |
|
493
|
0 |
3 |
2 |
$newsubfields[$index] eq 'a' and length $newsubfields[$index + 1] != 7 |
|
605
|
13 |
0 |
1 |
$newsubfields[$index + 1] =~ /\b\w\. \b\w\./ and not $newsubfields[$index + 1] =~ /\[\bi\.e\. \b\w\..*\]/ |
|
618
|
4 |
8 |
4 |
$newsubfields[$index] eq 'b' and not $newsubfields[$index - 1] =~ / [:;=]$/ |
|
631
|
2 |
3 |
1 |
$newsubfields[$index] eq 'h' and not $newsubfields[$index - 1] =~ /(\S$)|(\-\- $)/ |
|
636
|
2 |
3 |
1 |
$newsubfields[$index] eq 'h' and not $newsubfields[$index + 1] =~ /^\[\w*\s*\w*\]/ |
|
648
|
2 |
3 |
1 |
$newsubfields[$index] eq 'n' and not $newsubfields[$index - 1] =~ /(\S\.$)|(\-\- \.$)/ |
|
662
|
2 |
1 |
1 |
$newsubfields[$index - 2] eq 'n' and not $newsubfields[$index - 1] =~ /(\S,$)|(\-\- ,$)/ |
|
|
1 |
1 |
1 |
$newsubfields[$index - 2] ne 'n' and not $newsubfields[$index - 1] =~ /(\S\.$)|(\-\- \.$)/ |
|
831
|
39 |
1 |
9 |
$article{$firstword} and not $isan_exception |
|
837
|
0 |
5 |
4 |
$separator and $etc =~ /^[ \(\)\[\]'"\-]+/ |