#!/usr/bin/perl

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

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

use Opals::Ebook qw(
    eb_bookShelves_add
);
use Opals::User qw(
    user_currentUser
);


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

my $cgi          = CGI->new;
my $input        = $cgi->Vars();
my ($errCode, $cookie, $user) = user_currentUser($dbh, $cgi);

my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => '/ebook/saveBookmark.tmpl',
            reqPermission   => 'ebook_mgmt',
        }
    );
if($errCode==0){
    my $uid     = $user->{'uid'};
    my $rid     = $input->{'rid'};
    my $bsId    = eb_bookShelves_add($dbh,$uid,$rid);
  
    $template->param(
        rid  =>$rid,
        bsId =>$bsId
    );
}
else{
   $template->param(
        rid  =>0,
        bsId =>0
    );
}
 
tmpl_write($dbh, $cgi, $cookie, $template);
#------------------------------------------------------------------------------