#!/usr/bin/perl

use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

use Opals::RecordInfoHTML qw(
    marc21_getMarcRec
);

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        => 'marc21/marcPrint.tmpl',
    }
       
);
  my $rid     = $input->{'rid'};
  my $prtOpt={};
  my $marcCont="";
  if($rid && $rid>0){
        $marcCont=marc21_getMarcRec($dbh,$rid,$prtOpt);
   }

  $template->param(marcContent=>$marcCont);


#=======================================================

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

#======================================================================