misc/cronjobs/social_data/get_report_social_data.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Koha::Script -cron;
   6 use C4::SocialData;
   7
   8 my $results = C4::SocialData::get_report;
   9
  10 say "==== Social Data report ====";
  11 say "Matched : (" . scalar( @{ $results->{with} } ) . ")";
  12 say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @{ $results->{with} };
  13
  14 say "No Match : (" . scalar( @{ $results->{without} } ) . ")";
  15 say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @{ $results->{without} };
  16
  17 say "Without ISBN : (" . scalar( @{ $results->{no_isbn} } ) . ")";
  18 say "biblionumber = $_->{biblionumber}" for @{ $results->{no_isbn} };