[Rt-commit] r3096 - in rt/branches/QUEBEC-EXPERIMENTAL: . lib/RT

[jesse at bestpractical.com]

Author: jesse
Date: Wed Jun  8 23:03:21 2005
New Revision: 3096

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/EmailParser.pm
Log:
 r19652 at hualien:  jesse | 2005-06-08 18:36:40 -0400
  r17670 at hualien:  jesse | 2005-05-23 13:48:34 -0400
   * RT::EmailParser->ParseTicketId was deprecated but that was not clear. Also, the code was out of date
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/EmailParser.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/EmailParser.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/EmailParser.pm	Wed Jun  8 23:03:21 2005
@@ -276,17 +276,8 @@
 
 sub ParseTicketId {
     my $self = shift;
-
-    my $Subject = shift;
-
-    if ( $Subject =~ s/\[\Q$RT::rtname\E\s+\#(\d+)\s*\]//i ) {
-        my $id = $1;
-        $RT::Logger->debug("Found a ticket ID. It's $id");
-        return ($id);
-    }
-    else {
-        return (undef);
-    }
+    $RT::Logger->warnings("RT::EmailParser->ParseTicketId deprecated. You should be using RT::Interface::Email");
+    RT::Interface::Email::ParseTicketId(@_);
 }
 
 # }}}