diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-04-13 02:20:19 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-04-13 02:20:19 -0700 |
commit | a9fbd6a9c213d60b57778a170c15576697adef9e (patch) | |
tree | 9f4b81613fbd79d4ee2ac4908815d3feb34559da /rt/lib/RTx/Calendar.pm | |
parent | 2513882cf22e165f704cf3a0f9891dedb213a310 (diff) |
installers (calendaring), RT#16584
Diffstat (limited to 'rt/lib/RTx/Calendar.pm')
-rw-r--r-- | rt/lib/RTx/Calendar.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/rt/lib/RTx/Calendar.pm b/rt/lib/RTx/Calendar.pm index 88cfecd14..7ddf18619 100644 --- a/rt/lib/RTx/Calendar.pm +++ b/rt/lib/RTx/Calendar.pm @@ -10,7 +10,8 @@ our $VERSION = "0.17"; RT->AddStyleSheets('calendar.css') if RT->can('AddStyleSheets'); -our @EXPORT_OK = qw( FirstDay LastDay LastDayOfWeek ); +our @EXPORT_OK = qw( FirstDay LastDay LastDayOfWeek DatesClauses LocalDate + SearchDefaultCalendar FindTickets ); sub FirstDay { my ($year, $month, $matchday) = @_; @@ -43,10 +44,10 @@ sub LastDayOfWeek { next => sub { $_[0]->truncate( to => 'day' )->add( days => 1 ) } ); - my $day = DateTime->new( year => $year, month => $month, day => $day ); + my $dt = DateTime->new( year => $year, month => $month, day => $day ); - $day = $set->next($day) while $day->day_of_week != $matchday; - $day; + $dt = $set->next($dt) while $dt->day_of_week != $matchday; + $dt; } |