Attachment #32537 for bug #12653

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

Lines 118-120 No Warranty Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/itemtypeimg/crystal-clear/_COPYING.txt (+2 lines)
118	16.	118	16.
119		119
120	In no event unless required by applicable law or agreed to in writing will any copyright holder, or any other party who may modify and/or redistribute the library as permitted above, be liable to you for damages, including any general, special, incidental or consequential damages arising out of the use or inability to use the library (including but not limited to loss of data or data being rendered inaccurate or losses sustained by you or third parties or a failure of the library to operate with any other software), even if such holder or other party has been advised of the possibility of such damages.	120	In no event unless required by applicable law or agreed to in writing will any copyright holder, or any other party who may modify and/or redistribute the library as permitted above, be liable to you for damages, including any general, special, incidental or consequential damages arising out of the use or inability to use the library (including but not limited to loss of data or data being rendered inaccurate or losses sustained by you or third parties or a failure of the library to operate with any other software), even if such holder or other party has been advised of the possibility of such damages.
		121
		122




The Crystal Clear icon set was created by 
Everaldo Coelho, http://www.everaldo.com/
Submitted:  Oct 11 2003
Updated:  Jun 16 2007

Icons were acquired from Wikimedia Commons, 
http://commons.wikimedia.org/wiki/Crystal_Clear, 30 Jan 2010.

The images were renamed, organized and re-sized to create this packager in a


This package was created by the Open Icon Library,
http://openiconlibrary.sourceforge.net/ and is available for download there.T
All Icons are free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library 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 COPYING.txt or http://www.everaldo.com/crystal/?action=license for details.


books-open-cd.png
books-open.png

All Icons are free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. 




#!/usr/bin/env perl

# 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, see <http://www.gnu.org/licenses>.

=head1 NAME

icondirectories.t - test to ensure that the two directories of icons


use Data::Dumper;
use File::Find;
use Test::More tests => 6;

# hardcoded OPAC & STAFF dirs
my $opac_dir  = 'koha-tmpl/opac-tmpl';
my $staff_dir = 'koha-tmpl/intranet-tmpl';

# Find OPAC themes
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
my @opac_themes = grep { not /^\.|lib|js/ } readdir($dh);
close $dh;

# Find STAFF themes
opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
my @staff_themes = grep { not /^\.|lib|js/ } readdir($dh);
close $dh;

# Check existence of OPAC icon dirs
for my $theme ( @opac_themes ) {
    my $test_dir = "$opac_dir/$theme/itemtypeimg";
    ok( -d $test_dir, "opac_icon_directory: $test_dir exists" );
}

# Check existence of STAFF icon dirs
for my $theme ( @staff_themes ) {
    my $test_dir = "$staff_dir/$theme/img/itemtypeimg";
    ok( -d $test_dir, "staff_icon_directory: $test_dir exists" );
    my $file = $File::Find::name;
    $file =~ s/^$staff_icon_directory//;
    $staff_icons->{ $file } = -s $_;
}
find( \&staff_wanted, $staff_icon_directory );

is_deeply( $opac_icons, $staff_icons, "staff and OPAC icon directories have same contents" )
  or diag( Data::Dumper->Dump( [ $opac_icons ], [ 'opac_icons' ] ) );













# Check for same contents on STAFF and OPAC icondirs
# foreach STAFF theme
for my $staff_theme ( @staff_themes ) {
    my $staff_icons; # hashref of filenames to sizes
    my $staff_icon_directory = "$staff_dir/$staff_theme/img/itemtypeimg";
    my $staff_wanted = sub {
        my $file = $File::Find::name;
        $file =~ s/^$staff_icon_directory//;
        $staff_icons->{ $file } = -s $_;
    };
    find( { wanted => $staff_wanted }, $staff_icon_directory );

    # foreach OPAC theme
    for my $opac_theme ( @opac_themes ) {
        next if ( $opac_theme =~ /ccsr/ );  # FIXME: skip CCSR opac theme, it fails and there is no point to fix it
        my $opac_icons; # hashref of filenames to sizes
        my $opac_icon_directory  = "$opac_dir/$opac_theme/itemtypeimg";
        my $opac_wanted  = sub {
            my $file = $File::Find::name;
            $file =~ s/^$opac_icon_directory//;
            $opac_icons->{ $file } = -s $_;
        };
        find( { wanted => $opac_wanted }, $opac_icon_directory );

        is_deeply( $opac_icons, $staff_icons, "STAFF $staff_theme and OPAC $opac_theme icon directories have same contents" )
            or diag( Data::Dumper->Dump( [ $opac_icons ], [ 'opac_icons' ] ) );
    }
}





