#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;

use Opals::Template qw(
    tmpl_read
    tmpl_write
);

use Opals::Equipment qw(
 
    eq_record_findByRId

);

use Opals::Eq_Circulation qw(
    
    circ_infoRecord
);

use Opals::Constant;

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        => 'eqmnt/ajax/getRecords.tmpl',
        #reqPermission   => 'eq_record_edit',
    }
);

    my $rid = $input->{'rid'};
    my @rids = split(/,/,$rid);
    my @list=();
    foreach my $id  (@rids){
        my $recInfo =  eq_record_findByRId($dbh, {recordId=>$id});
        my $rname = $recInfo->[0]->{'rname'};
        push @list, {
            rid     => $id,
            name    => $recInfo->[0]->{'rname'},
            rInfo   => $recInfo
        }
    }

    $template->param (
        records => \@list
    );

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