#!/usr/bin/perl

use strict;
use CGI;

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

use Opals::Tb_Record qw(
    
    tb_defRecordIndex_getList
    tb_defItemIndex_getList
    tb_defIndex_update

);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookieList, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => '/txtbk/defineFields.tmpl',
#        reqPermission   => 'reqPermission1|reqPermission2|etc.',
    }
);

my $save = $input->{'save'};
my @rfList = ($cgi->param('recDef'));
my ($rfIndex, $selected);

if ($save eq "save") {
    foreach my $f(@rfList){
        if ($f =~ m/([^\t]+)\t([^\n\r]+)/) {
            $rfIndex = $1;
            $selected = $2;
            my ($fieldId, $subfield) = split(/_/, $rfIndex);
            $selected = ($selected eq 'true')?'1':'0';
            tb_defIndex_update($dbh, $selected, $fieldId, $subfield);
        }
    }
}
    #$defRecordIndexList = getDefRecordIndexList($dbh);

my $defRecordIndexList  = tb_defRecordIndex_getList($dbh);



$template->param(
    defRecordIndexList => $defRecordIndexList,


);

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