#!/usr/bin/perl 
# for i in `ls /etc/opals/conf/`; do cp -p /www/opals/script/delTmpIll_union /tmp/urt; perl -pi -e "s/_MY_SITE_/$i/" /tmp/urt; sudo /tmp/urt; done


use lib "/www/opals/module";;
use Opals::Context('/etc/opals/conf/_MY_SITE_');
use strict;
use Opals::Constant; 
use Date::Calc::Object qw(
    :all
);
use Digest::SHA qw(
    sha1_hex
    sha512_hex
);

use POSIX qw(
    ceil
    floor
);
use Time::localtime;

use JSON;
use CGI;
use DBI;
use Opals::UnionRequest qw(
    urq_createUnionRequest
);

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

my ($autoUpdateUnion)=$dbh->selectrow_array("select val from opl_preference where var='autoUpdateUnion'");
if($autoUpdateUnion eq '1'){

    my $sth=$dbh->prepare("select i.rid,i.barcode from opl_item i inner join opl_marcRecord m using(rid) where tempIll='temporary' || tempIll='ILL'");
    $sth->execute();
    my $ridBdListDel={};
    while(my ($rid,$bc) =$sth->fetchrow_array){
         if(!defined $ridBdListDel){
             $ridBdListDel->{$rid}=[];
         }
         $bc=~ s/^___|_\d\d\d$//g;
         push @{$ridBdListDel->{$rid}},$bc;
    }
# print to_json($ridBdListDel,{pretty=>1});
    urq_createUnionRequest($dbh,1,"deletion",$ridBdListDel);


}