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

(-)a/C4/Review.pm (-21 / +1 lines)
Lines 27-33 use vars qw(@ISA @EXPORT); Link Here
27
BEGIN {
27
BEGIN {
28
    require Exporter;
28
    require Exporter;
29
    @ISA    = qw(Exporter);
29
    @ISA    = qw(Exporter);
30
    @EXPORT = qw(savereview updatereview numberofreviews numberofreviewsbybiblionumber);
30
    @EXPORT = qw(savereview updatereview numberofreviewsbybiblionumber);
31
}
31
}
32
32
33
=head1 NAME
33
=head1 NAME
Lines 40-46 C4::Review - Perl Module containing routines for dealing with reviews of items Link Here
40
40
41
  savereview($biblionumber,$borrowernumber,$review);
41
  savereview($biblionumber,$borrowernumber,$review);
42
  updatereview($biblionumber,$borrowernumber,$review);
42
  updatereview($biblionumber,$borrowernumber,$review);
43
  my $count=numberofreviews($status);
44
  my $count=numberofreviewsbybiblionumber($biblionumber);
43
  my $count=numberofreviewsbybiblionumber($biblionumber);
45
44
46
=head1 DESCRIPTION
45
=head1 DESCRIPTION
Lines 83-107 sub updatereview { Link Here
83
    $sth->execute( $review, $borrowernumber, $biblionumber );
82
    $sth->execute( $review, $borrowernumber, $biblionumber );
84
}
83
}
85
84
86
=head2 numberofreviews
87
88
  my $count=numberofreviews( [$status] );
89
90
Return the number of reviews where in the 'reviews' database : 'approved' = $status
91
(By default $status = 1)
92
93
=cut
94
95
sub numberofreviews {
96
    my ($param) = @_;
97
    my $status = ( defined($param) ? $param : 1 );
98
    my $dbh    = C4::Context->dbh;
99
    my $query  = "SELECT count(*) FROM reviews WHERE approved=?";
100
    my $sth    = $dbh->prepare($query);
101
    $sth->execute($status);
102
    return $sth->fetchrow;
103
}
104
105
=head2 numberofreviewsbybiblionumber
85
=head2 numberofreviewsbybiblionumber
106
86
107
  my $count=numberofreviewsbybiblionumber($biblionumber);
87
  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::Patron::Modifications;
30
use Koha::Patron::Modifications;
32
use Koha::Patron::Discharge;
31
use Koha::Patron::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