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