Martin Renvoize
d2e189ca1c
This patch change Koha::Cron to be a more generic Koha::Script class and update all commanline driven scripts to use it. Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
18 lines
654 B
Perl
Executable file
18 lines
654 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
|
|
use Koha::Script -cron;
|
|
use C4::SocialData;
|
|
|
|
my $results = C4::SocialData::get_report;
|
|
|
|
say "==== Social Data report ====";
|
|
say "Matched : (" . scalar( @{ $results->{with} } ) . ")";
|
|
say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @{ $results->{with} };
|
|
|
|
say "No Match : (" . scalar( @{ $results->{without} } ) . ")";
|
|
say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @{ $results->{without} };
|
|
|
|
say "Without ISBN : (" . scalar( @{ $results->{no_isbn} } ) . ")";
|
|
say "biblionumber = $_->{biblionumber}" for @{ $results->{no_isbn} };
|