#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use POSIX;
use JSON;
use Date::Calc qw(Day_of_Week Week_Number Day_of_Year);

use Opals::Date qw(
    date_parse
    date_today
    date_text
);

use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_rangedPageList
);
use Opals::Tb_Record qw(
    
    tb_defRecordIndex_getList
);

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        => 'txtbk/report/delExpFromHitList.tmpl',
        }
);

my $defRecordIndexList  = tb_defRecordIndex_getList($dbh, 1);
foreach my $f (@$defRecordIndexList){
    delete $f->{'checkbox'};
    delete $f->{'number'};
    delete $f->{'dataType'};
    delete $f->{'fieldType'};
    delete $f->{'gradeLevel'};
    delete $f->{'removable'};
    delete $f->{'showed'};
    delete $f->{'required'};
    delete $f->{'selected'};
    delete $f->{'repeatable'};
    delete $f->{'displayOrder'};
    delete $f->{'id'};
    delete $f->{'fieldId'};
    delete $f->{'subfield'};
}

$template->param(

   searchFields =>  to_json($defRecordIndexList),

);

tmpl_write($dbh, $cgi, $cookie, $template);