[Rt-commit] rt branch, master, updated. rt-4.1.13-63-g69cd9fa

[Ruslan Zakirov]

The branch, master has been updated
       via  69cd9fa92ecfa3b89c9e2b7ebba688872b8c8ae4 (commit)
       via  97ce2a68b1f9474416208113c3662ad5507fa9e3 (commit)
      from  54f54a8fe888e0dfc5915de1ce04bf1f3f9c9f41 (commit)

Summary of changes:
 lib/RT/Ticket.pm | 61 --------------------------------------------------------
 1 file changed, 61 deletions(-)

- Log -----------------------------------------------------------------
commit 97ce2a68b1f9474416208113c3662ad5507fa9e3
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Fri Dec 14 18:08:46 2012 -0500

    Remove an uncalled internal methods
    
    Originally added in f767805, the only callsites for it were removed in
    c9a3dd6 and ec4507b.  Remove the uncalled method.

diff --git a/lib/RT/Ticket.pm b/lib/RT/Ticket.pm
index fd2c569..a926e9f 100644
--- a/lib/RT/Ticket.pm
+++ b/lib/RT/Ticket.pm
@@ -582,67 +582,6 @@ sub SetType {
     return $self->_Set(Field => 'Type', Value => $value, @_);
 }
 
-
-
-=head2 _Parse822HeadersForAttributes Content
-
-Takes an RFC822 style message and parses its attributes into a hash.
-
-=cut
-
-sub _Parse822HeadersForAttributes {
-    my $self    = shift;
-    my $content = shift;
-    my %args;
-
-    my @lines = ( split ( /\n/, $content ) );
-    while ( defined( my $line = shift @lines ) ) {
-        if ( $line =~ /^(.*?):(?:\s+(.*))?$/ ) {
-            my $value = $2;
-            my $tag   = lc($1);
-
-            $tag =~ s/-//g;
-            if ( defined( $args{$tag} ) )
-            {    #if we're about to get a second value, make it an array
-                $args{$tag} = [ $args{$tag} ];
-            }
-            if ( ref( $args{$tag} ) )
-            {    #If it's an array, we want to push the value
-                push @{ $args{$tag} }, $value;
-            }
-            else {    #if there's nothing there, just set the value
-                $args{$tag} = $value;
-            }
-        } elsif ($line =~ /^$/) {
-
-            #TODO: this won't work, since "" isn't of the form "foo:value"
-
-                while ( defined( my $l = shift @lines ) ) {
-                    push @{ $args{'content'} }, $l;
-                }
-            }
-        
-    }
-
-    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} );
-        }
-        else {
-            $dateobj->Set( Format => 'unknown', Value => $args{$date} );
-        }
-        $args{$date} = $dateobj->ISO;
-    }
-    $args{'mimeobj'} = MIME::Entity->new();
-    $args{'mimeobj'}->build(
-        Type => ( $args{'contenttype'} || 'text/plain' ),
-        Data => ($args{'content'} || '')
-    );
-
-    return (%args);
-}
-
 =head2 OwnerGroup
 
 A constructor which returns an RT::Group object containing the owner of this ticket.

commit 69cd9fa92ecfa3b89c9e2b7ebba688872b8c8ae4
Merge: 54f54a8 97ce2a6
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Tue Jul 2 18:21:51 2013 +0400

    Merge branch '4.2/remove-uncalled-method'


-----------------------------------------------------------------------