#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Digest::SHA qw(
    sha512_hex
);
use POSIX qw(
    ceil
);

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_rangedPageList
);
use Opals::User qw(
    user_currentUser
    user_getInformationById
);
use Opals::Constant;

use Opals::Inventory qw(
    inv_closeInventory
    inv_getInventory
    inv_deleteInventory
);


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

my $cgi = CGI->new;
# $cgi->param('aaa') returns an array of aaa
my $input = $cgi->Vars();

my $op =  $input->{'op'};
 $op = 'list' if ( !$op ); 
 
my ($permission, $cookieList, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'report/inventoryList.tmpl',
        reqPermission   => 'rpt_notice|rpt_catRec',
#        op              => $op,
    }
);

my $invId    = '';
$invId    = $input->{'invId'};
  my ($callNoB,$callNoE);
         $callNoB  = $input->{'callNoB'};
       $callNoE  = $input->{'callNoE'};

$template->param(hlpUrl     => Opals::Constant->getHlpUrl('inventoryList'));

    my $error;
    $error->{'errorCount'} = 0;
    my ($errCode, $myCookie, $user) = user_currentUser($dbh, $cgi);
    my $uid = $user->{'uid'};
    if ( $op eq 'close'){
        inv_closeInventory($dbh,$invId );
    }
    elsif ( $op eq 'delete'){
       inv_deleteInventory($dbh,$invId);
    }
    my @inventoryList = inv_getInventory($dbh);
    open debug,">/tmp/ii"; print debug scalar( @inventoryList);close debug;
    $template->param(
        inventoryList   => \@inventoryList,
        );
            


tmpl_write($dbh, $cgi, $cookieList, $template);
$dbh->disconnect();