[rt-users] Slightly OT: Business::Hours question

[Gene LeDuc]

Hi All,

A little OT, but also related to RT.  I'm getting an unexpected result 
using Business::Hours to compute a due date in an RT ticket (I lifted the 
example from the wiki).  Since a real week is 5 business days and each 
business day is 8.5 hours, 1 business week should be exactly 42.5 business 
hours.  Doing the math using real days sets the due date for a ticket 
created on Friday and due in 5 days to next Wednesday, but using business 
days (Sat/Sun are not business days), it should be 2 days later, next 
Friday.  I'd appreciate it if anyone familiar with this module would take a 
quick look at my code and point out what I'm doing wrong.

Here is the code (with some debug logs) from my scrip:
### Set due date so that it accounts for business days
use Business::Hours;
my $duedate = RT::Date->new($RT::SystemUser);
my $daysuntildue = 5;
my $secondsuntildue = $daysuntildue * 8.5 * 60 * 60;

$RT::Logger->debug("$MyName: daysuntildue: $daysuntildue, seconds: 
$secondsuntildue");
my $hours = Business::Hours->new();
$hours->business_hours(
   { 0 => { Name => 'Sunday', Start => undef, End => undef },
     1 => { Name => 'Monday', Start => '08:00', End => '16:30' },
     2 => { Name => 'Tuesday', Start => '08:00', End => '16:30' },
     3 => { Name => 'Wednesday', Start => '08:00', End => '16:30' },
     4 => { Name => 'Thursday', Start => '08:00', End => '16:30' },
     5 => { Name => 'Friday', Start => '08:00', End => '16:30' },
     6 => { Name => 'Saturday', Start => undef, End => undef }
   } );
my $curtime = time;
my $bus_hours_duetime = $hours->add_seconds ($curtime, $secondsuntildue);
$RT::Logger->debug("$MyName: curtime: $curtime, bus_hours_duetime: 
$bus_hours_duetime");

The debug log entries for this scrip show that $bus_hours_duetime is 
-1.  The docs at cpan seem to indicate that this means there are no 
business hours within 30 days of $curtime.  If so, I must have messed up 
setting my business hours, but I can't see where.

[Fri Apr 20 18:32:46 2007] [debug]: Scrip DNS:35:Commit (New Ticket): 
daysuntildue: 5, seconds: 153000 ((eval 327):30)
[Fri Apr 20 18:32:46 2007] [debug]: Scrip DNS:35:Commit (New Ticket): 
curtime: 1177093966, bus_hours_duetime: -1 ((eval 327):43)

Thanks,
Gene



-- 
Gene LeDuc, GSEC
Security Analyst
San Diego State University