#!/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_bookmark_del
);
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/deleteBookmark.tmpl',
            reqPermission   => 'ebook_mgmt',
        }
    );

if($errCode==0){
    my $uid     = $user->{'uid'};
    my $bid     = $input->{'bid'};
    my $bmId    = $input->{'bmId'};
    my $fid     = $input->{'fid'};
    my $percFr  = $input->{'percFr'};
    my $percTo  = $input->{'percTo'};


    eb_bookmark_del($dbh,$uid,$bid,$fid,$percFr,$percTo);
  
    $template->param( bid => $bid );
}
else{
    $template->param( bid => 0 ) ;
}
tmpl_write($dbh, $cgi, $cookie, $template);
#------------------------------------------------------------------------------