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

(-)a/opac/ilsdi.pl (-6 / +4 lines)
Lines 17-31 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
23
use List::MoreUtils qw(any);
24
21
25
use C4::ILSDI::Services;
22
use C4::ILSDI::Services;
26
use C4::Auth;
23
use C4::Auth;
27
use C4::Output;
24
use C4::Output;
28
use C4::Context;
25
use C4::Context;
26
27
use List::MoreUtils qw(any);
29
use XML::Simple;
28
use XML::Simple;
30
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
31
30
Lines 217-223 if ( $service and any { $service eq $_ } @services ) { Link Here
217
216
218
            # Variable functions
217
            # Variable functions
219
            my $sub = do {
218
            my $sub = do {
220
                no strict 'refs';
219
#                no strict 'refs';
221
                my $symbol = 'C4::ILSDI::Services::' . $service;
220
                my $symbol = 'C4::ILSDI::Services::' . $service;
222
                \&{"$symbol"};
221
                \&{"$symbol"};
223
            };
222
            };
224
- 

Return to bug 6679