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

(-)a/Koha/ILL/Backends.pm (+23 lines)
Lines 19-24 package Koha::ILL::Backends; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Koha::ILL::Request::Config;
23
22
use base qw(Koha::Objects);
24
use base qw(Koha::Objects);
23
25
24
=head1 NAME
26
=head1 NAME
Lines 51-56 sub installed_backends { Link Here
51
    return \@installed;
53
    return \@installed;
52
}
54
}
53
55
56
=head3 opac_available_backends
57
58
Return a list of backends available in the OPAC
59
60
=cut
61
62
sub opac_available_backends {
63
    my ( $self, $loggedinuser ) = @_;
64
    my $reduced  = C4::Context->preference('ILLOpacbackends');
65
    my $backends = Koha::ILL::Request::Config->new->available_backends($reduced);
66
67
    if ( !$loggedinuser && C4::Context->preference('ILLOpacUnauthenticatedRequest') ) {
68
        foreach my $backend ( @{$backends} ) {
69
            my $loaded_b = Koha::ILL::Request->new->load_backend($backend);
70
            @$backends = grep { !/$backend/ } @$backends
71
                if ( $loaded_b->_backend_capability('opac_unauthenticated_ill_requests') == 0 );
72
        }
73
    }
74
    return $backends;
75
}
76
54
=head2 Internal methods
77
=head2 Internal methods
55
78
56
=head3 _type
79
=head3 _type
(-)a/opac/opac-illrequests.pl (-4 / +3 lines)
Lines 30-35 use POSIX qw( strftime ); Link Here
30
use Koha::ILL::Request::Config;
30
use Koha::ILL::Request::Config;
31
use Koha::ILL::Requests;
31
use Koha::ILL::Requests;
32
use Koha::ILL::Request;
32
use Koha::ILL::Request;
33
use Koha::ILL::Backends;
33
use Koha::Libraries;
34
use Koha::Libraries;
34
use Koha::Patrons;
35
use Koha::Patrons;
35
use Koha::ILL::Request::Workflow::Availability;
36
use Koha::ILL::Request::Workflow::Availability;
Lines 58-68 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
58
);
59
);
59
60
60
# Are we able to actually work?
61
# Are we able to actually work?
61
my $reduced            = C4::Context->preference('ILLOpacbackends');
62
my $patron             = Koha::Patrons->find($loggedinuser);
62
my $backends           = Koha::ILL::Request::Config->new->available_backends($reduced);
63
my $backends           = Koha::ILL::Backends->opac_available_backends($patron);
63
my $backends_available = ( scalar @{$backends} > 0 );
64
my $backends_available = ( scalar @{$backends} > 0 );
64
$template->param( backends_available => $backends_available );
65
$template->param( backends_available => $backends_available );
65
my $patron = Koha::Patrons->find($loggedinuser);
66
66
67
my $op = Koha::ILL::Request->get_op_param_deprecation( 'opac', $params );
67
my $op = Koha::ILL::Request->get_op_param_deprecation( 'opac', $params );
68
68
69
- 

Return to bug 36197