#!/usr/bin/perl

use strict;
use CGI;

use Opals::Context;
use Opals::Template_ajax qw(
    tmpl_read
    tmpl_write
);
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

use JSON;
 
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/delOWLLeafDB.tmpl',
    }
);


    my $leafId      = $input->{"leafId"};
    my $sth=$dbh->prepare("update opl_extDatabase set name='', url='', description='' where page='OWL' && rank=?");
    my $rv =$sth->execute($leafId);  
    
    $sth->finish;  
    my $status = ($rv eq '0E0') ? 0 : 1;        
    $template->param(
        status => $status,
        leafId => $leafId
    );

print "Content-type: text/plain\n\n";
print   to_json({status => $status,leafId => $leafId});