| line | % | coverage | branch |
|---|
| 245 | 0 | T | F | @_ ? : |
| 247 | 0 | T | F | if (defined $options and exists $$options{'defer_marc_save'} and $$options{'defer_marc_save'}) |
| 267 | 0 | T | F | unless $defer_marc_save |
| 269 | 0 | T | F | if 'C4::Context'->preference('CataloguingLog') |
| 295 | 0 | T | F | unless $record |
| 297 | 0 | T | F | if ('C4::Context'->preference('CataloguingLog')) |
| 305 | 0 | T | F | if (not $field->is_control_field) |
| 306 | 0 | T | F | if (scalar $field->subfields == 0 or scalar $field->subfields == 1 and $field->subfield('9')) |
| 315 | 0 | T | F | if not $frameworkcode or $frameworkcode eq 'Default' |
| 403 | 0 | T | F | if (my $itemnumber = $sth->fetchrow) |
| 409 | 0 | T | F | if $error |
| 424 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) |
| 439 | 0 | T | F | if $error |
| 448 | 0 | T | F | if 'C4::Context'->preference('CataloguingLog') |
| 479 | 0 | T | F | unless defined $heading |
| 488 | 0 | T | F | if ($#{$authorities;} == 0) { } |
| 491 | 0 | T | F | if defined $current_link and $current_link eq $authid |
| 493 | 0 | T | F | if defined $current_link |
| 497 | 0 | T | F | if (defined $current_link) |
| 526 | 0 | T | F | if ($$row{'subfieldcode'} ne '' and $field->subfield($$row{'subfieldcode'})) { } |
| 0 | T | F | elsif ($$row{'subfieldcode'} eq '') { } |
| 554 | 0 | T | F | if (not $sth->fetchrow_hashref) |
| 661 | 0 | T | F | unless ('C4::Context'->preference('item-level_itypes')) |
| 728 | 0 | T | F | if ($itemnumber) { } |
| 761 | 0 | T | F | unless defined $record |
| 783 | 0 | T | F | if ($fieldvalue > 0) { } |
| 786 | 0 | T | F | if $fieldvalue eq $holdingbrtagf |
| 790 | 0 | T | F | if ($subfvalue ne '') { } |
| 795 | 0 | T | F | if ($tag < 10) { } |
| 800 | 0 | T | F | if ($template eq 'opac') |
| 803 | 0 | T | F | if ($calculated and not $hasputtextbefore) |
| 815 | 0 | T | F | if $hasputtextbefore |
| 820 | 0 | T | F | if ($tag < 10) { } |
| 836 | 0 | T | F | if ($template eq 'opac') |
| 840 | 0 | T | F | if ($calculated and not $hasputtextbefore) |
| 850 | 0 | T | F | if $hasputtextbefore |
| 927 | 0 | T | F | unless $frameworkcode |
| 929 | 0 | T | F | if (defined $marc_structure_cache and exists $$marc_structure_cache{$forlibrarian}{$frameworkcode}) |
| 948 | 0 | T | F | $forlibrarian || !$libopac ? : |
| 981 | 0 | T | F | $forlibrarian || !$libopac ? : |
| 1040 | 0 | T | F | unless $kohafield and defined $frameworkcode |
| 1042 | 0 | T | F | if (my $mf = $$relations{$frameworkcode}{$kohafield}) |
| 1070 | 0 | T | F | if ($marcxml) { } |
| 1072 | 0 | T | F | if ($@) |
| 1073 | 0 | T | F | unless $record |
| 1076 | 0 | T | F | if $embeditems |
| 1114 | 0 | T | F | if (not $record) |
| 1157 | 0 | T | F | $$fmts6{$pos6} ? : |
| 1159 | 0 | T | F | if ($genre eq 'book') |
| 1160 | 0 | T | F | if $$fmts7{$pos7} |
| 1164 | 0 | T | F | if ($genre eq 'book') { } |
| 0 | T | F | elsif ($genre eq 'journal') { } |
| 0 | T | F | elsif ($genre eq 'journalArticle') { } |
| 1177 | 0 | T | F | $mtx eq 'dc' ? : |
| 1179 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 1187 | 0 | T | F | if ($record->field('200')) |
| 1193 | 0 | T | F | $mtx eq 'dc' ? : |
| 1205 | 0 | T | F | if ($record->field('100')) |
| 1210 | 0 | T | F | if ($record->field('700')) |
| 1218 | 0 | T | F | if ($titletype eq 'a') { } |
| 1220 | 0 | T | F | if $pubyear |
| 1223 | 0 | T | F | if ($mtx eq 'journal') { } |
| 1229 | 0 | T | F | if ($pages) |
| 1263 | 0 | T | F | if ($marcflavour eq 'MARC21') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1276 | 0 | T | F | if $subfield_value |
| 1294 | 0 | T | F | if ($marcflavour eq 'MARC21') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1306 | 0 | T | F | if ($subfield_value) |
| 1309 | 0 | T | F | if 'C4::Context'->preference('CurrencyFormat') eq 'FR' |
| 1339 | 0 | T | F | if (not $category) |
| 1341 | 0 | T | F | unless defined $$tagslib{$tag}{$subfield}{'authorised_value'} |
| 1344 | 0 | T | F | if ($$tagslib{$tag}{$subfield}{'authorised_value'} eq 'branches') |
| 1349 | 0 | T | F | if ($$tagslib{$tag}{$subfield}{'authorised_value'} eq 'itemtypes') |
| 1357 | 0 | T | F | if ($category ne '') { } |
| 1361 | 0 | T | F | $opac && $$data{'lib_opac'} ? : |
| 1380 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'UNIMARC' or $marcflavour eq 'NORMARC') |
| 1382 | 0 | T | F | if ($controlnumberField) |
| 1401 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1412 | 0 | T | F | if ($isbn ne '') |
| 1417 | 0 | T | F | if ($isbn ne $value) |
| 1422 | 0 | T | F | if ($isbn) |
| 1442 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1467 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1478 | 0 | T | F | if ($note ne '') |
| 1483 | 0 | T | F | if ($note ne $value) |
| 1488 | 0 | T | F | if ($note) |
| 1507 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1520 | 0 | T | F | 'C4::Context'->preference('TraceCompleteSubfields') ? : |
| 1523 | 0 | T | F | unless $field->tag >= $mintag and $field->tag <= $maxtag |
| 1534 | 0 | T | F | if $marcflavour eq 'UNIMARC' and $$subject_subfield[0] =~ /2|3|4|5/ |
| 1537 | 0 | T | F | if $marcflavour eq 'MARC21' and $$subject_subfield[0] =~ /2/ |
| 1543 | 0 | T | F | if ($counter != 0) |
| 1546 | 0 | T | F | if ($code eq 9) |
| 1550 | 0 | T | F | if (not $found9) |
| 1554 | 0 | T | F | if ($counter != 0) |
| 1560 | 0 | T | F | unless $$subject_subfield[0] eq 9 |
| 1586 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 1598 | 0 | T | F | unless $field->tag >= $mintag and $field->tag <= $maxtag |
| 1609 | 0 | T | F | if $marcflavour eq 'UNIMARC' and $$authors_subfield[0] =~ /3|5/ |
| 1615 | 0 | T | F | if ($count_auth != 0) |
| 1620 | 0 | T | F | if ($subfield9) { } |
| 1625 | 0 | T | F | if ($marcflavour eq 'UNIMARC' and $$authors_subfield[0] eq '4') |
| 1630 | 0 | T | F | if $marcflavour eq 'UNIMARC' and $$authors_subfield[0] =~ /4/ |
| 1634 | 0 | T | F | if ($count_auth != 0) |
| 1637 | 0 | T | F | unless $$authors_subfield[0] eq '9' |
| 1673 | 0 | T | F | if ($marcflavour eq 'MARC21') { } |
| 1676 | 0 | T | F | unless ($url =~ /^\w+:/) |
| 1677 | 0 | T | F | if ($field->indicator(1) eq '7') { } |
| 0 | T | F | elsif ($field->indicator(1) eq '1') { } |
| 1695 | 0 | T | F | if $link |
| 1696 | 0 | T | F | if defined $s3 and $s3 =~ /^[Tt]able/ |
| 1719 | 0 | T | F | if ($marcflavour eq 'UNIMARC') { } |
| 1747 | 0 | T | F | if ($$series_subfield[0] eq 'v') |
| 1755 | 0 | T | F | if ($counter != 0) { } |
| 1761 | 0 | T | F | if ($counter != 0) |
| 1764 | 0 | T | F | if ($volume_number) { } |
| 1767 | 0 | T | F | if ($$series_subfield[0] ne '9') |
| 1802 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1866 | 0 | T | F | unless my $dtm = $$db_to_marc{''}{$name} |
| 1869 | 0 | T | F | if (my $field = $record->field($tag)) { } |
| 1898 | 0 | T | F | if ($marcflavour eq 'MARC21' or $marcflavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavour eq 'UNIMARC') { } |
| 1902 | 0 | T | F | if ($hostrecord->subfield('100', 'a')) { } |
| 0 | T | F | elsif ($hostrecord->subfield('110', 'a')) { } |
| 1912 | 0 | T | F | if (my $field260 = $hostrecord->field('260')) |
| 1924 | 0 | T | F | if ($hostrecord->field('001')) |
| 1926 | 0 | T | F | if ($hostrecord->field('003')) |
| 1984 | 0 | T | F | unless $auth_type |
| 1991 | 0 | T | F | if $auth_type eq 'ITEM' |
| 1998 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC' and @$tags[$i] eq '100' and @$subfields[$i] eq 'a') |
| 2003 | 0 | T | F | if ($enc eq '01' or $enc eq '50' or $enc eq '03') { } |
| 2018 | 0 | T | F | if (@$tags[$i] ne $prevtag) { } |
| 2019 | 0 | T | F | unless @$tags[$i] eq '' |
| 2024 | 0 | T | F | if (@$indicator[$j]) { } |
| 2030 | 0 | T | F | if (not $first) { } |
| 2032 | 0 | T | F | if (@$tags[$i] and @$tags[$i] > 10 and @$values[$i] ne '') { } |
| 2041 | 0 | T | F | if (@$values[$i] ne '') |
| 2044 | 0 | T | F | if (@$tags[$i] eq '000') { } |
| 0 | T | F | elsif (@$tags[$i] < 10) { } |
| 2064 | 0 | T | F | if (@$indicator[$j]) { } |
| 2070 | 0 | T | F | if (@$values[$i] eq '') { } |
| 2072 | 0 | T | F | if ($first) |
| 2081 | 0 | T | F | if $xml =~ /<datafield/ |
| 2082 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC' and not $unimarc_and_100_exist) |
| 2089 | 0 | T | F | if $auth_type eq 'UNIMARCAUTH' |
| 2110 | 0 | T | F | if (not defined $s or $s eq '') |
| 2150 | 0 | T | F | if ($param_name =~ /^tag_/) |
| 2152 | 0 | T | F | if (utf8::decode($param_value)) |
| 2170 | 0 | T | F | if ($param eq 'biblionumber') { } |
| 0 | T | F | elsif ($param =~ /^tag_(\d*)_indicator1_/) { } |
| 2172 | 0 | T | F | if ($biblionumbertagfield < 10) { } |
| 2177 | 0 | T | F | if $newfield |
| 2186 | 0 | T | F | if ($tag < 10) { } |
| 2188 | 0 | T | F | if ($tag eq '000') { } |
| 0 | T | F | elsif ($cgi->param($params[$j + 1]) ne '') { } |
| 2191 | 0 | T | F | length $cgi->param($params[$j + 1]) == 24 ? : |
| 2206 | 0 | T | F | unless defined $params[$j + 1] |
| 2209 | 0 | T | F | if (not $params[$j + 1] =~ /_subfield_/) |
| 2212 | 0 | T | F | if ($fval ne '' and $newfield) { } |
| 0 | T | F | elsif ($fval ne '') { } |
| 2222 | 0 | T | F | if $newfield |
| 2248 | 0 | T | F | unless defined $frameworkcode |
| 2250 | 0 | T | F | unless (defined $inverted_field_map) |
| 2255 | 0 | T | F | if (defined $limit_table and $limit_table eq 'items') { } |
| 2266 | 0 | T | F | unless exists $$inverted_field_map{$frameworkcode}{$tag} |
| 2267 | 0 | T | F | if ($field->is_control_field) { } |
| 2271 | 0 | T | F | unless exists $tables{$table} |
| 2273 | 0 | T | F | if ($$result{$key}) { } |
| 2274 | 0 | T | F | unless ($key eq 'biblionumber' || $key eq 'biblioitemnumber' and $field->data eq '') |
| 2286 | 0 | T | F | unless exists $$inverted_field_map{$frameworkcode}{$tag}{'sfs'}{$code} |
| 2290 | 0 | T | F | unless exists $tables{$table} |
| 2292 | 0 | T | F | if ($$result{$key}) { } |
| 2293 | 0 | T | F | unless ($key eq 'biblionumber' || $key eq 'biblioitemnumber' and $value eq '') |
| 2305 | 0 | T | F | if (exists $$result{'copyrightdate'}) |
| 2308 | 0 | T | F | if ($temp =~ /c(\d\d\d\d)/ and $1 > 0) { } |
| 2317 | 0 | T | F | if (exists $$result{'publicationyear'}) |
| 2319 | 0 | T | F | if ($temp =~ /c(\d\d\d\d)/ and $1 > 0) { } |
| 2336 | 0 | T | F | unless @{$$relations{$frameworkcode}{$kohafield};} |
| 2387 | 0 | T | F | if ($column eq 'cn_sort' or $column eq 'cn_source') { } |
| 2410 | 0 | T | F | if ($field->tag < 10) { } |
| 2411 | 0 | T | F | if ($kohafield) { } |
| 2417 | 0 | T | F | if ($field->subfields) |
| 2420 | 0 | T | F | if ($subfields[$subfieldcount][0] eq $subfield) |
| 2421 | 0 | T | F | if ($kohafield) { } |
| 2448 | 0 | T | F | if ($field->tag < 10) { } |
| 2449 | 0 | T | F | if ($$result{$kohafield}) { } |
| 2455 | 0 | T | F | if ($field->subfields) |
| 2458 | 0 | T | F | if ($subfields[$subfieldcount][0] eq $subfield) |
| 2459 | 0 | T | F | if ($$result{$kohafield}) { } |
| 2535 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 2542 | 0 | T | F | if ($op eq 'specialUpdate') { } |
| 2546 | 0 | T | F | if ($oldRecord) |
| 2581 | 0 | T | F | if ($count == 0) |
| 2623 | 0 | T | F | unless $marc |
| 2667 | 0 | T | F | if ($server eq 'biblioserver') { } |
| 2678 | 0 | T | F | unless $authref |
| 2698 | 0 | T | F | if $field->tag < 10 |
| 2709 | 0 | T | F | if ($index{$key} =~ /$tag\*/ or $index{$key} =~ /$tag$subfieldcode/) |
| 2718 | 0 | T | F | unless $_ |
| 2720 | 0 | T | F | unless (defined $result{$key}{$_} and $result{$key}{$_} =~ /$biblionumber,$title\-(\d);/) |
| 2727 | 0 | T | F | if ($existing_biblionumbers) |
| 2739 | 0 | T | F | unless ($indexed) |
| 2745 | 0 | T | F | unless $_ |
| 2747 | 0 | T | F | unless ($result{'__RAW__'}{$_} =~ /$biblionumber,$title\-(\d);/) |
| 2754 | 0 | T | F | if ($existing_biblionumbers) |
| 2781 | 0 | T | F | if ($server eq 'biblioserver') { } |
| 2793 | 0 | T | F | unless $authref |
| 2812 | 0 | T | F | if $field->tag < 10 |
| 2824 | 0 | T | F | if ($index{$key} =~ /$tag\*/ or $index{$key} =~ /$tag$subfieldcode/) |
| 2833 | 0 | T | F | unless $_ |
| 2837 | 0 | T | F | if (exists $result{$key}{$_} and $result{$key}{"$_"} =~ /$biblionumber,\Q$title\E\-(\d+);/) { } |
| 2848 | 0 | T | F | if ($existing_biblionumbers) { } |
| 2850 | 0 | T | F | defined $1 ? : |
| 2867 | 0 | T | F | unless ($indexed) |
| 2873 | 0 | T | F | unless $_ |
| 2876 | 0 | T | F | if ($tmpstr =~ /$biblionumber,\Q$title\E\-(\d+);/) { } |
| 2887 | 0 | T | F | if ($existing_biblionumbers) { } |
| 2889 | 0 | T | F | $1 ? : |
| 2924 | 0 | T | F | unless $biblio_tag |
| 2926 | 0 | T | F | unless $biblio_tag |
| 2928 | 0 | T | F | if ($biblio_tag == $biblioitem_tag) { } |
| 2939 | 0 | T | F | if $old_field |
| 2947 | 0 | T | F | if ($biblio_tag < 10) { } |
| 2955 | 0 | T | F | if $old_field |
| 2959 | 0 | T | F | if ($biblioitem_tag < 10) { } |
| 2967 | 0 | T | F | if $old_field |
| 2987 | 0 | T | F | unless $biblioitem_tag |
| 2991 | 0 | T | F | if (my $field = $marc->field($biblioitem_tag)) { } |
| 2993 | 0 | T | F | if ($cn_sort ne '') |
| 3001 | 0 | T | F | if ($cn_sort) |
| 3021 | 0 | T | F | unless (defined $$biblio{'serial'}) |
| 3023 | 0 | T | F | if ($$biblio{'seriestitle'}) |
| 3045 | 0 | T | F | if ($dbh->errstr) |
| 3084 | 0 | T | F | if $$biblio{'biblionumber'} |
| 3089 | 0 | T | F | if ($dbh->errstr or not $$biblio{'biblionumber'}) |
| 3154 | 0 | T | F | if ($dbh->errstr) |
| 3218 | 0 | T | F | if ($dbh->errstr) |
| 3247 | 0 | T | F | if (my $data = $sth->fetchrow_hashref) |
| 3296 | 0 | T | F | if (my $data = $sth->fetchrow_hashref) |
| 3343 | 0 | T | F | if (not $frameworkcode) |
| 3352 | 0 | T | F | if ($encoding eq 'UNIMARC') |
| 3354 | 0 | T | F | if ($string and length $record->subfield(100, 'a') == 36) { } |
| 3363 | 0 | T | F | unless ($record->subfield(100, 'a')) |
| 3369 | 0 | T | F | if ($encoding =~ /MARC21|UNIMARC/) |
| 3373 | 0 | T | F | if $f005 |
| 3377 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) |
| 3419 | 0 | T | F | unless my $tagslib = GetMarcStructure($forlibrarian, $frameworkcode) |
| 3435 | 0 | T | F | if ('HASH' eq ref $$tagslib{$tag}{$subfield}) |
| 3436 | 0 | T | F | if (defined $$tagslib{$tag}{$subfield}{'authorised_value'} and exists $$bibliolevel_authorised_values{$$tagslib{$tag}{$subfield}{'authorised_value'}}) |
| 3437 | 0 | T | F | if (defined $record->field($tag)) |
| 3439 | 0 | T | F | if (defined $this_subfield_value) |