[rt-commit] [svn] r504 - rt/branches/rt-3.1/lib/RT/Action

[leira at fsck.com]

Author: leira
Date: Mon Mar  8 16:49:39 2004
New Revision: 504

Modified:
   rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm
Log:
Actually return the status of creating tickets.


Modified: rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm
==============================================================================
--- rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm	(original)
+++ rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm	Mon Mar  8 16:49:39 2004
@@ -350,6 +350,8 @@
     my $self = shift;
     my $top = shift;
 
+    my @results;
+
     # XXX: cargo cult programming that works. i'll be back.
     use bytes;
 
@@ -372,6 +374,9 @@
 	# reasonable data and do our thang
 
 	my ($id, $transid, $msg) = $T::Tickets{$template_id}->Create(%$ticketargs);
+
+	push @results, $T::Tickets{$template_id}->loc("Ticket [_1]", $T::Tickets{$template_id}->Id) . ': ' .$msg;
+
 	if (!$id) {
 	    if ($self->TicketObj) {
 		$msg = "Couldn't create related ticket $template_id for ".
@@ -432,6 +437,8 @@
 
 	$ticket->SetStatus($args{Status}) if defined $args{Status};
     }
+
+    return @results;
 }
 
 sub UpdateByTemplate {