diff options
Diffstat (limited to 'rt/lib/RT/Ticket_Overlay.pm')
| -rw-r--r-- | rt/lib/RT/Ticket_Overlay.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/rt/lib/RT/Ticket_Overlay.pm b/rt/lib/RT/Ticket_Overlay.pm index 8dd88c927..9f1e26c0d 100644 --- a/rt/lib/RT/Ticket_Overlay.pm +++ b/rt/lib/RT/Ticket_Overlay.pm @@ -471,13 +471,13 @@ sub Create { ); # Parameters passed in during an import that we probably don't want to touch, otherwise - foreach my $attr qw(id Creator Created LastUpdated LastUpdatedBy) { + foreach my $attr (qw(id Creator Created LastUpdated LastUpdatedBy)) { $params{$attr} = $args{$attr} if $args{$attr}; } # Delete null integer parameters foreach my $attr - qw(TimeWorked TimeLeft TimeEstimated InitialPriority FinalPriority) + (qw(TimeWorked TimeLeft TimeEstimated InitialPriority FinalPriority)) { delete $params{$attr} unless ( exists $params{$attr} && $params{$attr} ); @@ -745,7 +745,7 @@ sub _Parse822HeadersForAttributes { } - foreach my $date qw(due starts started resolved) { + foreach my $date (qw(due starts started resolved)) { my $dateobj = RT::Date->new($RT::SystemUser); if ( defined ($args{$date}) and $args{$date} =~ /^\d+$/ ) { $dateobj->Set( Format => 'unix', Value => $args{$date} ); @@ -2600,7 +2600,7 @@ sub MergeInto { } # Update time fields - foreach my $type qw(TimeEstimated TimeWorked TimeLeft) { + foreach my $type (qw(TimeEstimated TimeWorked TimeLeft)) { my $mutator = "Set$type"; $MergeInto->$mutator( @@ -2608,7 +2608,7 @@ sub MergeInto { } #add all of this ticket's watchers to that ticket. - foreach my $watcher_type qw(Requestors Cc AdminCc) { + foreach my $watcher_type (qw(Requestors Cc AdminCc)) { my $people = $self->$watcher_type->MembersObj; my $addwatcher_type = $watcher_type; @@ -3226,7 +3226,7 @@ sub _ApplyTransactionBatch { my $batch = $self->TransactionBatch; my %seen; - my $types = join ',', grep !$seen{$_}++, grep defined, map $_->Type, grep defined, @{$batch}; + my $types = join ',', grep !$seen{$_}++, grep defined, map $_->__Value('Type'), grep defined, @{$batch}; require RT::Scrips; RT::Scrips->new($RT::SystemUser)->Apply( |