| line | % | coverage | branch |
|---|
| 44 | 50 | T | F | $ENV{'DEBUG'} ? : |
| 100 | 0 | T | F | if ($$result{'isbn'}) { } |
| 115 | 0 | T | F | if $$result{'itemtype'} |
| 117 | 0 | T | F | if ($$result{'author'}) |
| 131 | 0 | T | F | if (not defined $error) |
| 138 | 0 | T | F | if ($result) |
| 212 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 214 | 0 | T | F | $$result{'hits'} && $$result{'hits'} > 0 ? : |
| 220 | 0 | T | F | unless $query |
| 222 | 0 | T | F | defined $servers ? : |
| 243 | 0 | T | F | if $zconns[$i]->errcode |
| 245 | 0 | T | F | if ($@) |
| 259 | 0 | T | F | if ($event == ZOOM::Event::ZEND()) |
| 261 | 0 | T | F | defined $offset ? : |
| 265 | 0 | T | F | if (defined $max_results and $offset + $max_results < $hits) |
| 333 | 0 | T | F | $servers[$i] =~ /biblioserver/ ? : |
| 336 | 0 | T | F | if $scan and $DEBUG |
| 340 | 0 | T | F | if ($query_type) { } |
| 0 | T | F | elsif ($scan) { } |
| 341 | 0 | T | F | if ($query_type =~ /^ccl/) { } |
| 0 | T | F | elsif ($query_type =~ /^cql/) { } |
| 0 | T | F | elsif ($query_type =~ /^pqf/) { } |
| 357 | 0 | T | F | if ($@) |
| 365 | 0 | T | F | if ($sort eq 'author_az' or $sort eq 'author_asc') { } |
| 0 | T | F | elsif ($sort eq 'author_za' or $sort eq 'author_dsc') { } |
| 0 | T | F | elsif ($sort eq 'popularity_asc') { } |
| 0 | T | F | elsif ($sort eq 'popularity_dsc') { } |
| 0 | T | F | elsif ($sort eq 'call_number_asc') { } |
| 0 | T | F | elsif ($sort eq 'call_number_dsc') { } |
| 0 | T | F | elsif ($sort eq 'pubdate_asc') { } |
| 0 | T | F | elsif ($sort eq 'pubdate_dsc') { } |
| 0 | T | F | elsif ($sort eq 'acqdate_asc') { } |
| 0 | T | F | elsif ($sort eq 'acqdate_dsc') { } |
| 0 | T | F | elsif ($sort eq 'title_az' or $sort eq 'title_asc') { } |
| 0 | T | F | elsif ($sort eq 'title_za' or $sort eq 'title_dsc') { } |
| 402 | 0 | T | F | if $sort_by |
| 405 | 0 | T | F | if ($sort_by and not $scan) |
| 406 | 0 | T | F | if ($results[$i]->sort('yaz', $sort_by) < 0) |
| 415 | 0 | T | F | if ($ev == ZOOM::Event::ZEND()) |
| 416 | 0 | T | F | unless $results[$i - 1] |
| 418 | 0 | T | F | if ($size > 0) |
| 424 | 0 | T | F | if ($offset + $results_per_page <= $size) { } |
| 435 | 0 | T | F | if ($scan) { } |
| 447 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 471 | 0 | T | F | if (not $scan and $servers[$i - 1] =~ /biblioserver/) |
| 473 | 0 | T | F | $size > $facets_maxrecs ? : |
| 476 | 0 | T | F | unless $$facets[$k] |
| 500 | 0 | T | F | unless ($data ~~ \@used_datas) |
| 520 | 0 | T | F | if ($servers[$i - 1] =~ /biblioserver/) |
| 536 | 0 | T | F | if ($number_of_facets < 6 or $expanded_facet eq $link_value or $$facets_info{$link_value}{'expanded'}) |
| 549 | 0 | T | F | if length $facet_label_value > $facet_max_length |
| 554 | 0 | T | F | if ($link_value =~ /branch/) |
| 555 | 0 | T | F | if (defined $branches and ref $branches eq 'HASH' and defined $$branches{$one_facet} and ref $$branches{$one_facet} eq 'HASH') { } |
| 580 | 0 | T | F | unless ($$facets_info{$link_value}{'expanded'}) |
| 581 | 0 | T | F | if $number_of_facets > 6 and $expanded_facet ne $link_value |
| 585 | 0 | T | F | unless $$facets_info{$link_value}{'label_value'} =~ /Libraries/ and 'C4::Context'->preference('singleBranchMode') |
| 628 | 0 | T | F | if (exists $$hit{'md-work-author'}) |
| 631 | 0 | T | F | defined $work_author ? : |
| 638 | 0 | T | F | if (exists $$hit{'count'}) |
| 679 | 0 | T | F | if (not $index =~ /phr|ext/) |
| 687 | 0 | T | F | if $_ =~ /(and|or|not)/ |
| 688 | 0 | T | F | if (my($matched) = $operand =~ /([^\X\p{isAlnum}]\Q$_\E[^\X\p{isAlnum}]|[^\X\p{isAlnum}]\Q$_\E$|^\Q$_\E[^\X\p{isAlnum}])/gi) |
| 707 | 0 | T | F | if ($word =~ s/^\*([^\*]+)\*$/$1/) { } |
| 0 | T | F | elsif ($word =~ s/^\*([^\*]+)$/$1/) { } |
| 0 | T | F | elsif ($word =~ s/^([^\*]+)\*$/$1/) { } |
| 0 | T | F | elsif (index($word, '*') < 0) { } |
| 740 | 0 | T | F | if $operand =~ /\d/ |
| 751 | 0 | T | F | unless $stem =~ /(and$|or$|not$)/ or length $stem < 3 |
| 755 | 0 | T | F | if $DEBUG |
| 772 | 0 | T | F | if ($index eq 'kw' or not $index) { } |
| 0 | T | F | elsif ($index eq 'bc') { } |
| 0 | T | F | elsif ($index eq 'an') { } |
| 0 | T | F | elsif ($index =~ /,/) { } |
| 779 | 0 | T | F | if $fuzzy_enabled |
| 781 | 0 | T | F | if $stemming and $stemmed_operand |
| 1041 | 0 | T | F | if $DEBUG |
| 1044 | 0 | T | F | $operators ? : |
| 1045 | 0 | T | F | $indexes ? : |
| 1046 | 0 | T | F | $operands ? : |
| 1047 | 0 | T | F | $limits ? : |
| 1048 | 0 | T | F | $sort_by ? : |
| 1057 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) |
| 1080 | 0 | T | F | if (not $query =~ /\s*ccl=/) |
| 1085 | 0 | T | F | if $cclq |
| 1090 | 0 | T | F | if ($query =~ /^ccl=/) |
| 1094 | 0 | T | F | if (@limits) |
| 1099 | 0 | T | F | if ($query =~ /^cql=/) |
| 1102 | 0 | T | F | if ($query =~ /^pqf=/) { } |
| 1132 | 0 | T | F | if ($operands[$i]) |
| 1139 | 0 | T | F | if ($operands[$i] =~ /\w(:|=)/ or $scan) { } |
| 1151 | 0 | T | F | if ($index eq 'yr') { } |
| 0 | T | F | elsif ($index eq 'acqdate') { } |
| 0 | T | F | elsif ($index eq 'nb' or $index eq 'ns') { } |
| 1173 | 0 | T | F | if (not $index) |
| 1179 | 0 | T | F | unless ($indexes_set or not $index or $index =~ /(st-|phr|ext|wrdl|nb|ns)/) |
| 1188 | 0 | T | F | if ($remove_stopwords) |
| 1191 | 0 | T | F | if $DEBUG |
| 1192 | 0 | T | F | if $stopwords_removed and $DEBUG |
| 1196 | 0 | T | F | if ($auto_truncation) |
| 1197 | 0 | T | F | unless ($index =~ /(st-|phr|ext)/) |
| 1199 | 0 | T | F | index($_, '*') > 0 ? : |
| 1202 | 0 | T | F | if $DEBUG |
| 1211 | 0 | T | F | if $DEBUG |
| 1216 | 0 | T | F | if (scalar(@$righttruncated) + scalar(@$lefttruncated) + scalar(@$rightlefttruncated) > 0) |
| 1225 | 0 | T | F | if (scalar @$nontruncated) |
| 1229 | 0 | T | F | if (scalar @$righttruncated) |
| 1230 | 0 | T | F | if $previous_truncation_operand |
| 1234 | 0 | T | F | if (scalar @$lefttruncated) |
| 1235 | 0 | T | F | if $previous_truncation_operand |
| 1239 | 0 | T | F | if (scalar @$rightlefttruncated) |
| 1240 | 0 | T | F | if $previous_truncation_operand |
| 1245 | 0 | T | F | if $truncated_operand |
| 1246 | 0 | T | F | if $DEBUG |
| 1250 | 0 | T | F | if $stemming |
| 1253 | 0 | T | F | if $DEBUG |
| 1257 | 0 | T | F | if ($weight_fields) |
| 1263 | 0 | T | F | if $DEBUG |
| 1266 | 0 | T | F | if ($previous_operand) { } |
| 1269 | 0 | T | F | if ($operators[$i - 1]) { } |
| 1271 | 0 | T | F | unless $indexes_set |
| 1274 | 0 | T | F | if $index |
| 1275 | 0 | T | F | if $operands[$i] |
| 1283 | 0 | T | F | unless $indexes_set |
| 1285 | 0 | T | F | if $index |
| 1286 | 0 | T | F | if $operands[$i] |
| 1295 | 0 | T | F | unless $indexes_set |
| 1298 | 0 | T | F | if $index |
| 1299 | 0 | T | F | if $operands[$i] |
| 1305 | 0 | T | F | if $DEBUG |
| 1311 | 0 | T | F | if ($this_limit =~ /available/) { } |
| 0 | T | F | elsif ($this_limit =~ /mc/) { } |
| 1326 | 0 | T | F | if ($this_limit =~ /mc-ccode:/) |
| 1333 | 0 | T | F | if $group_OR_limits |
| 1334 | 0 | T | F | if $group_OR_limits |
| 1342 | 0 | T | F | if $limit or $query |
| 1345 | 0 | T | F | if ($this_limit =~ /^branch:(.+)/) { } |
| 1348 | 0 | T | F | if (defined $branchname) { } |
| 1358 | 0 | T | F | if ($group_OR_limits) |
| 1359 | 0 | T | F | if $query or $limit |
| 1362 | 0 | T | F | if ($availability_limit) |
| 1363 | 0 | T | F | if $query or $limit |
| 1390 | 0 | T | F | if ($DEBUG) |
| 1423 | 0 | T | F | if not $search_context or $search_context ne 'intranet' |
| 1425 | 0 | T | F | if ($search_context eq 'opac') |
| 1481 | 0 | T | F | if ($hits and $offset + $results_per_page <= $hits) { } |
| 1495 | 0 | T | F | $bibliotag < 10 ? : |
| 0 | T | F | $scan ? : |
| 1507 | 0 | T | F | $search_context eq 'opac' && 'C4::Context'->preference('AuthorisedValueImages') || $search_context eq 'intranet' && 'C4::Context'->preference('StaffAuthorisedValueImages') ? : |
| 1512 | 0 | T | F | if $$oldbiblio{'normalized_isbn'} or $$oldbiblio{'normalized_oclc'} or $$oldbiblio{'normalized_ean'} or $$oldbiblio{'normalized_upc'} |
| 1519 | 0 | T | F | if ($itemtypes{$$oldbiblio{'itemtype'}}{'summary'}) |
| 1528 | 0 | T | F | if ($marcrecord->field($1)) |
| 1537 | 0 | T | F | if $$tags{$tag} > $max |
| 1547 | 0 | T | F | if ($marcrecord->field($1)) |
| 1551 | 0 | T | F | if (not utf8::is_utf8($subfieldvalue)) |
| 1572 | 0 | T | F | if ($marcflavor eq 'MARC21' or $marcflavor eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavor eq 'UNIMARC') { } |
| 1580 | 0 | T | F | if (!$hostbiblionumber eq undef) |
| 1583 | 0 | T | F | if (!$hostbiblio eq undef) |
| 1586 | 0 | T | F | if ($hostitem->subfield('9') eq $linkeditemnumber) |
| 1589 | 0 | T | F | if (!$linkeditem eq undef) |
| 1621 | 0 | T | F | $maxitems_pref ? : |
| 1634 | 0 | T | F | if ($is_opac) |
| 1640 | 0 | T | F | 'C4::Context'->preference('HomeOrHoldingBranch') eq 'homebranch' ? : |
| 1641 | 0 | T | F | 'C4::Context'->preference('HomeOrHoldingBranch') eq 'homebranch' ? : |
| 1644 | 0 | T | F | if ($$item{$hbranch}) { } |
| 0 | T | F | elsif ($$item{$otherbranch}) { } |
| 1654 | 0 | T | F | if ($$item{'onloan'} and not C4::Members::GetHideLostItemsPreference($$userenv{'number'}) && $$item{'itemlost'}) { } |
| 1658 | 0 | T | F | if $$item{$hbranch} |
| 1664 | 0 | T | F | if ($$item{'itemlost'}) { } |
| 1676 | 0 | T | F | if ($$item{'notforloan'} == -1) |
| 1688 | 0 | T | F | unless ($$item{'wthdrawn'} or $$item{'itemlost'} or $$item{'damaged'} or $$item{'notforloan'} or $items_count > 20) |
| 1711 | 0 | T | F | if ($$item{'wthdrawn'} or $$item{'itemlost'} or $$item{'damaged'} or $$item{'notforloan'} > 0 or $$item{'hideatopac'} or $reservestatus eq 'Waiting' or $transfertwhen ne '') { } |
| 1719 | 0 | T | F | if $$item{'wthdrawn'} |
| 1720 | 0 | T | F | if $$item{'itemlost'} |
| 1721 | 0 | T | F | if $$item{'damaged'} |
| 1722 | 0 | T | F | if $$item{'hideatopac'} |
| 1723 | 0 | T | F | if $transfertwhen ne '' |
| 1724 | 0 | T | F | if $reservestatus eq 'Waiting' |
| 1728 | 0 | T | F | if (!$$item{'damaged'} || 'C4::Context'->preference('AllowHoldsOnDamagedItems') and not $$item{'itemlost'} and not $$item{'withdrawn'}) |
| 1741 | 0 | T | F | $transfertwhen ne '' ? : |
| 1742 | 0 | T | F | $reservestatus ? : |
| 1743 | 0 | T | F | if $notforloan_authorised_value |
| 1744 | 0 | T | F | if $$item{$hbranch} |
| 1752 | 0 | T | F | if $$item{$hbranch} |
| 1761 | 0 | T | F | if ($items_count > 0) |
| 1762 | 0 | T | F | if $is_opac and $hideatopac_count >= $items_count |
| 1763 | 0 | T | F | if $hidelostitems and $itemlost_count >= $items_count |
| 1767 | 0 | T | F | if ++$onloanitemscount > $maxitems |
| 1771 | 0 | T | F | if ++$otheritemscount > $maxitems |
| 1775 | 0 | T | F | if ++$availableitemscount > $maxitems |
| 1780 | 0 | T | F | if (not 'C4::Context'->preference('item-level_itypes')) |
| 1781 | 0 | T | F | if ($itemtypes{$$oldbiblio{'itemtype'}}{'notforloan'}) |
| 1785 | 0 | T | F | unless $can_place_holds |
| 1786 | 0 | T | F | if $items_count > 1 |
| 1792 | 0 | T | F | if $available_count > 1 |
| 1794 | 0 | T | F | if $onloan_count > 1 |
| 1796 | 0 | T | F | if $other_count > 1 |
| 1806 | 0 | T | F | if ('C4::Context'->preference('AlternateHoldingsField') and $items_count == 0) |
| 1818 | 0 | T | F | if (index($subfields, $$subfield[0]) >= 0) |
| 1819 | 0 | T | F | if length $holding{'holding'} > 0 |
| 1824 | 0 | T | F | if ($havesubfield) |
| 1835 | 0 | T | F | if (not $scan and $search_context eq 'opac' and 'C4::Context'->preference('OPACXSLTResultsDisplay')) |
| 1837 | 0 | T | F | if $debug |
| 1879 | 0 | T | F | if (scalar @$itemtypes > 0 and $criteria ne 'itemtype') |
| 1880 | 0 | T | F | if ('C4::Context'->preference('item-level_itypes')) { } |
| 1888 | 0 | T | F | if ($criteria =~ /itemtype/) { } |
| 0 | T | F | elsif ($criteria =~ /itemcallnumber/) { } |
| 1889 | 0 | T | F | if ('C4::Context'->preference('item-level_itypes')) { } |
| 1895 | 0 | T | F | if (scalar @$itemtypes == 0) |
| 1908 | 0 | T | F | unless scalar @loopcriteria > 0 |
| 1911 | 0 | T | F | unless scalar @loopcriteria > 0 |
| 1914 | 0 | T | F | if ($orderby =~ /date_desc/) { } |
| 1931 | 0 | T | F | if ($@) { } |
| 1939 | 0 | T | F | if scalar @{$cell{'loopdata'};} > 0 |
| 1962 | 0 | T | F | if $DEBUG |
| 1964 | 0 | T | F | if $DEBUG |
| 1982 | 0 | T | F | if $DEBUG |
| 1987 | 0 | T | F | unless $server |
| 1991 | 0 | T | F | if ($string =~ /"/) |
| 1994 | 0 | T | F | if $DEBUG |
| 2005 | 0 | T | F | if ($string =~ /^\s*\((.*)\)(( and | or | not | AND | OR | NOT )(.*))?/) |
| 2009 | 0 | T | F | if $DEBUG |
| 2013 | 0 | T | F | if ($operator) { } |
| 2019 | 0 | T | F | if ($operator eq ' and ') { } |
| 0 | T | F | elsif ($operator eq ' or ') { } |
| 0 | T | F | elsif ($operator eq ' not ') { } |
| 2036 | 0 | T | F | if $DEBUG |
| 2040 | 0 | T | F | if ($string =~ /(.*?)( and | or | not | AND | OR | NOT )(.*)/) |
| 2045 | 0 | T | F | if $DEBUG |
| 2049 | 0 | T | F | if ($operator) { } |
| 2052 | 0 | T | F | if $commacontent |
| 2053 | 0 | T | F | if $commacontent |
| 2054 | 0 | T | F | if $DEBUG |
| 2057 | 0 | T | F | if $DEBUG |
| 2058 | 0 | T | F | if $DEBUG |
| 2062 | 0 | T | F | if ($operator eq ' and ') { } |
| 0 | T | F | elsif ($operator eq ' or ') { } |
| 0 | T | F | elsif ($operator eq ' not ') { } |
| 2082 | 0 | T | F | if $commacontent |
| 2086 | 0 | T | F | if $DEBUG |
| 2092 | 0 | T | F | if ($string =~ /(.*)(>=|<=)(.*)/) { } |
| 2101 | 0 | T | F | unless ($operator) |
| 2102 | 0 | T | F | if ($string =~ /(.*)(>|<|=)(.*)/) { } |
| 2106 | 0 | T | F | if $DEBUG |
| 2119 | 0 | T | F | if $left =~ /^ti$/ |
| 2120 | 0 | T | F | if $left =~ /^au$/ |
| 2121 | 0 | T | F | if $left =~ /^pb$/ |
| 2122 | 0 | T | F | if $left =~ /^su$/ |
| 2123 | 0 | T | F | if $left =~ /^an$/ |
| 2124 | 0 | T | F | if $left =~ /^kw$/ |
| 2125 | 0 | T | F | if $left =~ /^mc$/ |
| 2126 | 0 | T | F | if $DEBUG |
| 2128 | 0 | T | F | if ($operator and $left ne 'keyword') { } |
| 2130 | 0 | T | F | if $operator eq '=' and $right =~ /%/ |
| 2134 | 0 | T | F | if $DEBUG |
| 2142 | 0 | T | F | unless $_ |
| 2143 | 0 | T | F | if $DEBUG |
| 2144 | 0 | T | F | unless $sth->execute($server, $left, $_) |
| 2150 | 0 | T | F | unless $right =~ /^\d+$/ and $value =~ /\D/ |
| 2152 | 0 | T | F | $value =~ /\D/ ? : |
| 0 | T | F | if $DEBUG |
| 2158 | 0 | T | F | if ($results) { } |
| 2159 | 0 | T | F | if $DEBUG |
| 2174 | 0 | T | F | if 'C4::Context'->stopwords->{uc $_} |
| 2175 | 0 | T | F | if $DEBUG |
| 2177 | 0 | T | F | unless $_ |
| 2184 | 0 | T | F | if ($results) { } |
| 2188 | 0 | T | F | if $DEBUG |
| 2193 | 0 | T | F | if $DEBUG |
| 2196 | 0 | T | F | if $DEBUG |
| 2203 | 0 | T | F | if $DEBUG |
| 2215 | 0 | T | F | if $value =~ /(.*)-(\d+)$/ |
| 2216 | 0 | T | F | if ($rightresult =~ /\Q$value\E-(\d+);/) |
| 2217 | 0 | T | F | $1 > $countvalue ? : |
| 2222 | 0 | T | F | if $DEBUG |
| 2240 | 0 | T | F | if $value =~ /(.*)-\d+$/ |
| 2241 | 0 | T | F | unless ($rightresult =~ "$value-") |
| 2258 | 0 | T | F | if $DEBUG |
| 2262 | 0 | T | F | unless $results_per_page |
| 2263 | 0 | T | F | unless $offset |
| 2269 | 0 | T | F | if ($ordering =~ /popularity/) { } |
| 0 | T | F | elsif ($ordering =~ /author/) { } |
| 0 | T | F | elsif ($ordering =~ /callnumber/) { } |
| 0 | T | F | elsif ($ordering =~ /pubdate/) { } |
| 0 | T | F | elsif ($ordering =~ /title/) { } |
| 2293 | 0 | T | F | if ($ordering eq 'popularity_dsc') { } |
| 2320 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 2322 | 0 | T | F | unless $author |
| 2336 | 0 | T | F | if ($ordering eq 'author_za' or $ordering eq 'author_dsc') { } |
| 2365 | 0 | T | F | unless $callnumber_tag |
| 2367 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 2381 | 0 | T | F | if ($ordering eq 'call_number_dsc') { } |
| 2417 | 0 | T | F | if ($ordering eq 'pubdate_dsc') { } |
| 2455 | 0 | T | F | if ($ordering eq 'title_az') { } |
| 2467 | 0 | T | F | if $numbers < $results_per_page |
| 2521 | 0 | T | F | if $numbers < $results_per_page |
| 2531 | 0 | T | F | if $$result_hash{'RECORDS'}[$counter] |
| 2644 | 0 | T | F | if (defined $isbn and $isbn->is_valid) { } |
| 2646 | 0 | T | F | if not ref $bibrec |
| 2649 | 0 | T | F | if not ref $bibrec |
| 2655 | 0 | T | F | if defined $$bibrec{$field} |
| 2706 | 0 | T | F | if $field->subfield('3') or $field->subfield('9') |
| 2710 | 0 | T | F | if $$_[0] =~ /[A-z]/ |
| 2713 | 0 | T | F | if ($error) |
| 2717 | 0 | T | F | if (@{$results;} == 1) { } |
| 0 | T | F | elsif (@{$results;} > 1) { } |
| 2732 | 0 | T | F | unless $authtypedata |
| 2735 | 0 | T | F | if $$_[0] =~ /[A-z]/ and $$_[0] ne 'a' |
| 2744 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'MARC21') |
| 2768 | 0 | T | F | if ($fieldname =~ /\./) { } |
| 2771 | 0 | T | F | if $DEBUG |
| 2772 | 0 | T | F | $string ? : |
| 2792 | 0 | T | F | if ($ev == ZOOM::Event::ZEND()) |
| 2793 | 0 | T | F | unless $results[$i - 1] |
| 2795 | 0 | T | F | if ($size > 0) |