#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Opals::Template_ajax qw(
    tmpl_read
    tmpl_write
    tmpl_preference
);
use Opals::Context;
use Opals::Constant;
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);
use Opals::WebServiceEbookClient qw(
    wsc_updateMetadata
);

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/util/saveMetaDataInfo.tmpl',
            reqPermission   => 'ebook_mgmt',
        }
);

my $uid       = $ENV{'curUserId'};
my $bid       = $input->{'bid'};
if ($permission && $permission->{'ebook_mgmt'}) {
    if($bid){
        my $metaData = {title        =>$input->{"title"},
                        author       =>$input->{"author"},
                        language     =>$input->{"language"},
                        ISBN         =>$input->{"isbn"},
                        description  =>$input->{"description"},
                        pubDate      =>$input->{"pubDate"},
                        publisher    =>$input->{"publisher"},
                        bookCover    =>$input->{"bookCover"},
                        bid          =>$bid
                       };
        $bid =  wsc_updateMetadata($metaData);           
        $template->param(
            bid          =>$bid,
            title        =>$input->{"title"},
            author       =>$input->{"author"},
            language     =>$input->{"language"},
            ISBN         =>$input->{"isbn"},
            description  =>$input->{"description"},
            pubDate      =>$input->{"pubDate"},
            publisher    =>$input->{"publisher"},
            bookCover    =>$input->{"bookCover"},
            );

    }

}

#-------------------------------------------------------------
#Thu, Jan 07, 2010 @ 13:50:35 EST
my $msgValMap ={};
my $fileMsgMap            =loc_getMsgFile('ebook.msg',$msgValMap);

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