#!/usr/bin/perl 
use strict;
use lib("/www/opals/module");
use Opals::Context('/etc/opals/conf/opl_ha');
use Opals::SolrIndex qw(
    slr_sbjAuthority_search
);

use JSON;

my $sArg={'keyword'=>"*" ,
          'tag' =>"655",
          'ind2'=>"0",
          'src'=>"LOC"
    };

my($offset,$size)=(0,50);
my $genrelist=[];
while(1){
    my ($subjectCount,$subjectList)=slr_sbjAuthority_search($sArg,$offset,$size);
    foreach my $sbj(@$subjectList){
        print $sbj->{'subject_grp'}, "\n";
        push @$genrelist,$sbj->{'subject_grp'};
    }
    $offset +=$size;
    last if($offset>$subjectCount);
}
@$genrelist= sort @$genrelist;
open GENRE,">/tmp/genre_LOC.js";
print GENRE "var locGenre=", to_json($genrelist),";";
close GENRE;