| line | % | coverage | branch |
|---|
| 249 | 0 | T | F | @_ ? : |
| 251 | 0 | T | F | if (defined $options and exists $$options{'defer_marc_save'} and $$options{'defer_marc_save'}) |
| 271 | 0 | T | F | unless $defer_marc_save |
| 274 | 0 | T | F | if ('C4::Context'->preference('OAI-PMH:AutoUpdateSets')) |
| 278 | 0 | T | F | if 'C4::Context'->preference('CataloguingLog') |
| 304 | 0 | T | F | unless $record |
| 306 | 0 | T | F | if ('C4::Context'->preference('CataloguingLog')) |
| 314 | 0 | T | F | if (not $field->is_control_field) |
| 315 | 0 | T | F | if (scalar $field->subfields == 0 or scalar $field->subfields == 1 and $field->subfield('9')) |
| 324 | 0 | T | F | if not $frameworkcode or $frameworkcode eq 'Default' |
| 351 | 0 | T | F | if ('C4::Context'->preference('OAI-PMH:AutoUpdateSets')) |
| 418 | 0 | T | F | if (my $itemnumber = $sth->fetchrow) |
| 424 | 0 | T | F | if $error |
| 446 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) |
| 461 | 0 | T | F | if $error |
| 470 | 0 | T | F | if 'C4::Context'->preference('CataloguingLog') |
| 492 | 0 | T | F | if ($@) |
| 496 | 0 | T | F | if ($@) |
| 536 | 0 | T | F | unless defined $allowrelink |
| 540 | 0 | T | F | unless defined $heading |
| 545 | 0 | T | F | if (defined $current_link and !$allowrelink || !'C4::Context'->preference('LinkerRelink')) |
| 552 | 0 | T | F | if ($authid) { } |
| 553 | 0 | T | F | $fuzzy ? : |
| 555 | 0 | T | F | if defined $current_link and $current_link == $authid |
| 557 | 0 | T | F | if defined $current_link |
| 562 | 0 | T | F | if (defined $current_link and !$allowrelink || 'C4::Context'->preference('LinkerKeepStale')) { } |
| 0 | T | F | elsif ('C4::Context'->preference('AutoCreateAuthorities')) { } |
| 0 | T | F | elsif (defined $current_link) { } |
| 571 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'MARC21') |
| 578 | 0 | T | F | if $$_[0] =~ /[A-z]/ and $$_[0] ne 'a' |
| 591 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'MARC21') |
| 655 | 0 | T | F | if ($$row{'subfieldcode'} ne '' and $field->subfield($$row{'subfieldcode'})) { } |
| 0 | T | F | elsif ($$row{'subfieldcode'} eq '') { } |
| 683 | 0 | T | F | if (not $sth->fetchrow_hashref) |
| 790 | 0 | T | F | unless ('C4::Context'->preference('item-level_itypes')) |
| 857 | 0 | T | F | if ($itemnumber) { } |
| 890 | 0 | T | F | unless defined $record |
| 912 | 0 | T | F | if ($fieldvalue > 0) { } |
| 915 | 0 | T | F | if $fieldvalue eq $holdingbrtagf |
| 919 | 0 | T | F | if ($subfvalue ne '') { } |
| 924 | 0 | T | F | if ($tag < 10) { } |
| 929 | 0 | T | F | if ($template eq 'opac') |
| 932 | 0 | T | F | if ($calculated and not $hasputtextbefore) |
| 944 | 0 | T | F | if $hasputtextbefore |
| 949 | 0 | T | F | if ($tag < 10) { } |
| 965 | 0 | T | F | if ($template eq 'opac') |
| 969 | 0 | T | F | if ($calculated and not $hasputtextbefore) |
| 979 | 0 | T | F | if $hasputtextbefore |
| 1056 | 0 | T | F | unless $frameworkcode |
| 1058 | 0 | T | F | if (defined $marc_structure_cache and exists $$marc_structure_cache{$forlibrarian}{$frameworkcode}) |
| 1077 | 0 | T | F | $forlibrarian || !$libopac ? : |
| 1112 | 0 | T | F | $forlibrarian || !$libopac ? : |
| 1172 | 0 | T | F | unless $kohafield and defined $frameworkcode |
| 1174 | 0 | T | F | if (my $mf = $$relations{$frameworkcode}{$kohafield}) |
| 1202 | 0 | T | F | if ($marcxml) { } |
| 1204 | 0 | T | F | if ($@) |
| 1205 | 0 | T | F | unless $record |
| 1208 | 0 | T | F | if $embeditems |
| 1246 | 0 | T | F | if (not $record) |
| 1289 | 0 | T | F | $$fmts6{$pos6} ? : |
| 1291 | 0 | T | F | if ($genre eq 'book') |
| 1292 | 0 | T | F | if $$fmts7{$pos7} |
| 1296 | 0 | T | F | if ($genre eq 'book') { } |
| 0 | T | F | elsif ($genre eq 'journal') { } |
| 0 | T | F | elsif ($genre eq 'journalArticle') { } |
| 1309 | 0 | T | F | $mtx eq 'dc' ? : |
| 1311 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 1319 | 0 | T | F | if ($record->field('200')) |
| 1325 | 0 | T | F | $mtx eq 'dc' ? : |
| 1337 | 0 | T | F | if ($record->field('100')) |
| 1342 | 0 | T | F | if ($record->field('700')) |
| 1350 | 0 | T | F | if ($titletype eq 'a') { } |
| 1352 | 0 | T | F | if $pubyear |
| 1355 | 0 | T | F | if ($mtx eq 'journal') { } |
| 1361 | 0 | T | F | if ($pages) |
| 1395 | 0 | T | F | if ($marcflavour eq 'MARC21') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1408 | 0 | T | F | if $subfield_value |
| 1426 | 0 | T | F | if ($marcflavour eq 'MARC21') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1438 | 0 | T | F | if ($subfield_value) |
| 1441 | 0 | T | F | if 'C4::Context'->preference('CurrencyFormat') eq 'FR' |
| 1471 | 0 | T | F | if (not $category) |
| 1473 | 0 | T | F | unless defined $$tagslib{$tag}{$subfield}{'authorised_value'} |
| 1476 | 0 | T | F | if ($$tagslib{$tag}{$subfield}{'authorised_value'} eq 'branches') |
| 1481 | 0 | T | F | if ($$tagslib{$tag}{$subfield}{'authorised_value'} eq 'itemtypes') |
| 1489 | 0 | T | F | if ($category ne '') { } |
| 1493 | 0 | T | F | $opac && $$data{'lib_opac'} ? : |
| 1512 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'UNIMARC' or $marcflavour eq 'NORMARC') |
| 1514 | 0 | T | F | if ($controlnumberField) |
| 1533 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1544 | 0 | T | F | if ($isbn ne '') |
| 1549 | 0 | T | F | if ($isbn ne $value) |
| 1554 | 0 | T | F | if ($isbn) |
| 1574 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1599 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1610 | 0 | T | F | if ($note ne '') |
| 1615 | 0 | T | F | if ($note ne $value) |
| 1620 | 0 | T | F | if ($note) |
| 1639 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1652 | 0 | T | F | 'C4::Context'->preference('TraceCompleteSubfields') ? : |
| 1655 | 0 | T | F | unless $field->tag >= $mintag and $field->tag <= $maxtag |
| 1666 | 0 | T | F | if $marcflavour eq 'UNIMARC' and $$subject_subfield[0] =~ /2|3|4|5/ |
| 1669 | 0 | T | F | if $marcflavour eq 'MARC21' and $$subject_subfield[0] =~ /2/ |
| 1675 | 0 | T | F | if ($counter != 0) |
| 1678 | 0 | T | F | if ($code eq 9) |
| 1682 | 0 | T | F | if (not $found9) |
| 1686 | 0 | T | F | if ($counter != 0) |
| 1692 | 0 | T | F | unless $$subject_subfield[0] eq 9 or $$subject_subfield[0] eq '0' |
| 1718 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 1730 | 0 | T | F | unless $field->tag >= $mintag and $field->tag <= $maxtag |
| 1741 | 0 | T | F | if $marcflavour eq 'UNIMARC' and $$authors_subfield[0] =~ /3|5/ |
| 1747 | 0 | T | F | if ($count_auth != 0) |
| 1752 | 0 | T | F | if ($subfield9) { } |
| 1757 | 0 | T | F | if ($marcflavour eq 'UNIMARC' and $$authors_subfield[0] eq '4') |
| 1762 | 0 | T | F | if $marcflavour eq 'UNIMARC' and $$authors_subfield[0] =~ /4/ |
| 1766 | 0 | T | F | if ($count_auth != 0) |
| 1769 | 0 | T | F | unless $$authors_subfield[0] eq '9' or $$authors_subfield[0] eq '0' |
| 1805 | 0 | T | F | if ($marcflavour eq 'MARC21') { } |
| 1808 | 0 | T | F | unless ($url =~ /^\w+:/) |
| 1809 | 0 | T | F | if ($field->indicator(1) eq '7') { } |
| 0 | T | F | elsif ($field->indicator(1) eq '1') { } |
| 1827 | 0 | T | F | if $link |
| 1828 | 0 | T | F | if defined $s3 and $s3 =~ /^[Tt]able/ |
| 1851 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1879 | 0 | T | F | if ($$series_subfield[0] eq 'v') |
| 1887 | 0 | T | F | if ($counter != 0) { } |
| 1893 | 0 | T | F | if ($counter != 0) |
| 1896 | 0 | T | F | if ($volume_number) { } |
| 1899 | 0 | T | F | if ($$series_subfield[0] ne '9') |
| 1934 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1998 | 0 | T | F | unless my $dtm = $$db_to_marc{''}{$name} |
| 2001 | 0 | T | F | if (my $field = $record->field($tag)) { } |
| 2031 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 2035 | 0 | T | F | if ($hostrecord->subfield('100', 'a')) { } |
| 0 | T | F | elsif ($hostrecord->subfield('110', 'a')) { } |
| 2045 | 0 | T | F | if (my $field260 = $hostrecord->field('260')) |
| 2057 | 0 | T | F | if ($hostrecord->field('001')) |
| 2059 | 0 | T | F | if ($hostrecord->field('003')) |
| 2117 | 0 | T | F | unless $auth_type |
| 2124 | 0 | T | F | if $auth_type eq 'ITEM' |
| 2131 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC' and @$tags[$i] eq '100' and @$subfields[$i] eq 'a') |
| 2136 | 0 | T | F | if ($enc eq '01' or $enc eq '50' or $enc eq '03') { } |
| 2151 | 0 | T | F | if (@$tags[$i] ne $prevtag) { } |
| 2152 | 0 | T | F | unless @$tags[$i] eq '' |
| 2157 | 0 | T | F | if (@$indicator[$j]) { } |
| 2163 | 0 | T | F | if (not $first) { } |
| 2165 | 0 | T | F | if (@$tags[$i] and @$tags[$i] > 10 and @$values[$i] ne '') { } |
| 2174 | 0 | T | F | if (@$values[$i] ne '') |
| 2177 | 0 | T | F | if (@$tags[$i] eq '000') { } |
| 0 | T | F | elsif (@$tags[$i] < 10) { } |
| 2197 | 0 | T | F | if (@$indicator[$j]) { } |
| 2203 | 0 | T | F | if (@$values[$i] eq '') { } |
| 2205 | 0 | T | F | if ($first) |
| 2214 | 0 | T | F | if $xml =~ /<datafield/ |
| 2215 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC' and not $unimarc_and_100_exist) |
| 2222 | 0 | T | F | if $auth_type eq 'UNIMARCAUTH' |
| 2243 | 0 | T | F | if (not defined $s or $s eq '') |
| 2283 | 0 | T | F | if ($param_name =~ /^tag_/) |
| 2285 | 0 | T | F | if (utf8::decode($param_value)) |
| 2303 | 0 | T | F | if ($param eq 'biblionumber') { } |
| 0 | T | F | elsif ($param =~ /^tag_(\d*)_indicator1_/) { } |
| 2305 | 0 | T | F | if ($biblionumbertagfield < 10) { } |
| 2310 | 0 | T | F | if $newfield |
| 2319 | 0 | T | F | if ($tag < 10) { } |
| 2321 | 0 | T | F | if ($tag eq '000') { } |
| 0 | T | F | elsif ($cgi->param($params[$j + 1]) ne '') { } |
| 2324 | 0 | T | F | length $cgi->param($params[$j + 1]) == 24 ? : |
| 2339 | 0 | T | F | unless defined $params[$j + 1] |
| 2342 | 0 | T | F | if (not $params[$j + 1] =~ /_subfield_/) |
| 2345 | 0 | T | F | if ($fval ne '' and $newfield) { } |
| 0 | T | F | elsif ($fval ne '') { } |
| 2355 | 0 | T | F | if $newfield |
| 2381 | 0 | T | F | unless defined $frameworkcode |
| 2383 | 0 | T | F | unless (defined $inverted_field_map) |
| 2388 | 0 | T | F | if (defined $limit_table and $limit_table eq 'items') { } |
| 2399 | 0 | T | F | unless exists $$inverted_field_map{$frameworkcode}{$tag} |
| 2400 | 0 | T | F | if ($field->is_control_field) { } |
| 2404 | 0 | T | F | unless exists $tables{$table} |
| 2406 | 0 | T | F | if ($$result{$key}) { } |
| 2407 | 0 | T | F | unless ($key eq 'biblionumber' || $key eq 'biblioitemnumber' and $field->data eq '') |
| 2419 | 0 | T | F | unless exists $$inverted_field_map{$frameworkcode}{$tag}{'sfs'}{$code} |
| 2423 | 0 | T | F | unless exists $tables{$table} |
| 2425 | 0 | T | F | if ($$result{$key}) { } |
| 2426 | 0 | T | F | unless ($key eq 'biblionumber' || $key eq 'biblioitemnumber' and $value eq '') |
| 2438 | 0 | T | F | if (exists $$result{'copyrightdate'}) |
| 2441 | 0 | T | F | if ($temp =~ /c(\d\d\d\d)/ and $1 > 0) { } |
| 2450 | 0 | T | F | if (exists $$result{'publicationyear'}) |
| 2452 | 0 | T | F | if ($temp =~ /c(\d\d\d\d)/ and $1 > 0) { } |
| 2469 | 0 | T | F | unless @{$$relations{$frameworkcode}{$kohafield};} |
| 2520 | 0 | T | F | if ($column eq 'cn_sort' or $column eq 'cn_source') { } |
| 2543 | 0 | T | F | if ($field->tag < 10) { } |
| 2544 | 0 | T | F | if ($kohafield) { } |
| 2550 | 0 | T | F | if ($field->subfields) |
| 2553 | 0 | T | F | if ($subfields[$subfieldcount][0] eq $subfield) |
| 2554 | 0 | T | F | if ($kohafield) { } |
| 2581 | 0 | T | F | if ($field->tag < 10) { } |
| 2582 | 0 | T | F | if ($$result{$kohafield}) { } |
| 2588 | 0 | T | F | if ($field->subfields) |
| 2591 | 0 | T | F | if ($subfields[$subfieldcount][0] eq $subfield) |
| 2592 | 0 | T | F | if ($$result{$kohafield}) { } |
| 2668 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 2675 | 0 | T | F | if ($op eq 'specialUpdate') { } |
| 2679 | 0 | T | F | if ($oldRecord) |
| 2714 | 0 | T | F | if ($count == 0) |
| 2756 | 0 | T | F | unless $marc |
| 2800 | 0 | T | F | if ($server eq 'biblioserver') { } |
| 2811 | 0 | T | F | unless $authref |
| 2831 | 0 | T | F | if $field->tag < 10 |
| 2842 | 0 | T | F | if ($index{$key} =~ /$tag\*/ or $index{$key} =~ /$tag$subfieldcode/) |
| 2851 | 0 | T | F | unless $_ |
| 2853 | 0 | T | F | unless (defined $result{$key}{$_} and $result{$key}{$_} =~ /$biblionumber,$title\-(\d);/) |
| 2860 | 0 | T | F | if ($existing_biblionumbers) |
| 2872 | 0 | T | F | unless ($indexed) |
| 2878 | 0 | T | F | unless $_ |
| 2880 | 0 | T | F | unless ($result{'__RAW__'}{$_} =~ /$biblionumber,$title\-(\d);/) |
| 2887 | 0 | T | F | if ($existing_biblionumbers) |
| 2914 | 0 | T | F | if ($server eq 'biblioserver') { } |
| 2926 | 0 | T | F | unless $authref |
| 2945 | 0 | T | F | if $field->tag < 10 |
| 2957 | 0 | T | F | if ($index{$key} =~ /$tag\*/ or $index{$key} =~ /$tag$subfieldcode/) |
| 2966 | 0 | T | F | unless $_ |
| 2970 | 0 | T | F | if (exists $result{$key}{$_} and $result{$key}{"$_"} =~ /$biblionumber,\Q$title\E\-(\d+);/) { } |
| 2981 | 0 | T | F | if ($existing_biblionumbers) { } |
| 2983 | 0 | T | F | defined $1 ? : |
| 3000 | 0 | T | F | unless ($indexed) |
| 3006 | 0 | T | F | unless $_ |
| 3009 | 0 | T | F | if ($tmpstr =~ /$biblionumber,\Q$title\E\-(\d+);/) { } |
| 3020 | 0 | T | F | if ($existing_biblionumbers) { } |
| 3022 | 0 | T | F | $1 ? : |
| 3057 | 0 | T | F | unless $biblio_tag |
| 3059 | 0 | T | F | unless $biblio_tag |
| 3061 | 0 | T | F | if ($biblio_tag == $biblioitem_tag) { } |
| 3072 | 0 | T | F | if $old_field |
| 3080 | 0 | T | F | if ($biblio_tag < 10) { } |
| 3088 | 0 | T | F | if $old_field |
| 3092 | 0 | T | F | if ($biblioitem_tag < 10) { } |
| 3100 | 0 | T | F | if $old_field |
| 3120 | 0 | T | F | unless $biblioitem_tag |
| 3124 | 0 | T | F | if (my $field = $marc->field($biblioitem_tag)) { } |
| 3126 | 0 | T | F | if ($cn_sort ne '') |
| 3134 | 0 | T | F | if ($cn_sort) |
| 3154 | 0 | T | F | unless (defined $$biblio{'serial'}) |
| 3156 | 0 | T | F | if ($$biblio{'seriestitle'}) |
| 3178 | 0 | T | F | if ($dbh->errstr) |
| 3217 | 0 | T | F | if $$biblio{'biblionumber'} |
| 3222 | 0 | T | F | if ($dbh->errstr or not $$biblio{'biblionumber'}) |
| 3287 | 0 | T | F | if ($dbh->errstr) |
| 3351 | 0 | T | F | if ($dbh->errstr) |
| 3380 | 0 | T | F | if (my $data = $sth->fetchrow_hashref) |
| 3429 | 0 | T | F | if (my $data = $sth->fetchrow_hashref) |
| 3476 | 0 | T | F | if (not $frameworkcode) |
| 3485 | 0 | T | F | if ($encoding eq 'UNIMARC') |
| 3487 | 0 | T | F | if ($string and length $record->subfield(100, 'a') == 36) { } |
| 3496 | 0 | T | F | unless ($record->subfield(100, 'a')) |
| 3502 | 0 | T | F | if ($encoding =~ /MARC21|UNIMARC/) |
| 3506 | 0 | T | F | if $f005 |
| 3510 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) |
| 3552 | 0 | T | F | unless my $tagslib = GetMarcStructure($forlibrarian, $frameworkcode) |
| 3568 | 0 | T | F | if ('HASH' eq ref $$tagslib{$tag}{$subfield}) |
| 3569 | 0 | T | F | if (defined $$tagslib{$tag}{$subfield}{'authorised_value'} and exists $$bibliolevel_authorised_values{$$tagslib{$tag}{$subfield}{'authorised_value'}}) |
| 3570 | 0 | T | F | if (defined $record->field($tag)) |
| 3572 | 0 | T | F | if (defined $this_subfield_value) |
| 3670 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 3671 | 0 | T | F | if ($field = $host->field('100') || $host->field('110') || $host->field('11')) |
| 3673 | 0 | T | F | if ($s) |
| 3677 | 0 | T | F | if ($field = $host->field('245')) |
| 3679 | 0 | T | F | if ($s) |
| 3683 | 0 | T | F | if ($field = $host->field('260')) |
| 3685 | 0 | T | F | if ($s) |
| 3689 | 0 | T | F | if ($field = $host->field('240')) |
| 3691 | 0 | T | F | if ($s) |
| 3695 | 0 | T | F | if ($field = $host->field('022')) |
| 3697 | 0 | T | F | if ($s) |
| 3701 | 0 | T | F | if ($field = $host->field('020')) |
| 3703 | 0 | T | F | if ($s) |
| 3707 | 0 | T | F | if ($field = $host->field('001')) |
| 3715 | 0 | T | F | if ($field = $host->field('700') || $host->field('710') || $host->field('720')) |
| 3717 | 0 | T | F | if ($s) |
| 3722 | 0 | T | F | if ($field = $host->field('200')) |
| 3724 | 0 | T | F | if ($s) |
| 3729 | 0 | T | F | if ($field = $host->field('210')) |
| 3731 | 0 | T | F | if ($s) |
| 3736 | 0 | T | F | if ($field = $host->field('210')) |
| 3738 | 0 | T | F | if ($s) |
| 3743 | 0 | T | F | if ($field = $host->field('205')) |
| 3745 | 0 | T | F | if ($s) |
| 3750 | 0 | T | F | if ($field = $host->field('856')) |
| 3752 | 0 | T | F | if ($s) |
| 3757 | 0 | T | F | if ($field = $host->field('011')) |
| 3759 | 0 | T | F | if ($s) |
| 3764 | 0 | T | F | if ($field = $host->field('010')) |
| 3766 | 0 | T | F | if ($s) |
| 3770 | 0 | T | F | if ($field = $host->field('001')) |