Lines 101-111
sub new {
Link Here
|
101 |
dir => $context->config('intrahtdocs') . '/prog', |
101 |
dir => $context->config('intrahtdocs') . '/prog', |
102 |
suffix => '-staff-prog.po', |
102 |
suffix => '-staff-prog.po', |
103 |
}, |
103 |
}, |
104 |
{ |
|
|
105 |
name => 'Intranet prog help', |
106 |
dir => $context->config('intrahtdocs') . '/prog/en/modules/help', |
107 |
suffix => '-staff-help.po', |
108 |
}, |
109 |
]; |
104 |
]; |
110 |
|
105 |
|
111 |
# OPAC themes |
106 |
# OPAC themes |
Lines 368-378
sub install_tmpl {
Link Here
|
368 |
" With: $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
363 |
" With: $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
369 |
if $self->{verbose}; |
364 |
if $self->{verbose}; |
370 |
|
365 |
|
371 |
my $trans_dir = ( $trans->{name} =~ /help/ )?"$t_dir":"$t_dir/en/"; |
366 |
my $trans_dir = "$t_dir/en/"; |
372 |
my $lang_dir = ( $trans->{name} =~ /help/ )?"$t_dir":"$t_dir/$self->{lang}"; |
367 |
my $lang_dir = "$t_dir/$self->{lang}"; |
373 |
$lang_dir =~ s|/en/|/$self->{lang}/|; |
368 |
$lang_dir =~ s|/en/|/$self->{lang}/|; |
374 |
mkdir $lang_dir unless -d $lang_dir; |
369 |
mkdir $lang_dir unless -d $lang_dir; |
375 |
my $excludes = ( $trans->{name} !~ /help/ )?"":"-x 'help'"; |
|
|
376 |
# if installing MARC po file, only touch corresponding files |
370 |
# if installing MARC po file, only touch corresponding files |
377 |
my $marc = ( $trans->{name} =~ /MARC/ )?"-m \"$trans->{name}\"":""; # for MARC translations |
371 |
my $marc = ( $trans->{name} =~ /MARC/ )?"-m \"$trans->{name}\"":""; # for MARC translations |
378 |
# if not installing MARC po file, ignore all MARC files |
372 |
# if not installing MARC po file, ignore all MARC files |
Lines 383-389
sub install_tmpl {
Link Here
|
383 |
"-i $trans_dir " . |
377 |
"-i $trans_dir " . |
384 |
"-o $lang_dir ". |
378 |
"-o $lang_dir ". |
385 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
379 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
386 |
"$excludes " . |
|
|
387 |
"$marc " . |
380 |
"$marc " . |
388 |
( @files ? ' -f ' . join ' -f ', @files : '') . |
381 |
( @files ? ' -f ' . join ' -f ', @files : '') . |
389 |
( @nomarc ? ' -n ' . join ' -n ', @nomarc : ''); |
382 |
( @nomarc ? ' -n ' . join ' -n ', @nomarc : ''); |
Lines 405-413
sub update_tmpl {
Link Here
|
405 |
" To : $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
398 |
" To : $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
406 |
if $self->{verbose}; |
399 |
if $self->{verbose}; |
407 |
|
400 |
|
408 |
my $trans_dir = ( $trans->{name} =~ /help/ )?"$trans->{dir}":join("/en/ -i ",split(" ",$trans->{dir}))."/en/"; # multiple source dirs |
401 |
my $trans_dir = join("/en/ -i ",split(" ",$trans->{dir}))."/en/"; # multiple source dirs |
409 |
# do no process 'help' dirs unless needed |
|
|
410 |
my $excludes = ( $trans->{name} !~ /help/ )?"-x help":""; |
411 |
# if processing MARC po file, only use corresponding files |
402 |
# if processing MARC po file, only use corresponding files |
412 |
my $marc = ( $trans->{name} =~ /MARC/ )?"-m \"$trans->{name}\"":""; # for MARC translations |
403 |
my $marc = ( $trans->{name} =~ /MARC/ )?"-m \"$trans->{name}\"":""; # for MARC translations |
413 |
# if not processing MARC po file, ignore all MARC files |
404 |
# if not processing MARC po file, ignore all MARC files |
Lines 417-423
sub update_tmpl {
Link Here
|
417 |
"$self->{process} update " . |
408 |
"$self->{process} update " . |
418 |
"-i $trans_dir " . |
409 |
"-i $trans_dir " . |
419 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
410 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
420 |
"$excludes " . |
|
|
421 |
"$marc " . |
411 |
"$marc " . |
422 |
( @files ? ' -f ' . join ' -f ', @files : '') . |
412 |
( @files ? ' -f ' . join ' -f ', @files : '') . |
423 |
( @nomarc ? ' -n ' . join ' -n ', @nomarc : ''); |
413 |
( @nomarc ? ' -n ' . join ' -n ', @nomarc : ''); |
Lines 450-457
sub create_tmpl {
Link Here
|
450 |
" To : $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
440 |
" To : $self->{path_po}/$self->{lang}$trans->{suffix}\n" |
451 |
if $self->{verbose}; |
441 |
if $self->{verbose}; |
452 |
|
442 |
|
453 |
my $trans_dir = ( $trans->{name} =~ /help/ )?"$trans->{dir}":join("/en/ -i ",split(" ",$trans->{dir}))."/en/"; # multiple source dirs |
443 |
my $trans_dir = join("/en/ -i ",split(" ",$trans->{dir}))."/en/"; # multiple source dirs |
454 |
my $excludes = ( $trans->{name} !~ /help/ )?"-x help":""; |
|
|
455 |
# if processing MARC po file, only use corresponding files |
444 |
# if processing MARC po file, only use corresponding files |
456 |
my $marc = ( $trans->{name} =~ /MARC/ )?"-m \"$trans->{name}\"":""; # for MARC translations |
445 |
my $marc = ( $trans->{name} =~ /MARC/ )?"-m \"$trans->{name}\"":""; # for MARC translations |
457 |
# if not processing MARC po file, ignore all MARC files |
446 |
# if not processing MARC po file, ignore all MARC files |
Lines 461-467
sub create_tmpl {
Link Here
|
461 |
"$self->{process} create " . |
450 |
"$self->{process} create " . |
462 |
"-i $trans_dir " . |
451 |
"-i $trans_dir " . |
463 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
452 |
"-s $self->{path_po}/$self->{lang}$trans->{suffix} -r " . |
464 |
"$excludes " . |
|
|
465 |
"$marc " . |
453 |
"$marc " . |
466 |
( @files ? ' -f ' . join ' -f ', @files : '') . |
454 |
( @files ? ' -f ' . join ' -f ', @files : '') . |
467 |
( @nomarc ? ' -n ' . join ' -n ', @nomarc : ''); |
455 |
( @nomarc ? ' -n ' . join ' -n ', @nomarc : ''); |
Lines 628-634
appropriate directory.
Link Here
|
628 |
|
616 |
|
629 |
Create 4 kinds of .po files in F<po> subdirectory: |
617 |
Create 4 kinds of .po files in F<po> subdirectory: |
630 |
(1) one from each theme on opac pages templates, |
618 |
(1) one from each theme on opac pages templates, |
631 |
(2) intranet templates and help, |
619 |
(2) intranet templates, |
632 |
(3) preferences, and |
620 |
(3) preferences, and |
633 |
(4) one for each MARC dialect. |
621 |
(4) one for each MARC dialect. |
634 |
|
622 |
|
Lines 640-646
Create 4 kinds of .po files in F<po> subdirectory:
Link Here
|
640 |
Contains extracted text from english (en) OPAC templates found in |
628 |
Contains extracted text from english (en) OPAC templates found in |
641 |
<KOHA_ROOT>/koha-tmpl/opac-tmpl/{theme}/en/ directory. |
629 |
<KOHA_ROOT>/koha-tmpl/opac-tmpl/{theme}/en/ directory. |
642 |
|
630 |
|
643 |
=item F<lang>-staff-prog.po and F<lang>-staff-help.po |
631 |
=item F<lang>-staff-prog.po |
644 |
|
632 |
|
645 |
Contains extracted text from english (en) intranet templates found in |
633 |
Contains extracted text from english (en) intranet templates found in |
646 |
<KOHA_ROOT>/koha-tmpl/intranet-tmpl/prog/en/ directory. |
634 |
<KOHA_ROOT>/koha-tmpl/intranet-tmpl/prog/en/ directory. |
647 |
- |
|
|