#!/usr/bin/perl

# 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, see <http://www.gnu.org/licenses>.

use strict;
use warnings;



=cut

use Test::More;
use File::Temp qw/tempdir/;
use IPC::Open3;
use File::Spec;


my $po_dir = tempdir(CLEANUP => 1);

# Find OPAC themes
my $opac_dir  = 'koha-tmpl/opac-tmpl';
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
my @opac_themes = grep { not /^\.|lib|js/ } readdir($dh);
close $dh;

# Find STAFF themes
my $staff_dir = 'koha-tmpl/intranet-tmpl';
opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
my @staff_themes = grep { not /^\.|lib|js/ } readdir($dh);
close $dh;

chdir "misc/translator"; # for now, tmpl_process3.pl works only if run from its directory

# Check translatable of OPAC themes
for my $theme ( @opac_themes ) {
    test_string_extraction("opac_$theme",     "../../koha-tmpl/opac-tmpl/$theme/en",     $po_dir);
}

# Check translatable of STAFF themes
for my $theme ( @staff_themes ) {
    test_string_extraction("staff_$theme",     "../../koha-tmpl/intranet-tmpl/$theme/en",     $po_dir);
}

sub test_string_extraction {
    my $module       = shift;


    ok($#warnings == -1, "$module templates are translatable") or diag join("\n", @warnings, '');
}

done_testing();




#!/usr/bin/perl

# Copyright 2011 Catalyst IT
# 
# This file is part of Koha.
#
# Copyright 2011 Catalyst IT
#
# 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, see <http://www.gnu.org/licenses>.
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use strict;
use warnings;

use File::Spec;
use Template;
use Test::More;

my @themes;

# OPAC themes
my $opac_dir  = 'koha-tmpl/opac-tmpl';
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
    push @themes, {
        type     => "opac",
        theme    => $theme,
        modules  => "$opac_dir/$theme/en/modules",
        includes => "$opac_dir/$theme/en/includes",
    }
}
close $dh;

# STAFF themes
my $staff_dir = 'koha-tmpl/intranet-tmpl';
opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
    push @themes, {
        type     => "staff",
        theme    => $theme,
        modules  => "$staff_dir/$theme/en/modules",
        includes => "$staff_dir/$theme/en/includes",
    }
}
close $dh;

# Tests
foreach my $theme ( @themes ) {
    print "Testing $theme->{'type'} $theme->{'theme'} templates\n";
    if ( $theme->{'theme'} eq 'bootstrap' ) {
        run_template_test(
            $theme->{'modules'},
            $theme->{'includes'},
            # templates to exclude from testing because
            # they cannot stand alone
            'doc-head-close.inc',
            'opac-bottom.inc',
        );
    }
    else {
        run_template_test(
            $theme->{'modules'},
            $theme->{'includes'},
        );
    }
}

done_testing();


        }
        my $vars;
        my $output;
        if ( ! -d $_ ) {    # skip dirs
            if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {
                diag( $tt->error );
            }
        }
    }
}




#!/usr/bin/perl

# Copyright (C) 2013 Horowhenua Library Trust
#
# This file is part of Koha.
#
# Copyright (C) 2013 Horowhenua Library Trust
#
# 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, see <http://www.gnu.org/licenses>.
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use warnings;
use strict;
use Test::More tests => 1;
use File::Find;

