#!/usr/bin/perl

use strict;
use CGI;

use Opals::Context;
use Opals::User qw(
    user_currentUser
    user_accessAllowed
);
use JSON;
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
my $input=getRequest();
my $cgi = CGI->new;
my ($errCode, $ck, $user) = user_currentUser($dbh, $cgi);

my $rs={error =>1};#error: 0 success, 1 permission denied
if ($user && $user->{'uid'} && user_accessAllowed($dbh,$cgi,$ENV{'SCRIPT_NAME'})) {
    my $sql = <<_SQL_;
insert into opl_studentILL
set     uid = ?,
        zid = ?,
        rid = ?,
        title = ?,
        author = ?,
        pubDate = ?,
        description = ?,
        dRequest = now(),
        dExpiry = now() + interval 4 week,
        responderList = ?
_SQL_

    my @param = (
        $user->{'uid'},
        $input->{'zid'},
        $input->{'rid'},
        $input->{'title'},
        $input->{'author'},
        $input->{'pubDate'},
        $input->{'description'},
        join(',', @{$input->{'responder_lid'}})
    );
    $dbh->do($sql, undef, @param);
    $rs={error =>0,
         uid=>$user->{'uid'}, 
         rid=>$input->{'rid'}};

}

print "Content-type: text/plain\n\n";

print   to_json($rs);


#-------------------------------------------------------------------------------
sub getRequest{

  my $request;
  if ($ENV{'REQUEST_METHOD'} eq "POST") {
        my $json ="";
        while (<STDIN>) {
            $json .= $_;
        }
         $request = decode_json($json);
    }
   return $request;
}