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

(-)a/C4/Review.pm (-21 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
    $VERSION = 3.07.00.049;
29
    $VERSION = 3.07.00.049;
30
    require Exporter;
30
    require Exporter;
31
    @ISA    = qw(Exporter);
31
    @ISA    = qw(Exporter);
32
    @EXPORT = qw(savereview updatereview numberofreviews numberofreviewsbybiblionumber);
32
    @EXPORT = qw(savereview updatereview numberofreviewsbybiblionumber);
33
}
33
}
34
34
35
=head1 NAME
35
=head1 NAME
Lines 42-48 C4::Review - Perl Module containing routines for dealing with reviews of items Link Here
42
42
43
  savereview($biblionumber,$borrowernumber,$review);
43
  savereview($biblionumber,$borrowernumber,$review);
44
  updatereview($biblionumber,$borrowernumber,$review);
44
  updatereview($biblionumber,$borrowernumber,$review);
45
  my $count=numberofreviews($status);
46
  my $count=numberofreviewsbybiblionumber($biblionumber);
45
  my $count=numberofreviewsbybiblionumber($biblionumber);
47
46
48
=head1 DESCRIPTION
47
=head1 DESCRIPTION
Lines 85-109 sub updatereview { Link Here
85
    $sth->execute( $review, $borrowernumber, $biblionumber );
84
    $sth->execute( $review, $borrowernumber, $biblionumber );
86
}
85
}
87
86
88
=head2 numberofreviews
89
90
  my $count=numberofreviews( [$status] );
91
92
Return the number of reviews where in the 'reviews' database : 'approved' = $status
93
(By default $status = 1)
94
95
=cut
96
97
sub numberofreviews {
98
    my ($param) = @_;
99
    my $status = ( defined($param) ? $param : 1 );
100
    my $dbh    = C4::Context->dbh;
101
    my $query  = "SELECT count(*) FROM reviews WHERE approved=?";
102
    my $sth    = $dbh->prepare($query);
103
    $sth->execute($status);
104
    return $sth->fetchrow;
105
}
106
107
=head2 numberofreviewsbybiblionumber
87
=head2 numberofreviewsbybiblionumber
108
88
109
  my $count=numberofreviewsbybiblionumber($biblionumber);
89
  my $count=numberofreviewsbybiblionumber($biblionumber);
(-)a/mainpage.pl (-2 / +2 lines)
Lines 25-35 use C4::Output; Link Here
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::NewsChannels; # GetNewsToDisplay
27
use C4::NewsChannels; # GetNewsToDisplay
28
use C4::Review qw/numberofreviews/;
29
use C4::Suggestions qw/CountSuggestion/;
28
use C4::Suggestions qw/CountSuggestion/;
30
use C4::Tags qw/get_count_by_tag_status/;
29
use C4::Tags qw/get_count_by_tag_status/;
31
use Koha::Borrower::Modifications;
30
use Koha::Borrower::Modifications;
32
use Koha::Borrower::Discharge;
31
use Koha::Borrower::Discharge;
32
use Koha::Reviews;
33
33
34
my $query = new CGI;
34
my $query = new CGI;
35
35
Lines 62-68 my $branch = Link Here
62
  ? C4::Context->userenv()->{'branch'}
62
  ? C4::Context->userenv()->{'branch'}
63
  : undef;
63
  : undef;
64
64
65
my $pendingcomments    = numberofreviews(0);
65
my $pendingcomments    = Koha::Reviews->search({ approved => 0 })->count;
66
my $pendingtags        = get_count_by_tag_status(0);
66
my $pendingtags        = get_count_by_tag_status(0);
67
my $pendingsuggestions = CountSuggestion("ASKED");
67
my $pendingsuggestions = CountSuggestion("ASKED");
68
my $pending_borrower_modifications =
68
my $pending_borrower_modifications =
(-)a/opac/opac-showreviews.pl (-1 / +1 lines)
Lines 85-91 my $reviews = Koha::Reviews->search( Link Here
85
    }
85
    }
86
)->unblessed;
86
)->unblessed;
87
my $marcflavour      = C4::Context->preference("marcflavour");
87
my $marcflavour      = C4::Context->preference("marcflavour");
88
my $hits = numberofreviews(1);
88
my $hits = Koha::Reviews->search({ approved => 1 })->count;
89
my $i = 0;
89
my $i = 0;
90
my $latest_comment_date;
90
my $latest_comment_date;
91
for my $result (@$reviews){
91
for my $result (@$reviews){
(-)a/reviews/reviewswaiting.pl (-1 / +1 lines)
Lines 43-49 my $status = $query->param('status') || 0; Link Here
43
my $reviewid = $query->param('reviewid');
43
my $reviewid = $query->param('reviewid');
44
my $page     = $query->param('page') || 1;
44
my $page     = $query->param('page') || 1;
45
my $count    = C4::Context->preference('numSearchResults') || 20;
45
my $count    = C4::Context->preference('numSearchResults') || 20;
46
my $total    = numberofreviews($status);
46
my $total    = Koha::Reviews->search({ approved => $status })->count;
47
47
48
if ( $op eq 'approve' ) {
48
if ( $op eq 'approve' ) {
49
    my $review = Koha::Reviews->find( $reviewid );
49
    my $review = Koha::Reviews->find( $reviewid );
(-)a/tools/tools-home.pl (-5 / +3 lines)
Lines 15-28 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
22
use C4::Auth;
21
use C4::Auth;
23
use C4::Output;
22
use C4::Output;
24
use C4::Review qw/numberofreviews/;
25
use C4::Tags qw/get_count_by_tag_status/;
23
use C4::Tags qw/get_count_by_tag_status/;
24
use Koha::Reviews;
26
25
27
my $query = new CGI;
26
my $query = new CGI;
28
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
27
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Lines 36-42 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
36
    }
35
    }
37
);
36
);
38
37
39
my $pendingcomments = numberofreviews(0);
38
my $pendingcomments = Koha::Reviews->search({ approved => 0 })->count;
40
my $pendingtags = get_count_by_tag_status(0);
39
my $pendingtags = get_count_by_tag_status(0);
41
40
42
$template->param(
41
$template->param(
43
- 

Return to bug 15839