#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

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

use Opals::Context;use POSIX qw(
    ceil
);
use Opals::MarcXml qw(
    mxml_saveTemplate
);
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

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

my $cgi      = CGI->new;
my $input = $cgi->Vars();



my $tid     = $input->{'tid'};
my $marcXml = $input->{'marcXml'};
my $name    = $input->{'name'};
my $rank    = $input->{'rank'};
my $op      = "tmplMarcSaveAs";
   $op      = "" if(defined $tid && $tid>0);
my ($permission, $cookie, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'ajax/marc21/saveTemplate.tmpl',
        reqPermission   => 'marc_edit',
    }
);
 
    my $rs= mxml_saveTemplate({
        dbh     => $dbh,
        op      => $op,
        tid     => $tid,
        rank    => $rank,
        name    => $name,
        content => $marcXml});
    $template->param(status=>1);

    my $msgValMap={
                    marc21Edit_msg04=>{tmplName=>$template->param('tmplName')},
                    marc21Edit_msg05=>{tmplName=>$template->param('tmplName')},
                    marc21Edit_msg06=>{tmplName=>$template->param('tmplName')}
                    };
  my $marc21EditMsgMap =loc_getMsgFile('marc21/edit.msg',$msgValMap);
  loc_write($template,$marc21EditMsgMap);
                  
tmpl_write($dbh, $cgi, $cookie, $template);

#------------------------------------------------------------------------------