Koha-Contrib-Sudoc
16 results

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN 

            "Log::Dispatch::File" : "0",
            "Log::Dispatch::Screen" : "0",
            "Log::Dispatch::Syslog" : "0",
            "MARC::Moose::Field::Control" : "0",
            "MARC::Moose::Field::Std" : "0",
            "MARC::Moose::Parser::Iso2709" : "0",
            "MARC::Moose::Reader::File::Iso2709" : "0",
            "MARC::Moose::Record" : "0",
            "MIME::Base64" : "0",
            "Mail::Box::Manager" : "0",
            "Modern::Perl" : "0",
            "Moose" : "0",
            "Moose::Util::TypeConstraints" : "0",
            "MooseX::RW::Reader" : "0",
            "MooseX::RW::Reader::File" : "0",
            "Net::FTP" : "0",
            "Net::SFTP::Foreign" : "0",
            "Path::Tiny" : "0",
            "Pod::Usage" : "0",
            "Search::Elasticsearch" : "0",
            "Sys::Syslog" : "0",

META.yml  view on Meta::CPAN 

  Log::Dispatch::File: '0'
  Log::Dispatch::Screen: '0'
  Log::Dispatch::Syslog: '0'
  MARC::Moose::Field::Control: '0'
  MARC::Moose::Field::Std: '0'
  MARC::Moose::Parser::Iso2709: '0'
  MARC::Moose::Reader::File::Iso2709: '0'
  MARC::Moose::Record: '0'
  MIME::Base64: '0'
  Mail::Box::Manager: '0'
  Modern::Perl: '0'
  Moose: '0'
  Moose::Util::TypeConstraints: '0'
  MooseX::RW::Reader: '0'
  MooseX::RW::Reader::File: '0'
  Net::FTP: '0'
  Net::SFTP::Foreign: '0'
  Path::Tiny: '0'
  Pod::Usage: '0'
  Search::Elasticsearch: '0'
  Sys::Syslog: '0'

Makefile.PL  view on Meta::CPAN 

    "Log::Dispatch::File" => 0,
    "Log::Dispatch::Screen" => 0,
    "Log::Dispatch::Syslog" => 0,
    "MARC::Moose::Field::Control" => 0,
    "MARC::Moose::Field::Std" => 0,
    "MARC::Moose::Parser::Iso2709" => 0,
    "MARC::Moose::Reader::File::Iso2709" => 0,
    "MARC::Moose::Record" => 0,
    "MIME::Base64" => 0,
    "Mail::Box::Manager" => 0,
    "Modern::Perl" => 0,
    "Moose" => 0,
    "Moose::Util::TypeConstraints" => 0,
    "MooseX::RW::Reader" => 0,
    "MooseX::RW::Reader::File" => 0,
    "Net::FTP" => 0,
    "Net::SFTP::Foreign" => 0,
    "Path::Tiny" => 0,
    "Pod::Usage" => 0,
    "Search::Elasticsearch" => 0,
    "Sys::Syslog" => 0,

Makefile.PL  view on Meta::CPAN 

  "Log::Dispatch::File" => 0,
  "Log::Dispatch::Screen" => 0,
  "Log::Dispatch::Syslog" => 0,
  "MARC::Moose::Field::Control" => 0,
  "MARC::Moose::Field::Std" => 0,
  "MARC::Moose::Parser::Iso2709" => 0,
  "MARC::Moose::Reader::File::Iso2709" => 0,
  "MARC::Moose::Record" => 0,
  "MIME::Base64" => 0,
  "Mail::Box::Manager" => 0,
  "Modern::Perl" => 0,
  "Moose" => 0,
  "Moose::Util::TypeConstraints" => 0,
  "MooseX::RW::Reader" => 0,
  "MooseX::RW::Reader::File" => 0,
  "Net::FTP" => 0,
  "Net::SFTP::Foreign" => 0,
  "Path::Tiny" => 0,
  "Pod::Usage" => 0,
  "Search::Elasticsearch" => 0,
  "Sys::Syslog" => 0,

bin/sudoc  view on Meta::CPAN 

#!/usr/bin/perl 

# PODNAME: sudoc
# ABSTRACT: Commande de chargement des notices SUDOC

use Modern::Perl;
use utf8;
use Getopt::Long;
use Koha::Contrib::Sudoc;
use Koha::Contrib::Sudoc::TransferDaemon;
use Koha::Contrib::Sudoc::Loader::Biblios;
use Koha::Contrib::Sudoc::Loader::Authorities;

