#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use Opals::Constant;
use Opals::Template_ajax qw(
    tmpl_read
    tmpl_write
);
use Opals::Context;use POSIX qw(
    ceil
);

use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

my $dbh = Opals::Context->dbh();
my $cgi     = CGI->new;
my ($permission, $cookie, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => '/marc21/recTypeJS.tmpl',
    }
);

my $recType =RECTYPE_DEF_TBL;

my $msgMap        =loc_getMsgFile('search/standard.msg',{});
my @mediaTypeTbl=();
my $fields={leader=>'ldr','006'=>'cf006','007'=>'cf007','008'=>'cf008'};
while(my ($key, $value) = each(%$recType)){
    next if($key =~  m/^_/) ;
    my $item={mType   =>$key, 
              group   =>$msgMap->{$value->{'group'}->{'name'}},
              name    =>$msgMap->{$key},
              order   =>$value->{'group'}->{'order'},
              subOrder=>$value->{'group'}->{'subOrder'},
              fields  =>[]
              };
    foreach my $field (keys %$fields){
        next if(!defined $value->{$field} || !defined $value->{$field}->{'prop'});
        my $fieldProp={field=>$fields->{$field}}; 
        my @propArr = @{$value->{$field}->{'prop'}};   
        my $fProps=();      
        foreach my  $e(@propArr){
            push @$fProps, {pos=>$e->{'p'},val=>$e->{'v'}};
        }
        $fieldProp->{'fieldProp'}= $fProps;
        push @{$item->{'fields'}},$fieldProp;

    }
 
    push @mediaTypeTbl,$item;
}

$template->param(mediaTypeTbl=>  \@mediaTypeTbl);
tmpl_write($dbh, $cgi, $cookie, $template);

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