View | Details | Raw Unified | Return to bug 7934
Collapse All | Expand All

(-)a/misc/translator/LangInstaller.pm (-10 / +27 lines)
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
- 

Return to bug 7934