my @themes;

# OPAC themes
my $opac_dir  = 'koha-tmpl/opac-tmpl';
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
    push @themes, "$opac_dir/$theme/en";
}
close $dh;

# STAFF themes
my $staff_dir = 'koha-tmpl/intranet-tmpl';
opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
    push @themes, "$staff_dir/$theme/en";
}
close $dh;

my @files;
find(
    sub {
        open my $fh, $_ or die "Could not open $_: $!";
        my @lines = sort grep /\_\(\'/, <$fh>;
        push @files, { name => "$_", lines => \@lines } if @lines;
    },
    @themes
    ./koha-tmpl/opac-tmpl/bootstrap/en
    ./koha-tmpl/intranet-tmpl/prog/en
    #
);

ok( !@files, "Files do not contain single quotes _(' " )




#!/usr/bin/perl

# Copyright (C) 2011 Tamil s.a.r.l.
#
# This file is part of Koha.
#
# Copyright (C) 2011 Tamil s.a.r.l.
#
# 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, see <http://www.gnu.org/licenses>.
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use warnings;
use strict;

use Cwd;
use C4::TTParser;

my @themes;

# OPAC themes
my $opac_dir  = 'koha-tmpl/opac-tmpl';
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
    push @themes, "$opac_dir/$theme/en";
}
close $dh;

# STAFF themes
my $staff_dir = 'koha-tmpl/intranet-tmpl';
opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
    push @themes, "$staff_dir/$theme/en";
}
close $dh;

my @files_with_directive_in_tag = do {
    my @files;

        }
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
      }, @themes
           "./koha-tmpl/intranet-tmpl/prog/en" )
    );
    @files;
};
- 

Return to bug 12653

Lines 1-5 Link Here

