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

(-)a/misc/admin/koha-preferences (-7 / +1 lines)
Lines 26-32 use C4::Log; Link Here
26
use Getopt::Long;
26
use Getopt::Long;
27
use Pod::Usage;
27
use Pod::Usage;
28
use YAML::XS;
28
use YAML::XS;
29
use Encode;
30
our %NOT_SET_PREFS = map { $_, 1 } qw( Version );
29
our %NOT_SET_PREFS = map { $_, 1 } qw( Version );
31
30
32
=head1 NAME
31
=head1 NAME
Lines 214-224 my %commands = ( Link Here
214
            'o:s' => \$outfile
213
            'o:s' => \$outfile
215
        ) || _print_usage( 1 );
214
        ) || _print_usage( 1 );
216
215
217
        if ( $outfile ) {
216
        YAML::XS::DumpFile( $outfile || \*STDOUT, GetPreferences() );
218
            YAML::XS::DumpFile( $outfile, GetPreferences() );
219
        } else {
220
            print Encode::decode_utf8(YAML::XS::Dump(GetPreferences()));
221
        }
222
    },
217
    },
223
    load => sub {
218
    load => sub {
224
        my ( $infile, $force_version );
219
        my ( $infile, $force_version );
225
- 

Return to bug 22824