#!/usr/bin/perl

use strict;
use CGI;

use Opals::Context;
use JSON;
use Opals::Constant;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_preference
    tmpl_rangedPageList

);

use Opals::Date qw(
    date_text
    date_now
);

use Opals::Equipment qw(
    
    eq_item_findByBarcode 

);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $todayStr   = date_now();
$todayStr =~ s/([\d]{4}-[\d]{2}-[\d]{2}) ([\d:])+/$1/;
my $statusType = {
    0 => 'Missing',
    2 => 'Damaged',
    3 => 'Lost',
    10=> 'In Repair',
    13=> 'Withdrawn'
};
my ($permission, $cookie, $template);
    ($permission, $cookie, $template) = tmpl_read(
            {
                dbh             => $dbh,
                cgi             => $cgi,
                tmplFile        => 'eqmnt/report/itemListByStatus.tmpl',
                reqPermission   => 'eq_report',
            }
    );

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

    my $statusList = [
        {"name"=> "Missing" ,"code"=> 0 ,"selected"=> "false" },
        {"name"=> "Damaged" ,"code"=> 2 ,"selected"=> "false"},
        {"name"=> "Lost"    ,"code"=> 3 ,"selected"=> "false"},
        {"name"=> "Disposed of" ,"code"=> 5 ,"selected"=> "false"},
        {"name"=>"In Repair","code"=> 10,"selected"=> "false" },
        {"name"=>"Withdrawn","code"=> 13,"selected"=> "false"}
    ];
    foreach my $s (@$statusList){
        $s->{selected} = "false";
        $s->{'selected'} = ($s->{'code'} == $status)?"true":"false";
    }
    $template->param(
       selectedStatus =>  $status,
       statusList =>to_json($statusList),
       dateToday  => $todayStr,
       type       => $statusType->{$status} || ""

    );

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

#########################################################################