(-)a/xt/author/icondirectories.t (-36 / +67 lines)
1	#!/usr/bin/env perl	1	#!/usr/bin/env perl
2		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
3	=head1 NAME	18	=head1 NAME
4		19
5	icondirectories.t - test to ensure that the two directories of icons	20	icondirectories.t - test to ensure that the two directories of icons
Lines 20-63 use lib qw( .. ); Link Here
20		35
21	use Data::Dumper;	36	use Data::Dumper;
22	use File::Find;	37	use File::Find;
23	use Test::More tests => 3;	38	use Test::More tests => 6;
24		39
25	my $opac_icon_directory = 'koha-tmpl/opac-tmpl/prog/itemtypeimg';	40	# hardcoded OPAC & STAFF dirs
26	my $staff_icon_directory = 'koha-tmpl/intranet-tmpl/prog/img/itemtypeimg';	41	my $opac_dir = 'koha-tmpl/opac-tmpl';
27		42	my $staff_dir = 'koha-tmpl/intranet-tmpl';
28	ok( -d $opac_icon_directory, "opac_icon_directory: $opac_icon_directory exists" );	43
29	ok( -d $staff_icon_directory, "staff_icon_directory: $staff_icon_directory exists" );	44	# Find OPAC themes
30		45	opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
31	my $opac_icons; # hashref of filenames to sizes	46	my @opac_themes = grep { not /^\.\|lib\|js/ } readdir($dh);
32	sub opac_wanted {	47	close $dh;
33	my $file = $File::Find::name;	48
34	$file =~ s/^$opac_icon_directory//;	49	# Find STAFF themes
35	$opac_icons->{ $file } = -s $_;	50	opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
		51	my @staff_themes = grep { not /^\.\|lib\|js/ } readdir($dh);
		52	close $dh;
		53
		54	# Check existence of OPAC icon dirs
		55	for my $theme ( @opac_themes ) {
		56	my $test_dir = "$opac_dir/$theme/itemtypeimg";
		57	ok( -d $test_dir, "opac_icon_directory: $test_dir exists" );
36	}	58	}
37		59
38	find( \&opac_wanted, $opac_icon_directory );	60	# Check existence of STAFF icon dirs
39		61	for my $theme ( @staff_themes ) {
40	my $staff_icons; # hashref of filenames to sizes	62	my $test_dir = "$staff_dir/$theme/img/itemtypeimg";
41	sub staff_wanted {	63	ok( -d $test_dir, "staff_icon_directory: $test_dir exists" );
42	my $file = $File::Find::name;
43	$file =~ s/^$staff_icon_directory//;
44	$staff_icons->{ $file } = -s $_;
45	}	64	}
46	find( \&staff_wanted, $staff_icon_directory );
47
48	is_deeply( $opac_icons, $staff_icons, "staff and OPAC icon directories have same contents" )
49	or diag( Data::Dumper->Dump( [ $opac_icons ], [ 'opac_icons' ] ) );
50
51
52
53
54
55
56
57
58
59
60
61
62		65
		66	# Check for same contents on STAFF and OPAC icondirs
		67	# foreach STAFF theme
		68	for my $staff_theme ( @staff_themes ) {
		69	my $staff_icons; # hashref of filenames to sizes
		70	my $staff_icon_directory = "$staff_dir/$staff_theme/img/itemtypeimg";
		71	my $staff_wanted = sub {
		72	my $file = $File::Find::name;
		73	$file =~ s/^$staff_icon_directory//;
		74	$staff_icons->{ $file } = -s $_;
		75	};
		76	find( { wanted => $staff_wanted }, $staff_icon_directory );
		77
		78	# foreach OPAC theme
		79	for my $opac_theme ( @opac_themes ) {
		80	next if ( $opac_theme =~ /ccsr/ ); # FIXME: skip CCSR opac theme, it fails and there is no point to fix it
		81	my $opac_icons; # hashref of filenames to sizes
		82	my $opac_icon_directory = "$opac_dir/$opac_theme/itemtypeimg";
		83	my $opac_wanted = sub {
		84	my $file = $File::Find::name;
		85	$file =~ s/^$opac_icon_directory//;
		86	$opac_icons->{ $file } = -s $_;
		87	};
		88	find( { wanted => $opac_wanted }, $opac_icon_directory );
		89
		90	is_deeply( $opac_icons, $staff_icons, "STAFF $staff_theme and OPAC $opac_theme icon directories have same contents" )
		91	or diag( Data::Dumper->Dump( [ $opac_icons ], [ 'opac_icons' ] ) );
		92	}
		93	}
63		94

Lines 1-21 Link Here

