—

              
#!/usr/bin/perl
# PODNAME: koha-unimarc-4xx-fix
# ABSTRACT: Fix inconsistencies between mother/child biblio records
use Modern::Perl;
use Pod::Usage;
use Getopt::Long;
use Koha::Contrib::Tamil::Unimarc4xx::Fix;
my ($help)  = (0);
GetOptions( 
    'help|h'       => \$help,
);
sub usage {
    pod2usage( -verbose => 2 );
    exit;
} 
usage() if $help;          
my $action = shift @ARGV || '';
if ($action eq 'fix') {
    Koha::Contrib::Tamil::Unimarc4xx::Fix->new()->run(@ARGV);
}
else {
    usage();
}
__END__
HideShow 43 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
koha-unimarc-4xx-fix - Fix inconsistencies between mother/child biblio records
=head1 VERSION
version 0.074
=head1 NAME
koha-unimarc-4xx - Fix inconsitencies between mother/child biblio records.
=head1 SYNOPSYS
koha-unimarc-4xx fix 461 463 410
=head1 COPYRIGHT AND LICENSE
Copyright 2024 by Tamil, s.a.r.l.
L<https://www.tamil.fr>
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl 5 itself.
=head1 AUTHOR
Frédéric Demians <f.demians@tamil.fr>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2025 by Fréderic Démians.
This is free software, licensed under:
  The GNU General Public License, Version 3, June 2007
=cut