|
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 |
- |
|
|