|
Lines 120-126
sub get_report {
Link Here
|
| 120 |
|
120 |
|
| 121 |
my $sth = $dbh->prepare( qq{ |
121 |
my $sth = $dbh->prepare( qq{ |
| 122 |
SELECT biblionumber, isbn FROM biblioitems |
122 |
SELECT biblionumber, isbn FROM biblioitems |
| 123 |
} ); |
123 |
} ); # FIXME We could better join socialdata here than call get_data for each record? |
| 124 |
$sth->execute; |
124 |
$sth->execute; |
| 125 |
my %results; |
125 |
my %results; |
| 126 |
while ( my ( $biblionumber, $isbn ) = $sth->fetchrow() ) { |
126 |
while ( my ( $biblionumber, $isbn ) = $sth->fetchrow() ) { |
|
Lines 135-141
sub get_report {
Link Here
|
| 135 |
}; |
135 |
}; |
| 136 |
next if $@; |
136 |
next if $@; |
| 137 |
$isbn =~ s/-//g; |
137 |
$isbn =~ s/-//g; |
| 138 |
my $social_datas = C4::SocialData::get_data( $isbn ); |
138 |
my $social_datas = C4::SocialData::get_data( $isbn ); # FIXME Why is data not included in $results ? |
| 139 |
if ( $social_datas ) { |
139 |
if ( $social_datas ) { |
| 140 |
push @{ $results{with} }, { biblionumber => $biblionumber, isbn => $isbn, original => $original_isbn }; |
140 |
push @{ $results{with} }, { biblionumber => $biblionumber, isbn => $isbn, original => $original_isbn }; |
| 141 |
} else { |
141 |
} else { |
| 142 |
- |
|
|