#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Opals::Context;use POSIX qw(
    ceil
);
use Opals::Context;
use Opals::Template_ajax qw(
    tmpl_read
    tmpl_write
);
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);
use Opals::MarcXmlParser;

my $cgi = CGI->new;
my $input= $cgi->Vars();
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'ajax/getBib.tmpl',
        }
);


my @ridList = split(/,/, $input->{'ridList'});
my $marcXmlParser=Opals::MarcXmlParser->new();
my $fMap= qw(rid title author callnum1St isbn_first placePublication namePublisher datePublication page);
my $recordList;
for(my $i=0;$i<scalar(@ridList);$i++){
    my $rid = @ridList[$i];
    my $fname=recordPath($rid)."/$rid.xml";
    my $rec=$marcXmlParser->getRecInfoGeneral_file($fname);
    push @$recordList,$rec;

   }
  $template->param(
        recordList      =>$recordList,
    );

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


#####################################################
sub recordPath {
    my ($rid) = @_;
    
    my $zRoot   = Opals::Context->config('zRoot');
    my $zPort   = Opals::Context->config('zPort');
    my $zDatabase = Opals::Context->config('zDatabase');
    my $dir     = "$zRoot/$zPort/record/$zDatabase/" . ceil($rid/1000);

    return $dir;
}