(-)a/xt/author/valid-templates.t (-40 / +65 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Copyright 2011 Catalyst IT
4	#
5	# This file is part of Koha.	3	# This file is part of Koha.
6	#	4	#
7	# Koha is free software; you can redistribute it and/or modify it under the	5	# Copyright 2011 Catalyst IT
8	# terms of the GNU General Public License as published by the Free Software	6	#
9	# Foundation; either version 2 of the License, or (at your option) any later	7	# Koha is free software; you can redistribute it and/or modify it
10	# version.	8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
11	#	11	#
12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY	12	# Koha is distributed in the hope that it will be useful, but
13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
15	#	16	#
16	# You should have received a copy of the GNU General Public License along	17	# You should have received a copy of the GNU General Public License
17	# with Koha; if not, write to the Free Software Foundation, Inc.,	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
Lines 35-66 use File::Find; Link Here
35	use File::Spec;	35	use File::Spec;
36	use Template;	36	use Template;
37	use Test::More;	37	use Test::More;
38	# use FindBin;	38
39	# use IPC::Open3;	39	my @themes;
40		40
41	print "Testing intranet prog templates\n";	41	# OPAC themes
42	run_template_test(	42	my $opac_dir = 'koha-tmpl/opac-tmpl';
43	'koha-tmpl/intranet-tmpl/prog/en/modules',	43	opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
44	'koha-tmpl/intranet-tmpl/prog/en/includes'	44	for my $theme ( grep { not /^\.\|lib\|js/ } readdir($dh) ) {
45	);	45	push @themes, {
46		46	type => "opac",
47	print "Testing opac bootstrap templates\n";	47	theme => $theme,
48	run_template_test(	48	modules => "$opac_dir/$theme/en/modules",
49	'koha-tmpl/opac-tmpl/bootstrap/en/modules',	49	includes => "$opac_dir/$theme/en/includes",
50	'koha-tmpl/opac-tmpl/bootstrap/en/includes',	50	}
51	# templates to exclude from testing because	51	}
52	# they cannot stand alone	52	close $dh;
53	'doc-head-close.inc',	53
54	'opac-bottom.inc',	54	# STAFF themes
55	);	55	my $staff_dir = 'koha-tmpl/intranet-tmpl';
56		56	opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
57	print "Testing opac prog templates\n";	57	for my $theme ( grep { not /^\.\|lib\|js/ } readdir($dh) ) {
58	run_template_test(	58	push @themes, {
59	'koha-tmpl/opac-tmpl/prog/en/modules',	59	type => "staff",
60	'koha-tmpl/opac-tmpl/prog/en/includes'	60	theme => $theme,
61	);	61	modules => "$staff_dir/$theme/en/modules",
62		62	includes => "$staff_dir/$theme/en/includes",
63	# TODO add test of opac ccsr templates	63	}
		64	}
		65	close $dh;
		66
		67	# Tests
		68	foreach my $theme ( @themes ) {
		69	print "Testing $theme->{'type'} $theme->{'theme'} templates\n";
		70	if ( $theme->{'theme'} eq 'bootstrap' ) {
		71	run_template_test(
		72	$theme->{'modules'},
		73	$theme->{'includes'},
		74	# templates to exclude from testing because
		75	# they cannot stand alone
		76	'doc-head-close.inc',
		77	'opac-bottom.inc',
		78	);
		79	}
		80	else {
		81	run_template_test(
		82	$theme->{'modules'},
		83	$theme->{'includes'},
		84	);
		85	}
		86	}
64		87
65	done_testing();	88	done_testing();
66		89
Lines 94-101 sub create_template_test { Link Here
94	}	117	}
95	my $vars;	118	my $vars;
96	my $output;	119	my $output;
97	if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {	120	if ( ! -d $_ ) { # skip dirs
98	diag( $tt->error );	121	if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {
		122	diag( $tt->error );
		123	}
99	}	124	}
100	}	125	}
101	}	126	}

Lines 1-9 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/itemtypeimg/crystal-clear/_README.txt (-4 / +4 lines)
1	The Crystal Clear icon set was created by	1	The Crystal Clear icon set was created by
2	Everaldo Coelho, http://www.everaldo.com/	2	Everaldo Coelho, http://www.everaldo.com/
3	Submitted: Oct 11 2003	3	Submitted: Oct 11 2003
4	Updated: Jun 16 2007	4	Updated: Jun 16 2007
5		5
6	Icons were acquired from Wikimedia Commons,	6	Icons were acquired from Wikimedia Commons,
7	http://commons.wikimedia.org/wiki/Crystal_Clear, 30 Jan 2010.	7	http://commons.wikimedia.org/wiki/Crystal_Clear, 30 Jan 2010.
8		8
9	The images were renamed, organized and re-sized to create this packager in a	9	The images were renamed, organized and re-sized to create this packager in a
Lines 12-18 Icon Library. Link Here
12		12
13	This package was created by the Open Icon Library,	13	This package was created by the Open Icon Library,
14	http://openiconlibrary.sourceforge.net/ and is available for download there.T	14	http://openiconlibrary.sourceforge.net/ and is available for download there.T
15	All Icons are free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library 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.	15	All Icons are free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library 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.
16		16
17	See COPYING.txt or http://www.everaldo.com/crystal/?action=license for details.	17	See COPYING.txt or http://www.everaldo.com/crystal/?action=license for details.
18		18
Lines 24-27 books-closed.png Link Here
24	books-open-cd.png	24	books-open-cd.png
25	books-open.png	25	books-open.png
26		26
27	All Icons are free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.	27	All Icons are free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.

