|
Lines 89-98
sub new {
Link Here
|
| 89 |
suffix => '-i-opac-t-prog-v-3006000.po', |
89 |
suffix => '-i-opac-t-prog-v-3006000.po', |
| 90 |
}, |
90 |
}, |
| 91 |
{ |
91 |
{ |
| 92 |
name => 'Intranet prog', |
92 |
name => 'Intranet prog UI', |
| 93 |
dir => $context->config('intrahtdocs') . '/prog', |
93 |
dir => $context->config('intrahtdocs') . '/prog', |
| 94 |
suffix => '-i-staff-t-prog-v-3006000.po', |
94 |
suffix => '-i-staff-t-prog-v-3006000.po', |
| 95 |
}, |
95 |
}, |
|
|
96 |
{ |
| 97 |
name => 'Intranet prog help', |
| 98 |
dir => $context->config('intrahtdocs') . '/prog/en/modules/help', |
| 99 |
suffix => '-staff-help.po', |
| 100 |
}, |
| 96 |
]; |
101 |
]; |
| 97 |
|
102 |
|
| 98 |
# Alternate opac themes |
103 |
# Alternate opac themes |
|
Lines 330-342
sub install_tmpl {
Link Here
|
| 330 |
" To : $trans->{dir}/$self->{lang}\n", |
335 |
" To : $trans->{dir}/$self->{lang}\n", |
| 331 |
" With: $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
336 |
" With: $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
| 332 |
if $self->{verbose}; |
337 |
if $self->{verbose}; |
| 333 |
my $lang_dir = "$trans->{dir}/$self->{lang}"; |
338 |
|
|
|
339 |
my $trans_dir = ( $trans->{name} =~ /help/ )?"$trans->{dir}":"$trans->{dir}/en/"; |
| 340 |
my $lang_dir = ( $trans->{name} =~ /help/ )?"$trans->{dir}":"$trans->{dir}/$self->{lang}"; |
| 341 |
$lang_dir =~ s|/en/|/$self->{lang}/|; |
| 334 |
mkdir $lang_dir unless -d $lang_dir; |
342 |
mkdir $lang_dir unless -d $lang_dir; |
|
|
343 |
my $excludes = ( $trans->{name} =~ /UI/ )?"-x 'help'":""; |
| 344 |
|
| 335 |
system |
345 |
system |
| 336 |
"$self->{process} install " . |
346 |
"$self->{process} install " . |
| 337 |
"-i $trans->{dir}/en/ " . |
347 |
"-i $trans_dir " . |
| 338 |
"-o $trans->{dir}/$self->{lang} ". |
348 |
"-o $lang_dir ". |
| 339 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
349 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r $excludes" . |
| 340 |
( |
350 |
( |
| 341 |
@$files |
351 |
@$files |
| 342 |
? '-f ' . join ' -f ', @$files |
352 |
? '-f ' . join ' -f ', @$files |
|
Lines 358-367
sub update_tmpl {
Link Here
|
| 358 |
if $self->{verbose}; |
368 |
if $self->{verbose}; |
| 359 |
my $lang_dir = "$trans->{dir}/$self->{lang}"; |
369 |
my $lang_dir = "$trans->{dir}/$self->{lang}"; |
| 360 |
mkdir $lang_dir unless -d $lang_dir; |
370 |
mkdir $lang_dir unless -d $lang_dir; |
|
|
371 |
|
| 372 |
my $trans_dir = ( $trans->{name} =~ /help/ )?"$trans->{dir}":"$trans->{dir}/en/"; |
| 373 |
my $excludes = ( $trans->{name} =~ /UI/ )?"-x 'help'":""; |
| 374 |
|
| 361 |
system |
375 |
system |
| 362 |
"$self->{process} update " . |
376 |
"$self->{process} update " . |
| 363 |
"-i $trans->{dir}/en/ " . |
377 |
"-i $trans_dir " . |
| 364 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
378 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r $excludes" . |
| 365 |
( |
379 |
( |
| 366 |
@$files |
380 |
@$files |
| 367 |
? '-f ' . join ' -f ', @$files |
381 |
? '-f ' . join ' -f ', @$files |
|
Lines 393-402
sub create_tmpl {
Link Here
|
| 393 |
" From: $trans->{dir}/en/\n", |
407 |
" From: $trans->{dir}/en/\n", |
| 394 |
" To : $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
408 |
" To : $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
| 395 |
if $self->{verbose}; |
409 |
if $self->{verbose}; |
|
|
410 |
|
| 411 |
my $trans_dir = ( $trans->{name} =~ /help/ )?"$trans->{dir}":"$trans->{dir}/en/"; |
| 412 |
my $excludes = ( $trans->{name} =~ /UI/ )?"-x 'help'":""; |
| 413 |
|
| 396 |
system |
414 |
system |
| 397 |
"$self->{process} create " . |
415 |
"$self->{process} create " . |
| 398 |
"-i $trans->{dir}/en/ " . |
416 |
"-i $trans_dir " . |
| 399 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
417 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r $excludes" . |
| 400 |
( |
418 |
( |
| 401 |
@$files |
419 |
@$files |
| 402 |
? '-f ' . join ' -f ', @$files |
420 |
? '-f ' . join ' -f ', @$files |
| 403 |
- |
|
|