Frédéric Demians
1b80e77f84
Detail page tabs are not displayed properly because JavaScript is broken
in French. This is due to _(' JS string construction used in place of
_(".
This patch fixes:
- opac-detail.tt page
- xt/single_quotes to test bootstrap theme
Signed-off-by: Owen Leonard <oleonard@myacpl.org>
Tested by applying the patch, running translate update, then translate
install. Saw no JavaScript error on the French detail page.
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Switches from single to double quotes for translatatable strings.
Unit tests for xt/single_quotes passes now.
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
43 lines
1.3 KiB
Perl
Executable file
43 lines
1.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright (C) 2013 Horowhenua Library Trust
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 3 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Test::More tests => 1;
|
|
use File::Find;
|
|
|
|
my @files;
|
|
find(
|
|
sub {
|
|
open my $fh, $_ or die "Could not open $_: $!";
|
|
my @lines = sort grep /\_\(\'/, <$fh>;
|
|
push @files, { name => "$_", lines => \@lines } if @lines;
|
|
},qw#
|
|
./koha-tmpl/opac-tmpl/prog/en
|
|
./koha-tmpl/opac-tmpl/bootstrap/en
|
|
./koha-tmpl/intranet-tmpl/prog/en
|
|
#
|
|
);
|
|
|
|
ok( !@files, "Files do not contain single quotes _(' " )
|
|
or diag(
|
|
"Files list: \n",
|
|
join( "\n",
|
|
map { $_->{name} . ': ' . join( ', ', @{ $_->{lines} } ) } @files )
|
|
);
|