#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);
use Opals::Circulation qw(
    circ_getRecInfo
);

use Opals::Rating qw(
    cmntRating_update
    cmntRating_getInfoByRid

);

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $pageNum= $input->{'pageNum'};
my $pSize= $input->{'pSize'};
($pageNum  && $pageNum >=1)||($pageNum=1); 
($pSize && $pSize >=1)||($pSize=10);
my $offset= ($pageNum -1) * $pSize ;


my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'ajax/rating/saveReview.tmpl',
            reqPermission   => 'rating',
        }
);
 #my $repuid = $template->param('curUserId');
 
 my $rid= $input->{'rid'};

 my @idArr = ($cgi->param('cid'));
 foreach my $id(@idArr){
    my $accepted = $input->{'accepted_' . $id};
    my $repuid   =  $input->{'curUserId'};
   #if($accepted || $accepted == 0){
    if(defined $accepted && $accepted ne ''){   
        my $cmntRating={reviewerUid=>$repuid,id=>$id,accepted=>$accepted,reviewed=>1};
        cmntRating_update($dbh,$cmntRating);
    }
 }
my $ratingInfo =cmntRating_getInfoByRid($dbh,$rid);
 
  
$template->param(
        rid=>$rid,
        totalRating=>$ratingInfo->{'totalRating'},
        totalReviewed=>$ratingInfo->{'totalReviewed'},
        totalAccepted=>$ratingInfo->{'totalAccepted'},
        totalRejected=>$ratingInfo->{'totalRejected'},
        totalNotReview=>$ratingInfo->{'totalNotReview'},
        
        );




tmpl_write($dbh, $cgi, $cookie, $template);