[Rt-commit] [svn] r1278 - rt/branches/3.2-RELEASE/lib/RT/Action

[leira at pallas.eruditorum.org]

Author: leira
Date: Thu Jul 22 22:32:27 2004
New Revision: 1278

Modified:
   rt/branches/3.2-RELEASE/lib/RT/Action/CreateTickets.pm
Log:
Fill in the default queue if one was specified.


Modified: rt/branches/3.2-RELEASE/lib/RT/Action/CreateTickets.pm
==============================================================================
--- rt/branches/3.2-RELEASE/lib/RT/Action/CreateTickets.pm	(original)
+++ rt/branches/3.2-RELEASE/lib/RT/Action/CreateTickets.pm	Thu Jul 22 22:32:27 2004
@@ -773,7 +773,7 @@
         foreach my $line ( split( /\n/, $args{'Content'} ) ) {
             $line =~ s/\r$//;
             $RT::Logger->debug("Line: $line");
-            if ( $line =~ /^===$/ ) {
+            if ( $line =~ /^===/ ) {
                 if ( $template_id && !$queue && $args{'Queue'} ) {
                     $self->{'templates'}->{$template_id} .= "Queue: $args{'Queue'}\n";
                 }
@@ -826,6 +826,9 @@
                 $self->{'templates'}->{$template_id} .= $line . "\n";
             }
         }
+	if ( $template_id && !$queue && $args{'Queue'} ) {
+	    $self->{'templates'}->{$template_id} .= "Queue: $args{'Queue'}\n";
+	}
     }
     elsif ( substr( $args{'Content'}, 0, 2 ) =~ /^id$/i ) {
         $RT::Logger->debug("Line: id");