#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);
use Opals::Search qw(
    srch_searchRecord
);
use Opals::Marc21 qw(
    mc21_parseRecord
);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $srchField = $input->{'sf'};
($srchField) || ($srchField = 0);
my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'marc21/view.tmpl',
            srchField       => $srchField,
        }
);

my $op = $input->{'op'};

if ($op =~ m/^search$/i) {
    my $zdb = srch_zDatabase($input->{'zid'});
    
}

    # See Search.pm for more info on use attribute.
    my $pqf = "\@attr 1=12 $rid";
    my ($resultSize, $marcxml) = srch_searchRecord($dbh, $zid, 'f', $pqf, $ENV{'Z_INDEX_BASE'}, 1);
    my @rec = mc21_parseRecord($marcxml->[0]);
    $template->param(
        zid => $zid,
        rec => \@rec,
    );


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