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

(-)a/misc/admin/koha-preferences (-9 / +4 lines)
Lines 21-31 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use Koha::Script;
22
use Koha::Script;
23
use C4::Context;
23
use C4::Context;
24
use C4::Debug;
25
use C4::Log;
24
use C4::Log;
26
use Getopt::Long;
25
use Getopt::Long;
27
use Pod::Usage;
26
use Pod::Usage;
28
use YAML::XS;
27
use YAML::XS;
28
29
use Koha::Logger;
30
29
our %NOT_SET_PREFS = map { $_, 1 } qw( Version );
31
our %NOT_SET_PREFS = map { $_, 1 } qw( Version );
30
32
31
=head1 NAME
33
=head1 NAME
Lines 48-63 sub print_usage { Link Here
48
    }
50
    }
49
}
51
}
50
52
51
sub _debug {
52
    my ( $message ) = @_;
53
54
    print STDERR $message . "\n" if ( $C4::Debug::debug );
55
}
56
57
sub _set_preference {
53
sub _set_preference {
58
    my ( $preference, $value ) = @_;
54
    my ( $preference, $value ) = @_;
59
55
60
    _debug( "Setting $preference to $value" );
56
    Koha::Logger->get->debug($message);
61
57
62
    if (   $preference->{type} eq 'YesNo'
58
    if (   $preference->{type} eq 'YesNo'
63
        && $value ne '0'
59
        && $value ne '0'
64
- 

Return to bug 28572