View | Details | Raw Unified | Return to bug 33833
Collapse All | Expand All

(-)a/C4/SocialData.pm (-3 / +2 lines)
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
- 

Return to bug 33833