#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

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

    
);

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/marc21/subjectList.tmpl',
        reqPermission   => 'marc_edit',
    }
);


my $sTerm    = $input->{'keyword'};  
my $sTag     = $input->{'tag'};  
my $sInd2    = $input->{'ind2'}; 
my $src      = $input->{'src'}; 

my $pSize    = $input->{'pSize'};
my $curPage  = $input->{'pNum'};
   ($curPage && $curPage >= 1) || ($curPage = 1);
my $offset      = ($curPage - 1) * $pSize ;


#($pNum,$pSize) = (0,10);
if ($permission && $permission->{'marc_edit'}) {
    my $sArg={keyword=>$sTerm} ;
    $sArg->{'tag'}  =$sTag  if($sTag  && $sTag ne "");
    $sArg->{'ind2'} =$sInd2 if($sInd2 =~ m/^[0-7]$/g);
    #Ha $sArg->{'src'}  =(!defined $src || $src ne 'localDB')?"LOC":$src;
    $sArg->{'src'}  =(!defined $src || ($src ne 'localDB' && $src ne 'BISAC'))?"LOC":$src;
    $sInd2 = "0"  if ($sInd2 == '');

    my ($subjectCount,$subjectList)   =  slr_sbjAuthority_search($sArg,$offset,$pSize);
    $template->param(subjectList  => $subjectList,
                     subjectCount => $subjectCount,
                     pNum         => $curPage,
                     pSize        => $pSize,
                     sTerm        => $sTerm,
                     "$sTag"      => 1,
                     src          => $src,
                     "ind2_$sInd2"=> 1
                     ); 


}

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