Lines 84-91
sub new {
Link Here
|
84 |
|
84 |
|
85 |
# Get all available language codes |
85 |
# Get all available language codes |
86 |
opendir $fh, $self->{path_po}; |
86 |
opendir $fh, $self->{path_po}; |
87 |
my @langs = map { ($_) =~ /(.*)-i-opac/ } |
87 |
my @langs = map { ($_) =~ /(.*)-pref/ } |
88 |
grep { $_ =~ /.*-opac-t-prog/ } readdir($fh); |
88 |
grep { $_ =~ /.*-pref/ } readdir($fh); |
89 |
closedir $fh; |
89 |
closedir $fh; |
90 |
$self->{langs} = \@langs; |
90 |
$self->{langs} = \@langs; |
91 |
|
91 |
|
Lines 93-103
sub new {
Link Here
|
93 |
my $opachtdocs = $context->config('opachtdocs'); |
93 |
my $opachtdocs = $context->config('opachtdocs'); |
94 |
$self->{interface} = [ |
94 |
$self->{interface} = [ |
95 |
{ |
95 |
{ |
96 |
name => 'OPAC prog', |
|
|
97 |
dir => "$opachtdocs/prog", |
98 |
suffix => '-i-opac-t-prog-v-3006000.po', |
99 |
}, |
100 |
{ |
101 |
name => 'Intranet prog UI', |
96 |
name => 'Intranet prog UI', |
102 |
dir => $context->config('intrahtdocs') . '/prog', |
97 |
dir => $context->config('intrahtdocs') . '/prog', |
103 |
suffix => '-i-staff-t-prog-v-3006000.po', |
98 |
suffix => '-i-staff-t-prog-v-3006000.po', |
Lines 109-121
sub new {
Link Here
|
109 |
}, |
104 |
}, |
110 |
]; |
105 |
]; |
111 |
|
106 |
|
112 |
# Alternate opac themes |
107 |
# OPAC themes |
113 |
opendir $fh, $context->config('opachtdocs'); |
108 |
opendir my $dh, $context->config('opachtdocs'); |
114 |
for ( grep { not /^\.|\.\.|prog|lib$/ } readdir($fh) ) { |
109 |
for my $theme ( grep { not /^\.|lib/ } readdir($dh) ) { |
115 |
push @{$self->{interface}}, { |
110 |
push @{$self->{interface}}, { |
116 |
name => "OPAC $_", |
111 |
name => "OPAC $theme", |
117 |
dir => "$opachtdocs/$_", |
112 |
dir => "$opachtdocs/$theme", |
118 |
suffix => "-opac-$_.po", |
113 |
suffix => "-opac-$theme.po", |
119 |
}; |
114 |
}; |
120 |
} |
115 |
} |
121 |
|
116 |
|
Lines 514-522
sub install {
Link Here
|
514 |
sub get_all_langs { |
509 |
sub get_all_langs { |
515 |
my $self = shift; |
510 |
my $self = shift; |
516 |
opendir( my $dh, $self->{path_po} ); |
511 |
opendir( my $dh, $self->{path_po} ); |
517 |
my @files = grep { $_ =~ /-i-opac-t-prog-v-3006000.po$/ } |
512 |
my @files = grep { $_ =~ /-pref.po$/ } |
518 |
readdir $dh; |
513 |
readdir $dh; |
519 |
@files = map { $_ =~ s/-i-opac-t-prog-v-3006000.po$//; $_ } @files; |
514 |
@files = map { $_ =~ s/-pref.po$//; $_ } @files; |
520 |
} |
515 |
} |
521 |
|
516 |
|
522 |
|
517 |
|
Lines 595-604
intranet templates, and (3) from preferences.
Link Here
|
595 |
|
590 |
|
596 |
=over |
591 |
=over |
597 |
|
592 |
|
598 |
=item F<lang>-opac.po |
593 |
=item F<lang>-opac-{theme}.po |
599 |
|
594 |
|
600 |
Contains extracted text from english (en) OPAC templates found in |
595 |
Contains extracted text from english (en) OPAC templates found in |
601 |
<KOHA_ROOT>/koha-tmpl/opac-tmpl/prog/en/ directory. |
596 |
<KOHA_ROOT>/koha-tmpl/opac-tmpl/{theme}/en/ directory. |
602 |
|
597 |
|
603 |
=item F<lang>-intranet.po |
598 |
=item F<lang>-intranet.po |
604 |
|
599 |
|