#!/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_containerItems_getList
    eq_item_findByBarcode

);

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/getContainerItemList.tmpl',
        reqPermission   => 'eq_record_edit',
    }
);

    my $containerId = $input->{'containerId'};
    my $containerInfo = eq_item_findByBarcode($dbh,$containerId);
    my $containerList = eq_containerItems_getList($dbh,$containerId);
    foreach my $c (@$containerList){
        my $ret = eq_item_findByBarcode($dbh,$c->{'barcode'});
        $c->{'fields'} = $ret->{'fields'};
    }
    $template->param (
        containerId     => $containerId,
        rname           => $containerInfo->{'rname'},
        fields          => $containerInfo->{'fields'},
        containerList   => $containerList
    );

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