oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add patch for midnight at 24:00:00 to the Event.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-24 08:10:09 -07:00
parent 1f42a0a24e
commit 790350efed
1 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/WebGUI/Asset/Event.pm
View file

@ -63,12 +63,46 @@ property startTime => (
format => 'mysql', format => 'mysql',
); );
around startTime => sub {
my $orig = shift;
my $self = shift;
return $self->$orig unless @_;
my $startTime = shift;
my ($startHour, $startMinute, $startSecond) = $startTime =~ /^ (\d+) : (\d+) (?: :(\d+)) /x;
if ($startHour > 23) {
$startHour = 0;
my $startDate = $self->startDate;
my $startDt = WebGUI::DateTime->new($self->session, $startDate);
$startDt->add(days => 1);
$self->startDate($startDt->toMysqlDate);
$startSecond = '00' if ! $startSecond;
$startTime = sprintf '%02d:%02d:%02d', $startHour, $startMinute, $startSecond;
}
return $self->$orig($startTime);
};
property endTime => ( property endTime => (
label => ['end', 'Asset_Event'], label => ['end', 'Asset_Event'],
fieldType => "TimeField", fieldType => "TimeField",
default => undef, default => undef,
format => 'mysql', format => 'mysql',
); );
around endTime => sub {
my $orig = shift;
my $self = shift;
return $self->$orig unless @_;
my $endTime = shift;
my ($endHour, $endMinute, $endSecond) = $endTime =~ /^ (\d+) : (\d+) (?: :(\d+)) /x;
if ($endHour > 23) {
$endHour = 0;
my $endDate = $self->endDate;
my $endDt = WebGUI::DateTime->new($self->session, $endDate);
$endDt->add(days => 1);
$self->endDate($endDt->toMysqlDate);
$endSecond = '00' if ! $endSecond;
$endTime = sprintf '%02d:%02d:%02d', $endHour, $endMinute, $endSecond;
}
return $self->$orig($endTime);
};
property recurId => ( property recurId => (
label => ['recurrence', 'Asset_Event'], label => ['recurrence', 'Asset_Event'],