bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / C4 / SocialData.pm
1 package C4::SocialData;
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA  02111-1307 USA
17
18 use Modern::Perl;
19
20 use C4::Context;
21 use Business::ISBN;
22 use C4::Koha;
23
24 =head1 NAME
25
26 C4::SocialData - Koha functions for dealing with social datas
27 For now used by babeltheque, a french company providing, for books, comments, upload of videos, scoring (star)...
28 the social_data table could be used and improved by other provides.
29
30 =head1 SYNOPSIS
31
32 use C4::SocialData;
33
34 =head1 DESCRIPTION
35
36 The functions in this module deal with social datas
37
38 =head1 FUNCTIONS
39
40 =head2 get_data
41
42 Get social data from a biblio
43
44 params:
45   $isbn = isbn of the biblio (it must be the same in your database, isbn given to babelio)
46
47 returns:
48   this function returns an hashref with keys
49
50   isbn = isbn
51   num_critics = number of critics
52   num_critics_pro = number of profesionnal critics
53   num_quotations = number of quotations
54   num_videos = number of videos
55   score_avg = average score
56   num_scores = number of score
57 =cut
58
59 sub get_data {
60     my ( $isbn ) = @_;
61     my $dbh = C4::Context->dbh;
62     my $sth = $dbh->prepare( qq{SELECT * FROM social_data WHERE isbn = ? LIMIT 1} );
63     $sth->execute( $isbn );
64     my $results = $sth->fetchrow_hashref;
65
66     return $results;
67 }
68
69 =head2 update_data
70
71 Update Social data
72
73 params:
74   $url = url containing csv file with data
75
76 data separator : ; (semicolon)
77 data order : isbn ; active ; critics number , critics pro number ; quotations number ; videos number ; average score ; scores number
78
79 =cut
80
81 sub update_data {
82     my ( $output_filepath ) = @_;
83
84     my $dbh = C4::Context->dbh;
85     my $sth = $dbh->prepare( qq{INSERT INTO social_data (
86             `isbn`, `num_critics`, `num_critics_pro`, `num_quotations`, `num_videos`, `score_avg`, `num_scores`
87         ) VALUES ( ?, ?, ?, ?, ?, ?, ? )
88         ON DUPLICATE KEY UPDATE `num_critics`=?, `num_critics_pro`=?, `num_quotations`=?, `num_videos`=?, `score_avg`=?, `num_scores`=?
89     } );
90
91     open my $file, '<', $output_filepath or die "File $output_filepath can not be read";
92     my $sep = qq{;};
93     my $i = 0;
94     my $unknown = 0;
95     while ( my $line = <$file> ) {
96         my ( $isbn, $active, $num_critics, $num_critics_pro, $num_quotations, $num_videos, $score_avg, $num_scores ) = split $sep, $line;
97         next if not $active;
98         eval {
99             $sth->execute( $isbn, $num_critics, $num_critics_pro, $num_quotations, $num_videos, $score_avg, $num_scores,
100                 $num_critics, $num_critics_pro, $num_quotations, $num_videos, $score_avg, $num_scores
101             );
102         };
103         if ( $@ ) {
104             warn "Can't insert $isbn ($@)";
105         } else {
106             $i++;
107         }
108     }
109     say "$i data insered or updated";
110 }
111
112 =head2 get_report
113
114 Get social data report
115
116 =cut
117
118 sub get_report {
119     my $dbh = C4::Context->dbh;
120
121     my $sth = $dbh->prepare( qq{
122         SELECT biblionumber, isbn FROM biblioitems
123     } );
124     $sth->execute;
125     my %results;
126     while ( my ( $biblionumber, $isbn ) = $sth->fetchrow() ) {
127         push @{ $results{no_isbn} }, { biblionumber => $biblionumber } and next if not $isbn;
128         my $original_isbn = $isbn;
129         $isbn =~ s/^\s*(\S*)\s*$/$1/;
130         $isbn = GetNormalizedISBN( $isbn, undef, undef );
131         $isbn = Business::ISBN->new( $isbn );
132         next if not $isbn;
133         eval{
134             $isbn = $isbn->as_isbn13->as_string;
135         };
136         next if $@;
137         $isbn =~ s/-//g;
138         my $social_datas = C4::SocialData::get_data( $isbn );
139         if ( $social_datas ) {
140             push @{ $results{with} }, { biblionumber => $biblionumber, isbn => $isbn, original => $original_isbn };
141         } else {
142             push @{ $results{without} }, { biblionumber => $biblionumber, isbn => $isbn, original => $original_isbn };
143         }
144     }
145     return \%results;
146 }
147
148 1;