David Cook
2e103a018c
Currently, the perl path for get_report_social_data.pl is "#!/bin/perl" when it should be "#!/usr/bin/perl". While I'm not entirely sure how to test this, rangi did mention: 23:47 (it wouldnt work on my debian install) 23:48 zsh: no such file or directory: /bin/perl It's a pretty trivial change, so I'm not sure it needs much of a test plan. Signed-off-by: Magnus Enger <magnus@enger.priv.no> Before the patch "grep -r '#!/bin/perl' in the misc dir shows one file with this line, and it is indeed get_report_social_data.pl. After the patch there are no occurrences left. Passed-QA-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
16 lines
629 B
Perl
16 lines
629 B
Perl
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
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} };
|