#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Digest::SHA qw(
    sha1_base64
    sha1_hex
);

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

use Opals::Date qw(
    date_f005
);

use Opals::Rating qw(
    cmntRating_insert
    cmntRating_update
);

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

my $cgi          = CGI->new;
my $input        = $cgi->Vars();
my $op           = $input->{"op"};
my $firstname    = $input->{'r_firstname'};
my $lastname     = $input->{'r_lastname'};
my $t_firstname  = $input->{'t_firstname'};
my $t_lastname   = $input->{'t_lastname'};
my $comment      = $input->{'r_comment'};
my $rid          = $input->{'rid'};
my $rating       = $input->{'r_rating'};
my $cid=0;
($rating) || ($rating=0);
my ($status,$errorCode,$errorMsg)    ;
my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'ajax/rating/saveCmntRating.tmpl',
        }
    );
  if($op eq 'save'){
      $cid = cmntRating_insert($dbh,$rid, $rating, $comment, $firstname, $lastname,$t_firstname,$t_lastname);
  }
  elsif($op eq 'update'){
     $cid = $input->{'cid'};
     $comment      = $input->{'r_comment'};
     my $cmntRating={id=>$input->{'cid'},comment=>$comment,t_firstname=>$t_firstname,t_lastname=>$t_lastname};
     cmntRating_update($dbh,$cmntRating);
  }
   my $teacher  = $t_firstname if($t_firstname ne "");
    if($t_lastname ne ""){
        $teacher .= "  " if($teacher ne "");
        $teacher .= $t_lastname;
    }

  $template->param(
     id         => $cid,
     saveCode   => '1',
     firstname  => $firstname,
     lastname   => $lastname,
     t_firstname=>$t_firstname,
     t_lastname =>$t_lastname,
     teacher    =>$teacher, 
     rid        => $rid,
     rating     => $rating,
     comment    => $comment
 );

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