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

(-)a/admin/preferences.pl (-4 / +1 lines)
Lines 35-41 use YAML::Syck qw(); Link Here
35
use List::MoreUtils qw(any);
35
use List::MoreUtils qw(any);
36
$YAML::Syck::ImplicitTyping = 1;
36
$YAML::Syck::ImplicitTyping = 1;
37
$YAML::Syck::ImplicitUnicode = 1;
37
$YAML::Syck::ImplicitUnicode = 1;
38
our $lang;
39
38
40
# use Smart::Comments;
39
# use Smart::Comments;
41
#
40
#
Lines 81-87 sub _get_chunk { Link Here
81
            $interface = 'intranet';
80
            $interface = 'intranet';
82
            $theme     = C4::Context->preference('template');
81
            $theme     = C4::Context->preference('template');
83
        }
82
        }
84
        $chunk->{'languages'} = getTranslatedLanguages( $interface, $theme, $lang, $current_languages );
83
        $chunk->{'languages'} = getTranslatedLanguages( $interface, $theme, undef, $current_languages );
85
        $chunk->{'type'} = 'languages';
84
        $chunk->{'type'} = 'languages';
86
    } elsif ( $options{ 'choices' } ) {
85
    } elsif ( $options{ 'choices' } ) {
87
        if ( $options{'choices'} && ref( $options{ 'choices' } ) eq '' ) {
86
        if ( $options{'choices'} && ref( $options{ 'choices' } ) eq '' ) {
Lines 306-312 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
306
    }
305
    }
307
);
306
);
308
307
309
$lang = $template->param( 'lang' );
310
my $op = $input->param( 'op' ) || '';
308
my $op = $input->param( 'op' ) || '';
311
my $tab = $input->param( 'tab' );
309
my $tab = $input->param( 'tab' );
312
$tab ||= 'acquisitions'; # Ideally this should be "local-use" but preferences.pl
310
$tab ||= 'acquisitions'; # Ideally this should be "local-use" but preferences.pl
313
- 

Return to bug 20504