#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use POSIX qw(
    floor
    ceil
);

use Time::localtime;

use Digest::SHA qw(
    sha512_hex
);

use Opals::Constant;

use Opals::User qw(
    user_currentUser
    user_getInformationById
);

use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_rangedPageList
);


use Opals::Eq_Inventory qw(

    inv_getInventory
    inv_deleteInventory
    inv_closeInventory

);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();

my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'eqmnt/report/inventoryList.tmpl',
            reqPermission   => 'eq_report',
        }
);

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

    my $error;


    my ($errCode, $myCookie, $user) = user_currentUser($dbh, $cgi);
    my $uid = $user->{'uid'};
    if ($op =~ m/^close$/i) {
      inv_closeInventory($dbh,$invId);
    }
    elsif( $op =~ m/^delete$/i) {
        inv_deleteInventory($dbh,$invId);
    }

    my @inventoryList   = inv_getInventory($dbh);        
    
    $template->param (
        inventoryList   => \@inventoryList,
        url_eq_inventory=>'/bin/eqmnt/report/inventory'

    );
  

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