my ($doit);
GetOptions(
    'doit'     => \$doit,

bin/sudoc-localisation  view on Meta::CPAN 

#!/usr/bin/perl 

# PODNAME: sudoc-localisation
# ABSTRACT: Génération de fichier de localisation automatique dans le Sudoc

package Main;
$Main::VERSION = '2.47';
use Modern::Perl;
use utf8;
use Getopt::Long;
use Pod::Usage;
use Koha::Contrib::Sudoc::Localisation;


my ($help, $test);
my $select   = "SELECT biblionumber FROM biblio";
my $lignes   = 1000;
my $type     = 'isbn';

bin/sudoc-ppnize  view on Meta::CPAN 

#!/usr/bin/perl 

# PODNAME: sudoc--ppnize
# ABSTRACT: Ajout de PPN aux notices biblio d'un Catalogue Koha

package Main;
$Main::VERSION = '2.47';
use Modern::Perl;
use Getopt::Long;
use Pod::Usage;
use Koha::Contrib::Sudoc;
use Koha::Contrib::Sudoc::PPNize::Reader;
use Koha::Contrib::Sudoc::PPNize::Updater;

my ($help, $doit);
GetOptions(
    'help|h'   => \$help,
    'doit'     => \$doit,

bin/sudoc-trans  view on Meta::CPAN 

#!/usr/bin/perl 

# PODNAME: sudoc-trans
# ABSTRACT: Service de transfert de fichiers ABES

use Modern::Perl;
use Sys::Syslog qw(:standard :macros);
use File::Copy;
use Mail::Box::Manager;
use YAML::Tiny qw/ LoadFile /;
 

my $root = $ENV{SUDOC};
unless ($root) {
    say "Il manque la variable d'environnement SUDOC.";
    exit;

lib/Koha/Contrib/Sudoc.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc;
# ABSTRACT: Chargeur Koha par Tamil
$Koha::Contrib::Sudoc::VERSION = '2.47';
use Moose;
use Modern::Perl;
use YAML qw( LoadFile Dump );
use Koha::Contrib::Sudoc::Koha;
use Koha::Contrib::Sudoc::Spool;
use MARC::Moose::Field::Std;
use MARC::Moose::Field::Control;
use File::Copy;
use Path::Tiny;
use Mail::Box::Manager;
use DateTime;
use File::ShareDir ':ALL';

lib/Koha/Contrib/Sudoc/Converter.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Converter;
# ABSTRACT: Classe de base pour convertir les notices
$Koha::Contrib::Sudoc::Converter::VERSION = '2.47';
use Moose;
use utf8;
use Modern::Perl;

# Moulinette SUDOC
has sudoc => ( is => 'rw', isa => 'Koha::Contrib::Sudoc', required => 1 );

has log => ( is => 'rw', isa => 'Log::Dispatch' );

has item => ( is => 'rw', isa => 'HashRef' );

lib/Koha/Contrib/Sudoc/Koha.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Koha;
# ABSTRACT: Lien à Koha
$Koha::Contrib::Sudoc::Koha::VERSION = '2.47';
use Moose;
use Modern::Perl;
use Carp;
use XML::Simple;
use DBI;
use ZOOM;
use MARC::Moose::Record;
use C4::Biblio qw/ GetFrameworkCode /;;
use Search::Elasticsearch;
use YAML;
use MIME::Base64;
use Try::Tiny;

lib/Koha/Contrib/Sudoc/Loader.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Loader;
# ABSTRACT: Classe de base pour le chargement de notices biblio/autorité
$Koha::Contrib::Sudoc::Loader::VERSION = '2.47';
use Moose;
use Modern::Perl;
use utf8;
use MARC::Moose::Reader::File::Iso2709;
use Koha::Contrib::Sudoc::Converter;
use Log::Dispatch;
use Log::Dispatch::Screen;
use Log::Dispatch::File;
use Class::Load ':all';
use DateTime;

lib/Koha/Contrib/Sudoc/Loader/Authorities.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Loader::Authorities;
# ABSTRACT: Chargeur de notices d'autorité
$Koha::Contrib::Sudoc::Loader::Authorities::VERSION = '2.47';
use Moose;

extends 'Koha::Contrib::Sudoc::Loader';

use Modern::Perl;
use utf8;
use C4::AuthoritiesMarc qw/ AddAuthority /;
use MARC::Moose::Record;


sub handle_record {
    my ($self, $record) = @_;

    # FIXME: Ici et pas en-tête parce qu'il faut que l'environnement Shell soit
    # déjà fixé avant de charger ces modules qui ont besoin de KOHA_CONF et qui

lib/Koha/Contrib/Sudoc/Loader/Biblios.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Loader::Biblios;
# ABSTRACT: Chargeur de notices biblio
$Koha::Contrib::Sudoc::Loader::Biblios::VERSION = '2.47';
use Moose;

extends 'Koha::Contrib::Sudoc::Loader';

use Modern::Perl;
use utf8;
use YAML;
use C4::Biblio qw/ ModBiblio ModBiblioMarc AddBiblio /;
use C4::Items qw/ AddItemBatchFromMarc /;



# On cherche les notices doublons SUDOC. On renvoie la liste des notices
# Koha correspondantes.
sub doublons_sudoc {

lib/Koha/Contrib/Sudoc/Localisation.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Localisation;
# ABSTRACT: Localisation auto de notices biblio
$Koha::Contrib::Sudoc::Localisation::VERSION = '2.47';
use Moose;

extends 'AnyEvent::Processor';

use Modern::Perl;
use utf8;
use Koha::Contrib::Sudoc;
use Koha::Contrib::Sudoc::BiblioReader;
use C4::Items;
use C4::Context;
use YAML;
use Encode;
use Business::ISBN;
use List::Util qw/first/;

lib/Koha/Contrib/Sudoc/Spool.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::Spool;
# ABSTRACT: Spool des fichiers de notices
$Koha::Contrib::Sudoc::Spool::VERSION = '2.47';
use Moose;
use Modern::Perl;
use File::Copy;
use DateTime;
use Format::Human::Bytes;



my $dirstatus = [
    [
        "Fichiers contenant les autorités qui ont été chargées :",
        'done',

lib/Koha/Contrib/Sudoc/TransferDaemon.pm  view on Meta::CPAN 

package Koha::Contrib::Sudoc::TransferDaemon;
# ABSTRACT: Service de transfert de fichiers
$Koha::Contrib::Sudoc::TransferDaemon::VERSION = '2.47';
use Moose;
use Modern::Perl;
use utf8;
use Mail::Box::Manager;
use DateTime;
use Path::Tiny;
use Log::Dispatch;
use Log::Dispatch::Screen;
use Log::Dispatch::Syslog;
use Koha::Contrib::Sudoc;



( run in 0.310 second using v1.01-cache-2.11-cpan-4d50c553e7e )