my $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    my $OPACBaseURL = C4::Context->preference('OPACBaseURL') // '';

# Koha is free software; you can redistribute it and/or modify it under the

# Koha is free software; you can redistribute it and/or modify it

# terms of the GNU General Public License as published by the Free Software

# under the terms of the GNU General Public License as published by

# Foundation; either version 2 of the License, or (at your option) any later

# the Free Software Foundation; either version 3 of the License, or

# version.

# (at your option) any later version.

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# Koha is distributed in the hope that it will be useful, but

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# WITHOUT ANY WARRANTY; without even the implied warranty of

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License along

# You should have received a copy of the GNU General Public License

# with Koha; if not, write to the Free Software Foundation, Inc.,

# along with Koha; if not, see <http://www.gnu.org/licenses>.

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use strict;

use Modern::Perl;

use warnings;

	@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber

    @EXPORT = qw(getreview savereview updatereview numberofreviews

		getreviews getallreviews approvereview unapprovereview deletereview);

                 numberofreviewsbybiblionumber getreviews

                 getallreviews approvereview unapprovereview

                 deletereview SendReviewAlert);

        SendReviewAlert( $review, $borrowernumber );

        SendReviewAlert( {

                           'reviewid'       => $reviewid,

                           'borrowernumber' => $borrowernumber,

                           'biblionumber'   => $biblionumber } );

        SendReviewAlert( $review, $borrowernumber );

        SendReviewAlert( {

                           'reviewid'       => $reviewid,

                           'borrowernumber' => $borrowernumber,

                           'biblionumber'   => $biblionumber } );

  SendReviewAlert( $review, $borrowernumber );

  SendReviewAlert( { 'reviewid'       => $reviewid,

                     'borrowernumber' => $borrowernumber,

                     'biblionumber'   => $biblionumber } );

    my $review = shift;

    my $params = shift;

    my $borrowernumber = shift;

VALUES ( 'members', 'COMMENT_CREATED', '', 'Comment created notification', '0', 'Comment from <<borrowers.cardnumber>> is waiting for moderation', 'Dear moderator,

VALUES ( 'members', 'COMMENT_CREATED', '', 'Comment created notification', '0', 'Comment from <<borrowers.cardnumber>> is waiting for moderation',

'Dear moderator,

We want to inform you that borrower <<borrowers.cardnumber>> has just created a new comment.

We want to inform you that borrower <<borrowers.cardnumber>> has just created a new comment on <<biblio.title>>, which is biblionumber <<biblio.biblionumber>>.

--- BEGIN COMMENT ---

<<reviews.review>>

--- END COMMENT ---

To approve:

http://<<staffClientBaseURL>>/cgi-bin/koha/reviews/reviewswaiting.pl?op=approve&reviewid=<<reviews.reviewid>>

To delete:

http://<<staffClientBaseURL>>/cgi-bin/koha/reviews/reviewswaiting.pl?op=delete&reviewid=<<reviews.reviewid>>

Or to review all comments:

http://<<staffClientBaseURL>>/cgi-bin/koha/reviews/reviewswaiting.pl

- 

#!/usr/bin/perl

use Modern::Perl;

use Test::More tests => 14;

use_ok('C4::Review');

my $dbh = C4::Context->dbh;

$dbh->{RaiseError} = 1;

$dbh->{AutoCommit} = 0;

my $sth = $dbh->prepare("SELECT * FROM borrowers;");

$sth->execute();

my $row = $sth->fetchrow_hashref();

my $borrowernumber;

$borrowernumber = $row->{'borrowernumber'} if $row;

$sth = $dbh->prepare("SELECT * FROM biblio;");

$sth->execute();

$row = $sth->fetchrow_hashref();

my $biblionumber;

$biblionumber = $row->{'biblionumber'} if $row;

SKIP: {

    skip "Missing borrowers or biblios",13

      unless $biblionumber and $borrowernumber;

    # Make sure there are no reviews

    $sth = $dbh->prepare("DELETE FROM reviews;");

    $sth->execute();

    # Clear out the message_queue to make counting easier.

    $sth = $dbh->prepare("DELETE FROM message_queue;");

    $sth->execute();

    # Add a review

    savereview($biblionumber,$borrowernumber,'A sample review.');

    # Retrieve review

    my $reviews = getallreviews(0);

    my $reviewid = $reviews->[0]->{'reviewid'};

    my $ReviewText = $reviews->[0]->{'review'};

    ok($ReviewText eq 'A sample review.','Saved and retrieved a sample review.');

    # Update the review

    updatereview($biblionumber,$borrowernumber,'A revised review.');

    # Retrieve it differently.

    my $review = getreview($biblionumber,$borrowernumber);

    $ReviewText = $review->{'review'};

    ok($ReviewText eq 'A revised review.','Updated and retrieved a revised review.');

    # Confirm 1 unapproved comment.

    my $UnapprovedReviewsCount = numberofreviews(0);

    ok($UnapprovedReviewsCount==1,'There is one unapproved comment.');

    # Approve the comment.

    approvereview($reviewid);

    $UnapprovedReviewsCount = numberofreviews(0);

    ok($UnapprovedReviewsCount==0,'There are no unapproved comments.');

    my $ApprovedReviewsCount = numberofreviews(1);

    ok($ApprovedReviewsCount==1,'There is one approved comment.');

    # Check how many reviews for this biblionumber.

    my $ReviewsCount = numberofreviewsbybiblionumber($biblionumber);

    ok($ReviewsCount==1,'There is one approved comment for this biblio.');

    # Unapprove the comment.

    unapprovereview($reviewid);

    $UnapprovedReviewsCount = numberofreviews(0);

    ok($UnapprovedReviewsCount==1,'There is one unapproved comment.');

    $ApprovedReviewsCount = numberofreviews(1);

    ok($ApprovedReviewsCount==0,'There are no approved comments.');

    # Delete the review.

    deletereview($reviewid);

    $UnapprovedReviewsCount = numberofreviews(0);

    ok($UnapprovedReviewsCount==0,'There are no unapproved comments.');

    $ApprovedReviewsCount = numberofreviews(1);

    ok($ApprovedReviewsCount==0,'There are no approved comments.');

    my $ApprovedReviews   = getreviews($biblionumber,1);

    my $UnapprovedReviews = getreviews($biblionumber,0);

    ok(scalar @$ApprovedReviews==0,'No approved comment records.');

    ok(scalar @$UnapprovedReviews==0,'No unapproved comment records.');

    # Only save, update, and SendReviewAlert should trigger letters.

    SendReviewAlert( { 'review' => 'A sample review unused.',

                       'biblionumber' => $biblionumber,

                       'borrowernumber' => $borrowernumber });

    $sth = $dbh->prepare("SELECT COUNT(*) FROM message_queue;");

    $sth->execute();

    my $LetterCount = $sth->fetchrow();

    ok($LetterCount==3,'There are three triggered reminders as expected.');

}

$dbh->rollback();