5 use Koha
::Script
-cron
;
8 my $results = C4
::SocialData
::get_report
;
10 say "==== Social Data report ====";
11 say "Matched : (" . scalar( @
{ $results->{with
} } ) . ")";
12 say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @
{ $results->{with
} };
14 say "No Match : (" . scalar( @
{ $results->{without
} } ) . ")";
15 say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @
{ $results->{without
} };
17 say "Without ISBN : (" . scalar( @
{ $results->{no_isbn
} } ) . ")";
18 say "biblionumber = $_->{biblionumber}" for @
{ $results->{no_isbn
} };