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

(-)a/Koha/Illrequest/Config.pm (-2 / +3 lines)
Lines 113-124 will filter those backends down to only those present in the list. Link Here
113
=cut
113
=cut
114
114
115
sub available_backends {
115
sub available_backends {
116
    my ( $self, $reduce ) = @_;
116
    my ( $self ) = @_;
117
    my $reduced  = C4::Context->preference('ILLOpacbackends');
117
    my $backend_dir = $self->backend_dir;
118
    my $backend_dir = $self->backend_dir;
118
    my @backends = ();
119
    my @backends = ();
119
    @backends = glob "$backend_dir/*" if ( $backend_dir );
120
    @backends = glob "$backend_dir/*" if ( $backend_dir );
120
    @backends = map { basename($_) } @backends;
121
    @backends = map { basename($_) } @backends;
121
    @backends = grep { $_ =~ /$reduce/ } @backends if $reduce;
122
    @backends = grep { $_ =~ /$reduced/ } @backends if $reduced;
122
    return \@backends;
123
    return \@backends;
123
}
124
}
124
125
(-)a/opac/opac-illrequests.pl (-5 / +3 lines)
Lines 50-57 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
50
});
50
});
51
51
52
# Are we able to actually work?
52
# Are we able to actually work?
53
my $reduced  = C4::Context->preference('ILLOpacbackends');
53
my $backends = Koha::Illrequest::Config->new->available_backends;
54
my $backends = Koha::Illrequest::Config->new->available_backends($reduced);
55
my $backends_available = ( scalar @{$backends} > 0 );
54
my $backends_available = ( scalar @{$backends} > 0 );
56
$template->param( backends_available => $backends_available );
55
$template->param( backends_available => $backends_available );
57
56
Lines 65-71 if ( $op eq 'list' ) { Link Here
65
    my $req = Koha::Illrequest->new;
64
    my $req = Koha::Illrequest->new;
66
    $template->param(
65
    $template->param(
67
        requests => $requests,
66
        requests => $requests,
68
        backends    => $req->available_backends
67
        backends => $backends
69
    );
68
    );
70
69
71
} elsif ( $op eq 'view') {
70
} elsif ( $op eq 'view') {
Lines 105-111 if ( $op eq 'list' ) { Link Here
105
    if (!$params->{backend}) {
104
    if (!$params->{backend}) {
106
        my $req = Koha::Illrequest->new;
105
        my $req = Koha::Illrequest->new;
107
        $template->param(
106
        $template->param(
108
            backends    => $req->available_backends
107
            backends    => $backends
109
        );
108
        );
110
    } else {
109
    } else {
111
        my $request = Koha::Illrequest->new
110
        my $request = Koha::Illrequest->new
112
- 

Return to bug 20639