use Authen::CAS::Client;
use CGI qw ( -utf8 );
use FindBin;
-use YAML;
+use YAML::XS;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
# If there's a configuration for multiple cas servers, then we get it
if (multipleAuth()) {
- ($defaultcasserver, $casservers) = YAML::LoadFile($yamlauthfile);
+ ($defaultcasserver, $casservers) = YAML::XS::LoadFile($yamlauthfile);
$defaultcasserver = $defaultcasserver->{'default'};
} else {
# Else, we fall back to casServerUrl syspref
use Modern::Perl;
use DateTime;
use POSIX qw( floor );
+use YAML::XS;
+
use Koha::DateUtils;
use C4::Context;
use C4::Stats;
if ($yaml) {
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt
my $rules;
- eval { $rules = YAML::Load($yaml); };
+ eval { $rules = YAML::XS::Load($yaml); };
if ($@) {
warn "Unable to parse UpdateNotForLoanStatusOnCheckin syspref : $@";
}
use File::Spec;
use Module::Load::Conditional qw(can_load);
use POSIX ();
-use YAML qw/Load/;
+use YAML::XS;
use ZOOM;
use C4::Boolean;
sub yaml_preference {
my ( $self, $preference ) = @_;
- my $yaml = eval { YAML::Load( $self->preference( $preference ) ); };
+ my $yaml = eval { YAML::XS::Load( $self->preference( $preference ) ); };
if ($@) {
warn "Unable to parse $preference syspref : $@";
return;
use C4::ClassSource;
use C4::Log;
use List::MoreUtils qw(any);
-use YAML qw(Load);
+use YAML::XS;
use DateTime::Format::MySQL;
use Data::Dumper; # used as part of logging item record changes, not just for
# debugging; so please don't remove this
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt
my $hidingrules;
eval {
- $hidingrules = YAML::Load($yaml);
+ $hidingrules = YAML::XS::Load($yaml);
};
if ($@) {
warn "Unable to parse OpacHiddenItems syspref : $@";
use C4::Biblio; #marc2bibtex
use C4::Koha; #marc2csv
use C4::XSLT ();
-use YAML; #marcrecords2csv
+use YAML::XS; #marcrecords2csv
use Template;
use Text::CSV::Encoded; #marc2csv
use Koha::Items;
my $configfile = "../tools/csv-profiles/$id.yaml";
my ($preprocess, $postprocess, $fieldprocessing);
if (-e $configfile){
- ($preprocess,$postprocess, $fieldprocessing) = YAML::LoadFile($configfile);
+ ($preprocess,$postprocess, $fieldprocessing) = YAML::XS::LoadFile($configfile);
}
# Preprocessing
my $additional_fields;
if ($BibtexExportAdditionalFields) {
$BibtexExportAdditionalFields = "$BibtexExportAdditionalFields\n\n";
- $additional_fields = eval { YAML::Load($BibtexExportAdditionalFields); };
+ $additional_fields = eval { YAML::XS::Load($BibtexExportAdditionalFields); };
if ($@) {
warn "Unable to parse BibtexExportAdditionalFields : $@";
$additional_fields = undef;
use Modern::Perl;
use List::MoreUtils qw/uniq/;
+use YAML::XS;
use vars qw(@ISA @EXPORT);
use Koha::SimpleMARC qw(read_field);
my $ris_additional_fields;
if ($RisExportAdditionalFields) {
$RisExportAdditionalFields = "$RisExportAdditionalFields\n\n";
- $ris_additional_fields = eval { YAML::Load($RisExportAdditionalFields); };
+ $ris_additional_fields = eval { YAML::XS::Load($RisExportAdditionalFields); };
if ($@) {
warn "Unable to parse RisExportAdditionalFields : $@";
$ris_additional_fields = undef;
my %args;
if ( -f $conf_file ) {
- require YAML;
- my $conf = YAML::LoadFile( $conf_file );
+ require YAML::XS;
+ my $conf = YAML::XS::LoadFile( $conf_file );
%args = map { q{_} . $_ => $conf->{$_} } keys %$conf;
}
use Koha::Libraries;
use Koha::Patrons;
use Koha::RecordProcessor;
-use YAML;
use URI::Escape;
use Business::ISBN;
use MARC::Record;
use Modern::Perl;
use List::Util qw( first );
-use YAML;
+use YAML::XS;
use C4::Context;
use Koha::Database;
use Koha::Caches;
my $yaml = $cache->get_from_cache('TablesSettingsYaml');
unless ($yaml) {
- $yaml = eval { YAML::LoadFile($yml_path) };
+ $yaml = eval { YAML::XS::LoadFile($yml_path) };
warn "ERROR: the yaml file for DT::TablesSettings is not correctly formatted: $@"
if $@;
$cache->set_in_cache( 'TablesSettingsYaml', $yaml, { expiry => 3600 } );
my $opachiddenitems_rules;
eval {
my $yaml = C4::Context->preference('OpacHiddenItems') . "\n\n";
- $opachiddenitems_rules = YAML::Load($yaml);
+ $opachiddenitems_rules = YAML::XS::Load($yaml);
};
my @items = grep { !$_->hidden_in_opac({ rules => $opachiddenitems_rules }) @{$biblio->items};
use Template::Plugin;
use base qw( Template::Plugin );
-use YAML qw( LoadFile );
use JSON qw( to_json );
use C4::Context qw( config );
my ( $self, $args, $num_to_prefetch ) = @_;
if (!defined $self->{'attribute_mappings'}) {
- require YAML;
- $self->{'attribute_mappings'} = YAML::LoadFile($self->{server}->{config_dir} . 'attribute_mappings.yaml');
+ require YAML::XS;
+ $self->{'attribute_mappings'} = YAML::XS::LoadFile($self->{server}->{config_dir} . 'attribute_mappings.yaml');
}
my $database = $args->{DATABASES}->[0];
use Config;
use Search::Elasticsearch;
use Try::Tiny;
-use YAML qw/LoadFile/;
+use YAML::XS;
use C4::Output;
use C4::Auth;
foreach my $syspref (@yaml_prefs) {
my $yaml = C4::Context->preference( $syspref );
if ( $yaml ) {
- eval { YAML::Load( "$yaml\n\n" ); };
+ eval { YAML::XS::Load( "$yaml\n\n" ); };
if ($@) {
push @bad_yaml_prefs, $syspref;
}
## Release teams
my $teams =
-e "$docdir" . "/teams.yaml"
- ? LoadFile( "$docdir" . "/teams.yaml" )
+ ? YAML::XS::LoadFile( "$docdir" . "/teams.yaml" )
: {};
my $dev_team = (sort {$b <=> $a} (keys %{$teams->{team}}))[0];
my $short_version = substr($versions{'kohaVersion'},0,5);
## Contributors
my $contributors =
-e "$docdir" . "/contributors.yaml"
- ? LoadFile( "$docdir" . "/contributors.yaml" )
+ ? YAML::XS::LoadFile( "$docdir" . "/contributors.yaml" )
: {};
for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) {
for my $role ( keys %{ $teams->{team}->{$version} } ) {
use Modern::Perl;
use CGI qw ( -utf8 );
use Carp;
-use YAML qw/Load/;
+use YAML::XS;
use List::MoreUtils qw/uniq/;
use C4::Context;
my $syspref = C4::Context->preference($syspref_name);
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt
my $yaml = eval {
- YAML::Load($syspref);
+ YAML::XS::Load($syspref);
};
if ( $@ ) {
warn "Unable to parse $syspref syspref : $@";
my $syspref = C4::Context->preference($syspref_name);
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt
my $yaml = eval {
- YAML::Load($syspref);
+ YAML::XS::Load($syspref);
};
if ( $@ ) {
warn "Unable to parse $syspref syspref : $@";
use Modern::Perl;
use CGI;
-use YAML qw( LoadFile );
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Languages qw(getTranslatedLanguages);
use C4::ClassSource;
use C4::Output;
-use YAML::Syck qw( Dump LoadFile );
+use YAML::Syck qw( LoadFile );
my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
use constant PULL_INTERVAL => 2;
use List::MoreUtils qw( uniq );
+use YAML::XS;
use C4::Context;
use C4::Output;
if ( my $yaml = C4::Context->preference('UpdateItemWhenLostFromHoldList') ) {
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt
my $assignments;
- eval { $assignments = YAML::Load($yaml); };
+ eval { $assignments = YAML::XS::Load($yaml); };
if ($@) {
warn "Unable to parse UpdateItemWhenLostFromHoldList syspref : $@" if $@;
}
requires 'XML::SAX::ParserFactory', '1.01';
requires 'XML::SAX::Writer', '0.44';
requires 'XML::Simple', '2.14';
-requires 'YAML', '0.71';
+requires 'YAML::XS', '0.71';
requires 'YAML::Syck', '0.71';
recommends 'AnyEvent', '5.0';
recommends 'AnyEvent::HTTP', '2.13';
use Getopt::Long;
use Pod::Usage;
-use YAML;
use Try::Tiny;
use Koha::Script;
use C4::Context;
use C4::Items;
use C4::MarcModificationTemplates;
-use YAML;
+use YAML::XS;
use Unicode::Normalize;
use Time::HiRes qw(gettimeofday);
use Getopt::Long;
}
if ($yamlfile) {
open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n";
- print $yamlfileout Dump($yamlhash);
+ print $yamlfileout YAML::XS::Dump($yamlhash);
}
exit 0;
sub get_heading_fields{
my $headingfields;
if ($authtypes){
- $headingfields=YAML::LoadFile($authtypes);
+ $headingfields = YAML::XS::LoadFile($authtypes);
$headingfields={C4::Context->preference('marcflavour')=>$headingfields};
- $debug && warn YAML::Dump($headingfields);
+ $debug && warn YAML::XS::Dump($headingfields);
}
unless ($headingfields){
$headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}});
use FindBin qw($Bin);
use Getopt::Long;
use Locale::PO;
-use YAML qw(LoadFile);
+use YAML::XS;
use utf8;
use Koha::Database;
exit 0;
}
-my $defaults = LoadFile("$Bin/data/defaults.yml");
-my $authorised_values = LoadFile("$Bin/data/authorised_values.yml");
-my $authtypes = LoadFile("$Bin/data/authtypes.yml");
+my $defaults = YAML::XS::LoadFile("$Bin/data/defaults.yml");
+my $authorised_values = YAML::XS::LoadFile("$Bin/data/authorised_values.yml");
+my $authtypes = YAML::XS::LoadFile("$Bin/data/authtypes.yml");
my @authtags;
my @authsubfields;
for my $authfw (qw(default CLASS CO EXP FAM GENRE_FORM NP NTEXP NTWORK PA PERS PUB SAUTTIT SNC SNG TM TU WORK)) {
- my $file = LoadFile("$Bin/data/auth/$authfw.yml");
+ my $file = YAML::XS::LoadFile("$Bin/data/auth/$authfw.yml");
push @authtags, @{ $file->{authtags} };
push @authsubfields, @{ $file->{authsubfields} };
}
-my $biblio = LoadFile("$Bin/data/biblio/default.yml");
+my $biblio = YAML::XS::LoadFile("$Bin/data/biblio/default.yml");
my @tags = @{ $biblio->{tags} };
my @subfields = @{ $biblio->{subfields} };
use Koha::SearchMarcMaps;
use Koha::SearchEngine::Elasticsearch;
-use YAML;
+use YAML::XS;
use Getopt::Long;
use Pod::Usage;
my $mappings = Koha::SearchEngine::Elasticsearch::raw_elasticsearch_mappings( $type );
binmode STDOUT, ":encoding(UTF-8)";
-print Dump($mappings);
+print YAML::XS::Dump($mappings);
=cut
use Modern::Perl;
+use YAML::XS;
use C4::Auth;
use C4::Context;
my $opachiddenitems_rules;
eval {
my $yaml = C4::Context->preference('OpacHiddenItems') . "\n\n";
- $opachiddenitems_rules = YAML::Load($yaml);
+ $opachiddenitems_rules = YAML::XS::Load($yaml);
};
unless ( $patron and $patron->category->override_hidden_items ) {
use C4::Context;
use List::MoreUtils q/any/;
use Try::Tiny;
+use YAML::XS;
use Data::Dumper; # TODO remove
if ( $yaml =~ /\S/ ) {
$yaml = "$yaml\n\n"; # YAML expects trailing newline. Surplus does not hurt.
eval {
- $hidingrules = YAML::Load($yaml);
+ $hidingrules = YAML::XS::Load($yaml);
};
if ($@) {
warn "Unable to parse OpacHiddenItems syspref : $@";
use Koha::Libraries;
use Koha::Patron::Categories;
use List::MoreUtils qw/any/;
-use YAML;
+use YAML::XS;
=head1 NAME
my @sqlorparams;
my @sqlor;
my @sqlwhere;
- ($debug) and print STDERR Dump($filters_hashref);
+ ($debug) and print STDERR YAML::XS::Dump($filters_hashref);
foreach my $filter (keys %$filters_hashref){
my $string;
my $stringfield=$filter;
use Test::More tests => 35;
use Test::MockModule;
use Test::Warn;
-use YAML;
+use YAML::XS;
use t::lib::Mocks;
my $data = [ 'uno', 'dos', { 'tres' => 'cuatro' } ];
my $context = Test::MockModule->new( 'C4::Context' );
- $context->mock( 'preference', YAML::Dump($data) );
+ $context->mock( 'preference', YAML::XS::Dump($data) );
my $pref = C4::Context->new->yaml_preference( 'nothing' );
my $prereq_pm = $modules->prereq_pm();
ok (exists($prereq_pm->{"DBI"}), 'DBI required for installer to run');
ok (exists($prereq_pm->{"CGI"}), 'CGI required for installer to run' );
-ok (exists($prereq_pm->{"YAML"}), 'YAML required for installer to run');
+ok (exists($prereq_pm->{"YAML::XS"}), 'YAML::XS required for installer to run');
subtest 'versions_info' => sub {
plan tests => 4;
use t::lib::Mocks;
use Koha::DateUtils;
-use YAML;
-
use t::lib::Mocks;
t::lib::Mocks::mock_preference('OrderPriceRounding','');
use File::Copy;
use FindBin qw($Bin);
use XML::LibXML;
-use YAML;
+use YAML::XS;
use ZOOM;
BEGIN {
MARC::Field->new('999', '', '', c => '1234567'),
);
- my $yaml = Test::MockModule->new('YAML');
+ my $yaml = Test::MockModule->new('YAML::XS');
$yaml->mock('LoadFile', sub {
return {
biblios => {
use Test::MockObject;
use t::lib::Mocks qw(mock_preference);
-use YAML;
use ZOOM;
BEGIN {
use Test::MockModule;
use Test::Warn;
use XML::Simple;
-use YAML;
+use YAML::XS;
use t::lib::Mocks;
delete $response->{responseDate};
unless (is_deeply($response, \%full_expected, $test)) {
diag
- "PARAM:" . Dump($param) .
- "EXPECTED:" . Dump(\%full_expected) .
- "RESPONSE:" . Dump($response);
+ "PARAM:" . YAML::XS::Dump($param) .
+ "EXPECTED:" . YAML::XS::Dump(\%full_expected) .
+ "RESPONSE:" . YAML::XS::Dump($response);
}
}
use utf8;
-use YAML;
-
use C4::Debug;
use C4::AuthoritiesMarc qw( SearchAuthorities );
use C4::XSLT;
# Add more tests here!!!
use Modern::Perl;
-use YAML;
use C4::Serials;
use C4::Serials::Frequency;
open( my $trans_fh,"<", "$root_dir/$trans_file" ),
"Open translated sample notices file $root_dir/$trans_file" );
my $trans_notice = get_notices_from_sql_file( $trans_fh );
- use YAML;
my @trans_notices = sort { lc $a cmp lc $b } keys %$trans_notice;
cmp_ok(
$#trans_notices, '>=', 0,
use Modern::Perl;
use Getopt::Long;
-use YAML;
+use YAML::XS;
my $usage = <<EOF;
yaml_valid.pl - give it a filename and it will told you if it is an exact yaml file.
die $usage if $help;
say "Testing file: $file";
-eval { YAML::LoadFile($file); };
+eval { YAML::XS::LoadFile($file); };
if ($@) {
print "KO!\n$@\n";
}