#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_redirect
    tmpl_preference

);
use Opals::User qw(
    user_logout
);
use Opals::Portal qw(
    portal_getLayout
    portal_getLibCalendar
);

use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'ajax/portlet/saveDateEvent.tmpl',
        }
);
if ($permission && $permission->{'pref_edit'}) {
    $dbh->do("delete from  opl_dateClosed");

            my $sth = $dbh->prepare(<<_STH_);
    insert into opl_dateClosed
    set     dClosed = ?,
            dLabel  = ?,
            note    = ?,
            closed  = ?,
            imgName = ?
_STH_
        my @cDate       =($cgi->param('dClosed'));
        my @cDateDesc   =($cgi->param('dLabel'));
        my @cDateNote   =($cgi->param('note'));
        for(my $i =0; $i < scalar(@cDate);$i++) {
            if($cDate[$i] =~ m/\d{4}\-\d{1,2}\-\d{1,2}/g  && $cDateDesc[$i] ne '' ){
                $sth->execute($cDate[$i],$cDateDesc[$i],$cDateNote[$i],'1','');
            }
        }

        $sth->finish;
        $template->param(
            status=>1,
            cDate   =>$cDate[0],
            cDateDesc=>$cDateDesc[0],
            cDateNote=>$cDateNote[0]
        );
}


my $stdMsgMap  =loc_getMsgFile('search/standard.msg');
loc_write($template,$stdMsgMap);

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

##################################################################