| line | % | coverage | branch |
|---|
| 88 | 0 | T | F | unless $kohafield |
| 89 | 0 | T | F | unless $authtypecode |
| 111 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 125 | 0 | T | F | if (@$value[$i]) |
| 126 | 0 | T | F | if (@$tags[$i] =~ /mainentry|mainmainentry/) { } |
| 131 | 0 | T | F | if (@$operator[$i] eq 'is') { } |
| 0 | T | F | elsif (@$operator[$i] eq '=') { } |
| 0 | T | F | elsif (@$operator[$i] eq 'start') { } |
| 132 | 0 | T | F | @$tags[$i] ? : |
| 134 | 0 | T | F | @$tags[$i] ? : |
| 136 | 0 | T | F | @$tags[$i] ? : |
| 138 | 0 | T | F | @$tags[$i] ? : |
| 146 | 0 | T | F | if ($dosearch) { } |
| 162 | 0 | T | F | if ($sortby eq 'HeadingDsc') { } |
| 176 | 0 | T | F | if $numbers < $offset + $length |
| 217 | 0 | T | F | if ($n > 1) |
| 227 | 0 | T | F | if (@$value[$i]) |
| 228 | 0 | T | F | if (@$tags[$i] eq 'mainmainentry') { } |
| 0 | T | F | elsif (@$tags[$i] eq 'mainentry') { } |
| 237 | 0 | T | F | if (@$operator[$i] eq 'is') { } |
| 0 | T | F | elsif (@$operator[$i] eq '=') { } |
| 0 | T | F | elsif (@$operator[$i] eq 'start') { } |
| 254 | 0 | T | F | if ($query =~ /\S+/) { } |
| 261 | 0 | T | F | $sortby eq 'HeadingDsc' ? : |
| 0 | T | F | $sortby eq 'HeadingAsc' ? : |
| 268 | 0 | T | F | $query ? : |
| 269 | 0 | T | F | if $orderstring |
| 271 | 0 | T | F | unless $offset |
| 273 | 0 | T | F | unless $length |
| 282 | 0 | T | F | if $ev == ZOOM::Event::ZEND() |
| 285 | 0 | T | F | if ($error) |
| 296 | 0 | T | F | if ($nbresults > 0) |
| 319 | 0 | T | F | if ($mainentry) |
| 357 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 367 | 0 | T | F | if ($err) |
| 416 | 0 | T | F | unless defined $record |
| 476 | 0 | T | F | if defined $record->field($field) |
| 491 | 0 | T | F | unless $record and $record->field('001') |
| 529 | 0 | T | F | unless $authtypecode |
| 531 | 0 | T | F | $forlibrarian == 1 ? : |
| 538 | 0 | T | F | unless $total > 0 |
| 550 | 0 | T | F | $forlibrarian || !$libopac ? : |
| 580 | 0 | T | F | $forlibrarian || !$libopac ? : |
| 613 | 0 | T | F | if (uc 'C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 623 | 0 | T | F | if (not $f5) { } |
| 631 | 0 | T | F | if ($format eq 'MARC21') |
| 632 | 0 | T | F | if (not $record->leader) |
| 635 | 0 | T | F | if (not $record->field('003')) |
| 641 | 0 | T | F | if (not $record->field('008')) |
| 644 | 0 | T | F | if (not $default_008 or length $default_008 < 34) { } |
| 653 | 0 | T | F | if (not $record->field('040')) |
| 663 | 0 | T | F | if ($format eq 'UNIMARCAUTH') |
| 664 | 0 | T | F | unless $record->leader |
| 666 | 0 | T | F | if (my $string = $record->subfield('100', 'a')) { } |
| 0 | T | F | elsif ($record->field('100')) { } |
| 680 | 0 | T | F | if (not $authid and $format eq 'MARC21') |
| 684 | 0 | T | F | if (my $field = $record->field($auth_type_tag)) { } |
| 693 | 0 | T | F | if (not $authid) { } |
| 699 | 0 | T | F | unless ($record->field('001') and $record->field('001')->data eq $authid) |
| 707 | 0 | T | F | if ($auth_exists > 0) { } |
| 709 | 0 | T | F | unless $record->field('001') |
| 712 | 0 | T | F | unless $sth->execute($authtypecode, $record->as_usmarc, $record->as_xml_record($format), $authid) |
| 719 | 0 | T | F | if 'C4::Context'->preference('AuthoritiesLog') |
| 738 | 0 | T | F | if 'C4::Context'->preference('AuthoritiesLog') |
| 764 | 0 | T | F | if (not 'C4::Context'->preference('dontmerge') eq '1') { } |
| 772 | 0 | T | F | if 'C4::Context'->preference('AuthoritiesLog') |
| 787 | 0 | T | F | if (uc 'C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 820 | 0 | T | F | 'C4::Context'->preference('marcflavour') eq 'UNIMARC' ? : |
| 822 | 0 | T | F | if $@ |
| 824 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'MARC21') |
| 845 | 0 | T | F | if (defined $authtypecode) |
| 849 | 0 | T | F | if (my $res = $sth->fetchrow_hashref) |
| 869 | 0 | T | F | if (@$rtags[$i] ne $prevtag) { } |
| 870 | 0 | T | F | if ($prevtag < 10) { } |
| 871 | 0 | T | F | if ($prevvalue) |
| 875 | 0 | T | F | if ($field) |
| 880 | 0 | T | F | if (@$rtags[$i] < 10) { } |
| 889 | 0 | T | F | if (@$rtags[$i] < 10) { } |
| 892 | 0 | T | F | if (length @$rvalues[$i] > 0) |
| 900 | 0 | T | F | if $field |
| 928 | 0 | T | F | if ($record->field($auth_tag_to_report)) |
| 930 | 0 | T | F | if $$_[0] =~ /[A-z]/ |
| 935 | 0 | T | F | if (not defined $error and @{$results;}) |
| 961 | 0 | T | F | if ($authtypecode) |
| 988 | 0 | T | F | if ($summary and 'C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 997 | 0 | T | F | if ($tag < 10) { } |
| 998 | 0 | T | F | if ($tag eq '001') |
| 1010 | 0 | T | F | if $localsummary ne $summary |
| 1027 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 1038 | 0 | T | F | if ($field->subfield('2')) |
| 1046 | 0 | T | F | if ($field->subfield('5') and $field->subfield('a') and $field->subfield('5') eq 'g') { } |
| 0 | T | F | elsif ($field->subfield('5') and $field->as_string and $field->subfield('5') eq 'h') { } |
| 0 | T | F | elsif ($field->subfield('a')) { } |
| 1063 | 0 | T | F | $notes ? : |
| 1064 | 0 | T | F | if $broaderterms |
| 1065 | 0 | T | F | if $narrowerterms |
| 1066 | 0 | T | F | if $seealso |
| 1067 | 0 | T | F | if $see |
| 1068 | 0 | T | F | if $seeheading |
| 1074 | 0 | T | F | if '152' eq $field->tag |
| 1077 | 0 | T | F | if ($record->field('100')) { } |
| 0 | T | F | elsif ($record->field('110')) { } |
| 0 | T | F | elsif ($record->field('111')) { } |
| 0 | T | F | elsif ($record->field('130')) { } |
| 0 | T | F | elsif ($record->field('148')) { } |
| 0 | T | F | elsif ($record->field('150')) { } |
| 0 | T | F | elsif ($record->field('151')) { } |
| 0 | T | F | elsif ($record->field('155')) { } |
| 0 | T | F | elsif ($record->field('180')) { } |
| 0 | T | F | elsif ($record->field('181')) { } |
| 0 | T | F | elsif ($record->field('182')) { } |
| 0 | T | F | elsif ($record->field('185')) { } |
| 1115 | 0 | T | F | if $summary |
| 1142 | 0 | T | F | if ($$data{'authtrees'} and not $force) { } |
| 1149 | 0 | T | F | unless $record |
| 1151 | 0 | T | F | if ($field->subfield('5') and $field->subfield('5') eq 'g') |
| 1153 | 0 | T | F | if $subfauthid eq $authid |
| 1159 | 0 | T | F | if ($trees =~ /;/) { } |
| 1173 | 0 | T | F | unless $hierarchies |
| 1202 | 0 | T | F | unless $record |
| 1209 | 0 | T | F | if ($subfauthid and $field->subfield('5') and $field->subfield('a')) |
| 1210 | 0 | T | F | if ($field->subfield('5') eq 'h') { } |
| 0 | T | F | elsif ($field->subfield('5') eq 'g') { } |
| 1219 | 0 | T | F | if scalar @loopparents > 0 |
| 1220 | 0 | T | F | if scalar @loopchildren > 0 |
| 1221 | 0 | T | F | if scalar @loopparents > 0 |
| 1222 | 0 | T | F | if scalar @loopchildren > 0 |
| 1225 | 0 | T | F | if $authid eq $authid_constructed |
| 1286 | 0 | T | F | if scalar $MARCfrom->fields == 0 |
| 1287 | 0 | T | F | if scalar $MARCto->fields == 0 |
| 1296 | 0 | T | F | if $MARCto->field($auth_tag_to_report_to) |
| 1298 | 0 | T | F | if $MARCfrom->field($auth_tag_to_report_from) |
| 1303 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 1311 | 0 | T | F | if ($_ =~ /(\d+),.*/) |
| 1326 | 0 | T | F | if ($oResult) |
| 1350 | 0 | T | F | if ($authtypecodeto ne $authtypecodefrom) |
| 1360 | 0 | T | F | unless 'C4::Context'->preference('NoZebra') |
| 1366 | 0 | T | F | if ($auth_number == $mergefrom) |
| 1367 | 0 | T | F | $tag_to ? : |
| 1387 | 0 | T | F | if ($bibliotag < 10) { } |
| 1393 | 0 | T | F | unless ($biblionumber) |
| 1397 | 0 | T | F | if ($update == 1) |
| 1400 | 0 | T | F | if $counteditedbiblio % 10 and $ENV{'DEBUG'} |
| 1471 | 0 | T | F | @_ ? : |
| 1474 | 0 | T | F | if (defined $tag and defined $subfield and $tag != 0 and $subfield != 0) { } |
| 1477 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'MARC21') { } |