Lines 1-5 Link Here

(-)a/xt/author/translatable-templates.t (-3 / +40 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
3	use strict;	18	use strict;
4	use warnings;	19	use warnings;
5		20
Lines 12-18 construct that the extractor cannot parse. Link Here
12		27
13	=cut	28	=cut
14		29
15	use Test::More tests => 2;	30	use Test::More;
16	use File::Temp qw/tempdir/;	31	use File::Temp qw/tempdir/;
17	use IPC::Open3;	32	use IPC::Open3;
18	use File::Spec;	33	use File::Spec;
Lines 21-29 use utf8; Link Here
21		36
22	my $po_dir = tempdir(CLEANUP => 1);	37	my $po_dir = tempdir(CLEANUP => 1);
23		38
		39	# Find OPAC themes
		40	my $opac_dir = 'koha-tmpl/opac-tmpl';
		41	opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
		42	my @opac_themes = grep { not /^\.\|lib\|js/ } readdir($dh);
		43	close $dh;
		44
		45	# Find STAFF themes
		46	my $staff_dir = 'koha-tmpl/intranet-tmpl';
		47	opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
		48	my @staff_themes = grep { not /^\.\|lib\|js/ } readdir($dh);
		49	close $dh;
		50
24	chdir "misc/translator"; # for now, tmpl_process3.pl works only if run from its directory	51	chdir "misc/translator"; # for now, tmpl_process3.pl works only if run from its directory
25	test_string_extraction("opac", "../../koha-tmpl/opac-tmpl/prog/en", $po_dir);	52
26	test_string_extraction("intranet", "../../koha-tmpl/intranet-tmpl/prog/en", $po_dir);	53	# Check translatable of OPAC themes
		54	for my $theme ( @opac_themes ) {
		55	test_string_extraction("opac_$theme", "../../koha-tmpl/opac-tmpl/$theme/en", $po_dir);
		56	}
		57
		58	# Check translatable of STAFF themes
		59	for my $theme ( @staff_themes ) {
		60	test_string_extraction("staff_$theme", "../../koha-tmpl/intranet-tmpl/$theme/en", $po_dir);
		61	}
27		62
28	sub test_string_extraction {	63	sub test_string_extraction {
29	my $module = shift;	64	my $module = shift;
Lines 53-55 sub test_string_extraction { Link Here
53		88
54	ok($#warnings == -1, "$module templates are translatable") or diag join("\n", @warnings, '');	89	ok($#warnings == -1, "$module templates are translatable") or diag join("\n", @warnings, '');
55	}	90	}
		91
		92	done_testing();

Lines 1-38 Link Here

(-)a/xt/single_quotes.t (-17 / +32 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Copyright (C) 2013 Horowhenua Library Trust
4	#
5	# This file is part of Koha.	3	# This file is part of Koha.
6	#	4	#
7	# Koha is free software; you can redistribute it and/or modify it under the	5	# Copyright (C) 2013 Horowhenua Library Trust
8	# terms of the GNU General Public License as published by the Free Software	6	#
9	# Foundation; either version 3 of the License, or (at your option) any later	7	# Koha is free software; you can redistribute it and/or modify it
10	# version.	8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
11	#	11	#
12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY	12	# Koha is distributed in the hope that it will be useful, but
13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
15	#	16	#
16	# You should have received a copy of the GNU General Public License along	17	# You should have received a copy of the GNU General Public License
17	# with Koha; if not, write to the Free Software Foundation, Inc.,	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use warnings;	20	use warnings;
21	use strict;	21	use strict;
22	use Test::More tests => 1;	22	use Test::More tests => 1;
23	use File::Find;	23	use File::Find;
24		24
		25	my @themes;
		26
		27	# OPAC themes
		28	my $opac_dir = 'koha-tmpl/opac-tmpl';
		29	opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
		30	for my $theme ( grep { not /^\.\|lib\|js/ } readdir($dh) ) {
		31	push @themes, "$opac_dir/$theme/en";
		32	}
		33	close $dh;
		34
		35	# STAFF themes
		36	my $staff_dir = 'koha-tmpl/intranet-tmpl';
		37	opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
		38	for my $theme ( grep { not /^\.\|lib\|js/ } readdir($dh) ) {
		39	push @themes, "$staff_dir/$theme/en";
		40	}
		41	close $dh;
		42
25	my @files;	43	my @files;
26	find(	44	find(
27	sub {	45	sub {
28	open my $fh, $_ or die "Could not open $_: $!";	46	open my $fh, $_ or die "Could not open $_: $!";
29	my @lines = sort grep /\_\(\'/, <$fh>;	47	my @lines = sort grep /\_\(\'/, <$fh>;
30	push @files, { name => "$_", lines => \@lines } if @lines;	48	push @files, { name => "$_", lines => \@lines } if @lines;
31	},qw#	49	},
32	./koha-tmpl/opac-tmpl/prog/en	50	@themes
33	./koha-tmpl/opac-tmpl/bootstrap/en
34	./koha-tmpl/intranet-tmpl/prog/en
35	#
36	);	51	);
37		52
38	ok( !@files, "Files do not contain single quotes _(' " )	53	ok( !@files, "Files do not contain single quotes _(' " )

Lines 1-21 Link Here

(-)a/xt/tt_valid.t (-15 / +30 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Copyright (C) 2011 Tamil s.a.r.l.
4	#
5	# This file is part of Koha.	3	# This file is part of Koha.
6	#	4	#
7	# Koha is free software; you can redistribute it and/or modify it under the	5	# Copyright (C) 2011 Tamil s.a.r.l.
8	# terms of the GNU General Public License as published by the Free Software	6	#
9	# Foundation; either version 2 of the License, or (at your option) any later	7	# Koha is free software; you can redistribute it and/or modify it
10	# version.	8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
11	#	11	#
12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY	12	# Koha is distributed in the hope that it will be useful, but
13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
15	#	16	#
16	# You should have received a copy of the GNU General Public License along	17	# You should have received a copy of the GNU General Public License
17	# with Koha; if not, write to the Free Software Foundation, Inc.,	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use warnings;	20	use warnings;
21	use strict;	21	use strict;
Lines 24-29 use File::Find; Link Here
24	use Cwd;	24	use Cwd;
25	use C4::TTParser;	25	use C4::TTParser;
26		26
		27	my @themes;
		28
		29	# OPAC themes
		30	my $opac_dir = 'koha-tmpl/opac-tmpl';
		31	opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
		32	for my $theme ( grep { not /^\.\|lib\|js/ } readdir($dh) ) {
		33	push @themes, "$opac_dir/$theme/en";
		34	}
		35	close $dh;
		36
		37	# STAFF themes
		38	my $staff_dir = 'koha-tmpl/intranet-tmpl';
		39	opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
		40	for my $theme ( grep { not /^\.\|lib\|js/ } readdir($dh) ) {
		41	push @themes, "$staff_dir/$theme/en";
		42	}
		43	close $dh;
27		44
28	my @files_with_directive_in_tag = do {	45	my @files_with_directive_in_tag = do {
29	my @files;	46	my @files;
Lines 42-49 my @files_with_directive_in_tag = do { Link Here
42	}	59	}
43	($dir) = $dir =~ /koha-tmpl\/(.*)$/;	60	($dir) = $dir =~ /koha-tmpl\/(.*)$/;
44	push @files, { name => "$dir/$name", lines => \@lines } if @lines;	61	push @files, { name => "$dir/$name", lines => \@lines } if @lines;
45	}, ( "./koha-tmpl/opac-tmpl/prog/en",	62	}, @themes
46	"./koha-tmpl/intranet-tmpl/prog/en" )
47	);	63	);
48	@files;	64	@files;
49	};	65	};
50	-