| line | % | coverage | branch |
|---|
| 44 | 50 | T | F | $ENV{'DEBUG'} ? : |
| 99 | 0 | T | F | if ($$result{'isbn'}) { } |
| 114 | 0 | T | F | if $$result{'itemtype'} |
| 116 | 0 | T | F | if ($$result{'author'}) |
| 130 | 0 | T | F | if (not defined $error) |
| 137 | 0 | T | F | if ($result) |
| 211 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) { } |
| 213 | 0 | T | F | $$result{'hits'} && $$result{'hits'} > 0 ? : |
| 219 | 0 | T | F | unless $query |
| 221 | 0 | T | F | defined $servers ? : |
| 242 | 0 | T | F | if $zconns[$i]->errcode |
| 244 | 0 | T | F | if ($@) |
| 258 | 0 | T | F | if ($event == ZOOM::Event::ZEND()) |
| 260 | 0 | T | F | defined $offset ? : |
| 264 | 0 | T | F | if (defined $max_results and $offset + $max_results < $hits) |
| 332 | 0 | T | F | $servers[$i] =~ /biblioserver/ ? : |
| 335 | 0 | T | F | if $scan and $DEBUG |
| 339 | 0 | T | F | if ($query_type) { } |
| 0 | T | F | elsif ($scan) { } |
| 340 | 0 | T | F | if ($query_type =~ /^ccl/) { } |
| 0 | T | F | elsif ($query_type =~ /^cql/) { } |
| 0 | T | F | elsif ($query_type =~ /^pqf/) { } |
| 356 | 0 | T | F | if ($@) |
| 364 | 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') { } |
| 401 | 0 | T | F | if $sort_by |
| 404 | 0 | T | F | if ($sort_by and not $scan) |
| 405 | 0 | T | F | if ($results[$i]->sort('yaz', $sort_by) < 0) |
| 414 | 0 | T | F | if ($ev == ZOOM::Event::ZEND()) |
| 415 | 0 | T | F | unless $results[$i - 1] |
| 417 | 0 | T | F | if ($size > 0) |
| 423 | 0 | T | F | if ($offset + $results_per_page <= $size) { } |
| 434 | 0 | T | F | if ($scan) { } |
| 446 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 470 | 0 | T | F | if (not $scan and $servers[$i - 1] =~ /biblioserver/) |
| 472 | 0 | T | F | $size > $facets_maxrecs ? : |
| 487 | 0 | T | F | if ($letters =~ /$subf[$i]/) |
| 495 | 0 | T | F | unless ($data ~~ \@used_datas) |
| 512 | 0 | T | F | if ($servers[$i - 1] =~ /biblioserver/) |
| 528 | 0 | T | F | if ($number_of_facets < 6 or $expanded_facet eq $link_value or $$facets_info{$link_value}{'expanded'}) |
| 541 | 0 | T | F | if length $facet_label_value > $facet_max_length |
| 546 | 0 | T | F | if ($link_value =~ /branch/) |
| 547 | 0 | T | F | if (defined $branches and ref $branches eq 'HASH' and defined $$branches{$one_facet} and ref $$branches{$one_facet} eq 'HASH') { } |
| 572 | 0 | T | F | unless ($$facets_info{$link_value}{'expanded'}) |
| 573 | 0 | T | F | if $number_of_facets > 6 and $expanded_facet ne $link_value |
| 577 | 0 | T | F | unless $$facets_info{$link_value}{'label_value'} =~ /Libraries/ and 'C4::Context'->preference('singleBranchMode') |
| 620 | 0 | T | F | if (exists $$hit{'md-work-author'}) |
| 623 | 0 | T | F | defined $work_author ? : |
| 630 | 0 | T | F | if (exists $$hit{'count'}) |
| 671 | 0 | T | F | if (not $index =~ /phr|ext/) |
| 679 | 0 | T | F | if $_ =~ /(and|or|not)/ |
| 680 | 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) |
| 699 | 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) { } |
| 732 | 0 | T | F | if $operand =~ /\d/ |
| 743 | 0 | T | F | unless $stem =~ /(and$|or$|not$)/ or length $stem < 3 |
| 747 | 0 | T | F | if $DEBUG |
| 764 | 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 =~ /,/) { } |
| 771 | 0 | T | F | if $fuzzy_enabled |
| 773 | 0 | T | F | if $stemming and $stemmed_operand |
| 1033 | 0 | T | F | if $DEBUG |
| 1036 | 0 | T | F | $operators ? : |
| 1037 | 0 | T | F | $indexes ? : |
| 1038 | 0 | T | F | $operands ? : |
| 1039 | 0 | T | F | $limits ? : |
| 1040 | 0 | T | F | $sort_by ? : |
| 1049 | 0 | T | F | if ('C4::Context'->preference('NoZebra')) |
| 1072 | 0 | T | F | if (not $query =~ /\s*ccl=/) |
| 1077 | 0 | T | F | if $cclq |
| 1082 | 0 | T | F | if ($query =~ /^ccl=/) |
| 1086 | 0 | T | F | if (@limits) |
| 1091 | 0 | T | F | if ($query =~ /^cql=/) |
| 1094 | 0 | T | F | if ($query =~ /^pqf=/) { } |
| 1124 | 0 | T | F | if ($operands[$i]) |
| 1131 | 0 | T | F | if ($operands[$i] =~ /\w(:|=)/ or $scan) { } |
| 1143 | 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') { } |
| 1165 | 0 | T | F | if (not $index) |
| 1171 | 0 | T | F | unless ($indexes_set or not $index or $index =~ /(st-|phr|ext|wrdl|nb|ns)/) |
| 1180 | 0 | T | F | if ($remove_stopwords) |
| 1183 | 0 | T | F | if $DEBUG |
| 1184 | 0 | T | F | if $stopwords_removed and $DEBUG |
| 1188 | 0 | T | F | if ($auto_truncation) |
| 1189 | 0 | T | F | unless ($index =~ /(st-|phr|ext)/) |
| 1191 | 0 | T | F | index($_, '*') > 0 ? : |
| 1194 | 0 | T | F | if $DEBUG |
| 1203 | 0 | T | F | if $DEBUG |
| 1208 | 0 | T | F | if (scalar(@$righttruncated) + scalar(@$lefttruncated) + scalar(@$rightlefttruncated) > 0) |
| 1217 | 0 | T | F | if (scalar @$nontruncated) |
| 1221 | 0 | T | F | if (scalar @$righttruncated) |
| 1222 | 0 | T | F | if $previous_truncation_operand |
| 1226 | 0 | T | F | if (scalar @$lefttruncated) |
| 1227 | 0 | T | F | if $previous_truncation_operand |
| 1231 | 0 | T | F | if (scalar @$rightlefttruncated) |
| 1232 | 0 | T | F | if $previous_truncation_operand |
| 1237 | 0 | T | F | if $truncated_operand |
| 1238 | 0 | T | F | if $DEBUG |
| 1242 | 0 | T | F | if $stemming |
| 1245 | 0 | T | F | if $DEBUG |
| 1249 | 0 | T | F | if ($weight_fields) |
| 1255 | 0 | T | F | if $DEBUG |
| 1258 | 0 | T | F | if ($previous_operand) { } |
| 1261 | 0 | T | F | if ($operators[$i - 1]) { } |
| 1263 | 0 | T | F | unless $indexes_set |
| 1266 | 0 | T | F | if $index |
| 1267 | 0 | T | F | if $operands[$i] |
| 1275 | 0 | T | F | unless $indexes_set |
| 1277 | 0 | T | F | if $index |
| 1278 | 0 | T | F | if $operands[$i] |
| 1287 | 0 | T | F | unless $indexes_set |
| 1290 | 0 | T | F | if $index |
| 1291 | 0 | T | F | if $operands[$i] |
| 1297 | 0 | T | F | if $DEBUG |
| 1303 | 0 | T | F | if ($this_limit =~ /available/) { } |
| 0 | T | F | elsif ($this_limit =~ /mc/) { } |
| 1318 | 0 | T | F | if (not $k =~ /mc-i(tem)?type/) |
| 1324 | 0 | T | F | if $group_OR_limits{$k} |
| 1325 | 0 | T | F | if $group_OR_limits{$k} |
| 1333 | 0 | T | F | if $limit or $query |
| 1336 | 0 | T | F | if ($this_limit =~ /^branch:(.+)/) { } |
| 1339 | 0 | T | F | if (defined $branchname) { } |
| 1350 | 0 | T | F | if $query or $limit |
| 1353 | 0 | T | F | if ($availability_limit) |
| 1354 | 0 | T | F | if $query or $limit |
| 1381 | 0 | T | F | if ($DEBUG) |
| 1414 | 0 | T | F | if not $search_context or $search_context ne 'intranet' |
| 1416 | 0 | T | F | if ($search_context eq 'opac') |
| 1472 | 0 | T | F | if ($hits and $offset + $results_per_page <= $hits) { } |
| 1486 | 0 | T | F | $bibliotag < 10 ? : |
| 0 | T | F | $scan ? : |
| 1498 | 0 | T | F | $search_context eq 'opac' && 'C4::Context'->preference('AuthorisedValueImages') || $search_context eq 'intranet' && 'C4::Context'->preference('StaffAuthorisedValueImages') ? : |
| 1503 | 0 | T | F | if $$oldbiblio{'normalized_isbn'} or $$oldbiblio{'normalized_oclc'} or $$oldbiblio{'normalized_ean'} or $$oldbiblio{'normalized_upc'} |
| 1510 | 0 | T | F | if ($itemtypes{$$oldbiblio{'itemtype'}}{'summary'}) |
| 1519 | 0 | T | F | if ($marcrecord->field($1)) |
| 1528 | 0 | T | F | if $$tags{$tag} > $max |
| 1538 | 0 | T | F | if ($marcrecord->field($1)) |
| 1542 | 0 | T | F | if (not utf8::is_utf8($subfieldvalue)) |
| 1563 | 0 | T | F | if ($marcflavor eq 'MARC21' or $marcflavor eq 'NORMARC') { } |
| 0 | T | F | elsif ($marcflavor eq 'UNIMARC') { } |
| 1571 | 0 | T | F | if (!$hostbiblionumber eq undef) |
| 1574 | 0 | T | F | if (!$hostbiblio eq undef) |
| 1577 | 0 | T | F | if ($hostitem->subfield('9') eq $linkeditemnumber) |
| 1580 | 0 | T | F | if (!$linkeditem eq undef) |
| 1612 | 0 | T | F | $maxitems_pref ? : |
| 1626 | 0 | T | F | if ($is_opac) |
| 1632 | 0 | T | F | 'C4::Context'->preference('HomeOrHoldingBranch') eq 'homebranch' ? : |
| 1633 | 0 | T | F | 'C4::Context'->preference('HomeOrHoldingBranch') eq 'homebranch' ? : |
| 1636 | 0 | T | F | if ($$item{$hbranch}) { } |
| 0 | T | F | elsif ($$item{$otherbranch}) { } |
| 1646 | 0 | T | F | if ($$item{'onloan'} and not C4::Members::GetHideLostItemsPreference($$userenv{'number'}) && $$item{'itemlost'}) { } |
| 1650 | 0 | T | F | if $$item{$hbranch} |
| 1657 | 0 | T | F | if ($$item{'itemlost'}) { } |
| 1669 | 0 | T | F | if ($$item{'notforloan'} == -1) |
| 1681 | 0 | T | F | unless ($$item{'wthdrawn'} or $$item{'itemlost'} or $$item{'damaged'} or $$item{'notforloan'} or $items_count > 20) |
| 1704 | 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 '') { } |
| 1712 | 0 | T | F | if $$item{'wthdrawn'} |
| 1713 | 0 | T | F | if $$item{'itemlost'} |
| 1714 | 0 | T | F | if $$item{'damaged'} |
| 1715 | 0 | T | F | if $$item{'hideatopac'} |
| 1716 | 0 | T | F | if $transfertwhen ne '' |
| 1717 | 0 | T | F | if $reservestatus eq 'Waiting' |
| 1721 | 0 | T | F | if (!$$item{'damaged'} || 'C4::Context'->preference('AllowHoldsOnDamagedItems') and not $$item{'itemlost'} and not $$item{'withdrawn'}) |
| 1734 | 0 | T | F | $transfertwhen ne '' ? : |
| 1735 | 0 | T | F | $reservestatus ? : |
| 1736 | 0 | T | F | if $notforloan_authorised_value |
| 1737 | 0 | T | F | if $$item{$hbranch} |
| 1746 | 0 | T | F | if $$item{$hbranch} |
| 1755 | 0 | T | F | if ($items_count > 0) |
| 1756 | 0 | T | F | if $is_opac and $hideatopac_count >= $items_count |
| 1757 | 0 | T | F | if $hidelostitems and $itemlost_count >= $items_count |
| 1761 | 0 | T | F | if ++$onloanitemscount > $maxitems |
| 1765 | 0 | T | F | if ++$otheritemscount > $maxitems |
| 1769 | 0 | T | F | if ++$availableitemscount > $maxitems |
| 1776 | 0 | T | F | if $debug |
| 1777 | 0 | T | F | $search_context eq 'opac' ? : |
| 1778 | 0 | T | F | if (not $scan and 'C4::Context'->preference($interface . 'XSLTResultsDisplay')) |
| 1785 | 0 | T | F | if (not 'C4::Context'->preference('item-level_itypes')) |
| 1786 | 0 | T | F | if ($itemtypes{$$oldbiblio{'itemtype'}}{'notforloan'}) |
| 1790 | 0 | T | F | unless $can_place_holds |
| 1791 | 0 | T | F | if $items_count > 1 |
| 1797 | 0 | T | F | if $available_count > 1 |
| 1799 | 0 | T | F | if $onloan_count > 1 |
| 1801 | 0 | T | F | if $other_count > 1 |
| 1811 | 0 | T | F | if ('C4::Context'->preference('AlternateHoldingsField') and $items_count == 0) |
| 1823 | 0 | T | F | if (index($subfields, $$subfield[0]) >= 0) |
| 1824 | 0 | T | F | if length $holding{'holding'} > 0 |
| 1829 | 0 | T | F | if ($havesubfield) |
| 1867 | 0 | T | F | if (scalar @$itemtypes > 0 and $criteria ne 'itemtype') |
| 1868 | 0 | T | F | if ('C4::Context'->preference('item-level_itypes')) { } |
| 1876 | 0 | T | F | if ($criteria =~ /itemtype/) { } |
| 0 | T | F | elsif ($criteria =~ /itemcallnumber/) { } |
| 1877 | 0 | T | F | if ('C4::Context'->preference('item-level_itypes')) { } |
| 1883 | 0 | T | F | if (scalar @$itemtypes == 0) |
| 1896 | 0 | T | F | unless scalar @loopcriteria > 0 |
| 1899 | 0 | T | F | unless scalar @loopcriteria > 0 |
| 1902 | 0 | T | F | if ($orderby =~ /date_desc/) { } |
| 1919 | 0 | T | F | if ($@) { } |
| 1927 | 0 | T | F | if scalar @{$cell{'loopdata'};} > 0 |
| 1950 | 0 | T | F | if $DEBUG |
| 1952 | 0 | T | F | if $DEBUG |
| 1970 | 0 | T | F | if $DEBUG |
| 1975 | 0 | T | F | unless $server |
| 1979 | 0 | T | F | if ($string =~ /"/) |
| 1982 | 0 | T | F | if $DEBUG |
| 1993 | 0 | T | F | if ($string =~ /^\s*\((.*)\)(( and | or | not | AND | OR | NOT )(.*))?/) |
| 1997 | 0 | T | F | if $DEBUG |
| 2001 | 0 | T | F | if ($operator) { } |
| 2007 | 0 | T | F | if ($operator eq ' and ') { } |
| 0 | T | F | elsif ($operator eq ' or ') { } |
| 0 | T | F | elsif ($operator eq ' not ') { } |
| 2024 | 0 | T | F | if $DEBUG |
| 2028 | 0 | T | F | if ($string =~ /(.*?)( and | or | not | AND | OR | NOT )(.*)/) |
| 2033 | 0 | T | F | if $DEBUG |
| 2037 | 0 | T | F | if ($operator) { } |
| 2040 | 0 | T | F | if $commacontent |
| 2041 | 0 | T | F | if $commacontent |
| 2042 | 0 | T | F | if $DEBUG |
| 2045 | 0 | T | F | if $DEBUG |
| 2046 | 0 | T | F | if $DEBUG |
| 2050 | 0 | T | F | if ($operator eq ' and ') { } |
| 0 | T | F | elsif ($operator eq ' or ') { } |
| 0 | T | F | elsif ($operator eq ' not ') { } |
| 2070 | 0 | T | F | if $commacontent |
| 2074 | 0 | T | F | if $DEBUG |
| 2080 | 0 | T | F | if ($string =~ /(.*)(>=|<=)(.*)/) { } |
| 2089 | 0 | T | F | unless ($operator) |
| 2090 | 0 | T | F | if ($string =~ /(.*)(>|<|=)(.*)/) { } |
| 2094 | 0 | T | F | if $DEBUG |
| 2107 | 0 | T | F | if $left =~ /^ti$/ |
| 2108 | 0 | T | F | if $left =~ /^au$/ |
| 2109 | 0 | T | F | if $left =~ /^pb$/ |
| 2110 | 0 | T | F | if $left =~ /^su$/ |
| 2111 | 0 | T | F | if $left =~ /^an$/ |
| 2112 | 0 | T | F | if $left =~ /^kw$/ |
| 2113 | 0 | T | F | if $left =~ /^mc$/ |
| 2114 | 0 | T | F | if $DEBUG |
| 2116 | 0 | T | F | if ($operator and $left ne 'keyword') { } |
| 2118 | 0 | T | F | if $operator eq '=' and $right =~ /%/ |
| 2122 | 0 | T | F | if $DEBUG |
| 2130 | 0 | T | F | unless $_ |
| 2131 | 0 | T | F | if $DEBUG |
| 2132 | 0 | T | F | unless $sth->execute($server, $left, $_) |
| 2138 | 0 | T | F | unless $right =~ /^\d+$/ and $value =~ /\D/ |
| 2140 | 0 | T | F | $value =~ /\D/ ? : |
| 0 | T | F | if $DEBUG |
| 2146 | 0 | T | F | if ($results) { } |
| 2147 | 0 | T | F | if $DEBUG |
| 2162 | 0 | T | F | if 'C4::Context'->stopwords->{uc $_} |
| 2163 | 0 | T | F | if $DEBUG |
| 2165 | 0 | T | F | unless $_ |
| 2172 | 0 | T | F | if ($results) { } |
| 2176 | 0 | T | F | if $DEBUG |
| 2181 | 0 | T | F | if $DEBUG |
| 2184 | 0 | T | F | if $DEBUG |
| 2191 | 0 | T | F | if $DEBUG |
| 2203 | 0 | T | F | if $value =~ /(.*)-(\d+)$/ |
| 2204 | 0 | T | F | if ($rightresult =~ /\Q$value\E-(\d+);/) |
| 2205 | 0 | T | F | $1 > $countvalue ? : |
| 2210 | 0 | T | F | if $DEBUG |
| 2228 | 0 | T | F | if $value =~ /(.*)-\d+$/ |
| 2229 | 0 | T | F | unless ($rightresult =~ "$value-") |
| 2246 | 0 | T | F | if $DEBUG |
| 2250 | 0 | T | F | unless $results_per_page |
| 2251 | 0 | T | F | unless $offset |
| 2257 | 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/) { } |
| 2281 | 0 | T | F | if ($ordering eq 'popularity_dsc') { } |
| 2308 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 2310 | 0 | T | F | unless $author |
| 2324 | 0 | T | F | if ($ordering eq 'author_za' or $ordering eq 'author_dsc') { } |
| 2353 | 0 | T | F | unless $callnumber_tag |
| 2355 | 0 | T | F | if ('C4::Context'->preference('marcflavour') eq 'UNIMARC') { } |
| 2369 | 0 | T | F | if ($ordering eq 'call_number_dsc') { } |
| 2405 | 0 | T | F | if ($ordering eq 'pubdate_dsc') { } |
| 2443 | 0 | T | F | if ($ordering eq 'title_az') { } |
| 2455 | 0 | T | F | if $numbers < $results_per_page |
| 2509 | 0 | T | F | if $numbers < $results_per_page |
| 2519 | 0 | T | F | if $$result_hash{'RECORDS'}[$counter] |
| 2632 | 0 | T | F | if (defined $isbn and $isbn->is_valid) { } |
| 2634 | 0 | T | F | if not ref $bibrec |
| 2637 | 0 | T | F | if not ref $bibrec |
| 2643 | 0 | T | F | if defined $$bibrec{$field} |
| 2657 | 0 | T | F | if ($fieldname =~ /\./) { } |
| 2660 | 0 | T | F | if $DEBUG |
| 2661 | 0 | T | F | $string ? : |
| 2681 | 0 | T | F | if ($ev == ZOOM::Event::ZEND()) |
| 2682 | 0 | T | F | unless $results[$i - 1] |
| 2684 | 0 | T | F | if ($size > 0) |