View | Details | Raw Unified | Return to bug 7847
Collapse All | Expand All

(-)a/C4/Items.pm (-1 / +1 lines)
Lines 30-36 use MARC::Record; Link Here
30
use C4::ClassSource;
30
use C4::ClassSource;
31
use C4::Log;
31
use C4::Log;
32
use List::MoreUtils qw/any/;
32
use List::MoreUtils qw/any/;
33
use C4::Search;
34
use Data::Dumper; # used as part of logging item record changes, not just for
33
use Data::Dumper; # used as part of logging item record changes, not just for
35
                  # debugging; so please don't remove this
34
                  # debugging; so please don't remove this
36
35
Lines 2481-2486 counts Usage of itemnumber in Analytical bibliorecords. Link Here
2481
2480
2482
sub GetAnalyticsCount {
2481
sub GetAnalyticsCount {
2483
    my ($itemnumber) = @_;
2482
    my ($itemnumber) = @_;
2483
    require C4::Search;
2484
    if (C4::Context->preference('NoZebra')) {
2484
    if (C4::Context->preference('NoZebra')) {
2485
        # Read the index Koha-Auth-Number for this authid and count the lines
2485
        # Read the index Koha-Auth-Number for this authid and count the lines
2486
        my $result = C4::Search::NZanalyse("hi=$itemnumber");
2486
        my $result = C4::Search::NZanalyse("hi=$itemnumber");
(-)a/C4/Search.pm (-5 / +5 lines)
Lines 30-36 use C4::XSLT; Link Here
30
use C4::Branch;
30
use C4::Branch;
31
use C4::Reserves;    # CheckReserves
31
use C4::Reserves;    # CheckReserves
32
use C4::Debug;
32
use C4::Debug;
33
use C4::Items;
34
use C4::Charset;
33
use C4::Charset;
35
use YAML;
34
use YAML;
36
use URI::Escape;
35
use URI::Escape;
Lines 1418-1423 sub searchResults { Link Here
1418
    my $dbh = C4::Context->dbh;
1417
    my $dbh = C4::Context->dbh;
1419
    my @newresults;
1418
    my @newresults;
1420
1419
1420
    require C4::Items;
1421
1421
    $search_context = 'opac' if !$search_context || $search_context ne 'intranet';
1422
    $search_context = 'opac' if !$search_context || $search_context ne 'intranet';
1422
    my ($is_opac, $hidelostitems);
1423
    my ($is_opac, $hidelostitems);
1423
    if ($search_context eq 'opac') {
1424
    if ($search_context eq 'opac') {
Lines 1631-1639 sub searchResults { Link Here
1631
1632
1632
	        # Hidden items
1633
	        # Hidden items
1633
            if ($is_opac) {
1634
            if ($is_opac) {
1634
	            my @hi = GetHiddenItemnumbers($item);
1635
                my @hi = C4::Items::GetHiddenItemnumbers($item);
1635
	        $item->{'hideatopac'} = @hi;
1636
                $item->{'hideatopac'} = @hi;
1636
              push @hiddenitems, @hi;
1637
                push @hiddenitems, @hi;
1637
            }
1638
            }
1638
1639
1639
            my $hbranch     = C4::Context->preference('HomeOrHoldingBranch') eq 'homebranch' ? 'homebranch'    : 'holdingbranch';
1640
            my $hbranch     = C4::Context->preference('HomeOrHoldingBranch') eq 'homebranch' ? 'homebranch'    : 'holdingbranch';
1640
- 

Return to bug 7847