6e71b80ca3
* Add the code necessary to handle authorities with matching rules and import batches. * Update all the scripts that use the matcher and import batch code to use the new API. * Add authority records to the matching rules interface in the staff client. http://bugs.koha-community.org/show_bug.cgi?id=2060 Signed-off-by: Elliott Davis <elliott@bywatersolutions.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com> Rebased on latest master 11 September 2012
57 lines
1.3 KiB
Perl
Executable file
57 lines
1.3 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
# Copyright 2012 CatalystIT
|
|
#
|
|
# 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 2 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, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
BEGIN {
|
|
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
use C4::ImportBatch;
|
|
|
|
my ($help, $framework);
|
|
|
|
GetOptions(
|
|
'help|?' => \$help,
|
|
'framework=s' => \$framework,
|
|
);
|
|
|
|
if($help){
|
|
print <<EOF
|
|
$0 --framework=myframework
|
|
Parameters :
|
|
--help|? This message
|
|
--framework default ""
|
|
EOF
|
|
;
|
|
exit;
|
|
}
|
|
|
|
my $batch_ids = GetStagedWebserviceBatches() or exit;
|
|
|
|
$framework ||= '';
|
|
BatchCommitRecords($_, $framework) foreach @$batch_ids;
|