#!/usr/bin/perl 

use lib "/www/opals-working/module";;
use Opals::Context('/etc/opals/conf/opl_ha');
use strict;
use Opals::UrlRegistry qw(
    ureg_getUrlRegistry
    ureg_getMenu
);
use CGI;
use DBI;
use Text::CSV_XS;
use Opals::Date qw(
    date_parse
);
use Class::CSV;
use JSON;
use Opals::Template qw(
    tmpl_preference
);
use Time::HiRes qw(usleep nanosleep);
use Opals::NoticeEmailSvc qw(
    emailSvc_holdReady
    emailSvc_cancelReserve
    emailSvc_reject
);
use Opals::User qw(
    user_getInformationById
);
use Opals::Circulation qw(
    circ_getRecInfo
    circ_getHoldListByRid
);
my $msg="testing";
my $id=47;
my $dbh = Opals::Context->dbh();
my $start = Time::HiRes::gettimeofday();
my $end  = Time::HiRes::gettimeofday();
my $diff =1000*($end - $start);
print "$start :: $end ::::: $diff\n";