Galen Charlton
f88f88dcc5
<, >, ', or " in an item call number will no longer make the bib displays break when using XSLT mode. Added a new routine to C4::Koha, xml_escape(), to implement converting &, <, >, ', and " to their corresponding entities. Patch loosely based on work done by Daniel Latrémolière <daniel.latremoliere@bulac.fr> Signed-off-by: Galen Charlton <gmcharlt@gmail.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
21 lines
535 B
Perl
Executable file
21 lines
535 B
Perl
Executable file
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 5;
|
|
|
|
use_ok('C4::Koha');
|
|
|
|
#
|
|
# test that &slashifyDate returns correct (non-US) date
|
|
#
|
|
my $date = "01/01/2002";
|
|
my $newdate = &slashifyDate("2002-01-01");
|
|
|
|
ok($date eq $newdate, 'slashifyDate');
|
|
|
|
my $undef = undef;
|
|
is(xml_escape($undef), '', 'xml_escape() returns empty string on undef input');
|
|
my $str = q{'"&<>'};
|
|
is(xml_escape($str), ''"&<>'', 'xml_escape() works as expected');
|
|
is($str, q{'"&<>'}, '... and does not change input in place');
|