[rt-users] Business Hours help please

[Roy El-Hames]

Hi ;

Can anyone help me with the code of how to determine the Business Hours 
between 2 dates:
What I got :
my $hours = Business::Hours->new();
$hours->business_hours(
     0 => { Name => 'Sunday', Start => undef, End => undef },
      1 => { Name => 'Monday', Start => '09:00', End => '17:30' },
      2 => { Name => 'Tuesday', Start => '09:00', End => '17:30' },
      3 => { Name => 'Wednesday', Start => '09:00', End => '17:30' },
      4 => { Name => 'Thursday', Start => '09:00', End => '17:30' },
      5 => { Name => 'Friday', Start => '09:00', End => '17:30' },
      6 => { Name => 'Saturday', Start => undef, End => undef }
 );
my $wtime = $hours->for_timespan(Start => time(), End => time()+(86400*7));
my $splosh = Dumper($wtime) ;

print "$splosh nnn\n";

I get :
$VAR1 = bless( {
                 'negInf' => 0,
                 'edges' => [
                              1196774745,
                              1196789399,
                              1196845199,
                              1196875799,
                              1196931599,
                              1196962199,
                              1197017999,
                              1197048599,
                              1197277199,
                              1197307799,
                              1197363599,
                              1197379546
                            ],
                 'posInf' => 0,
                 'empty_string' => \'-'
               }, 'Set::IntSpan' );
 nnn


Help please,

Thanks;
Roy