Changeset 1555 for trunk

Show
Ignore:
Timestamp:
06/15/09 19:38:36 (6 months ago)
Author:
mpaschal
Message:

Protect against some more cron-time warnings

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/ActionStreams/plugins/ActionStreams/lib/ActionStreams/Event.pm

    r1544 r1555  
    385385                    or next VALUE; 
    386386 
    387                 $item_data{$key} = [ map { MT::I18N::utf8_off( $_->getNodeValue ) } @outvals ]; 
     387                $item_data{$key} = [ grep map { MT::I18N::utf8_off( $_->getNodeValue ) } @outvals ]; 
    388388            } 
    389389            else { 
     
    394394                if ($outval && ($key eq 'created_on' || $key eq 'modified_on')) { 
    395395                    # try both RFC 822/1123 and ISO 8601 formats 
    396                     $outval = MT::Util::epoch2ts(undef, str2time($outval)) 
    397                         || MT::Util::iso2ts(undef, $outval); 
     396                    my $out_timestamp; 
     397                    if (my $epoch = str2time($outval)) { 
     398                        $out_timestamp = MT::Util::epoch2ts(undef, $epoch); 
     399                    } 
     400                    # The epoch2ts may have failed too. 
     401                    if (!defined $out_timestamp) { 
     402                        $out_timestamp = MT::Util::iso2ts(undef, $outval); 
     403                    } 
     404                    # Whether it's defined or not, that's our new outval. 
     405                    $outval = $out_timestamp; 
    398406                } 
    399407 
     
    445453            %$item, 
    446454        }); 
    447         $event->tags(@$tags) if $tags; 
     455        $event->tags(@$tags) if $tags && @$tags; 
    448456        if ($hide_timeless && !$event->created_on) { 
    449457            $event->visible(0); 
     
    497505                $item->{$field} = [ map { MT::I18N::utf8_off( "$_" ) } @{ $item->{$field} } ]; 
    498506            } 
     507            elsif (defined $item->{$field}) { 
     508                $item->{$field} = MT::I18N::utf8_off( q{} . $item->{$field} ); 
     509            } 
    499510            else { 
    500                 $item->{$field} = MT::I18N::utf8_off( q{} . $item->{$field} ); 
     511                delete $item->{$field}; 
    501512            } 
    502513        }