[Rt-commit] r7380 - in rt/branches/3.7-EXPERIMENTAL: . lib/RT/Interface

[ruz at bestpractical.com]

Author: ruz
Date: Wed Mar 28 15:47:52 2007
New Revision: 7380

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Ticket/Forward.html
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm

Log:
 r4825 at cubic-pc:  cubic | 2007-03-28 23:45:49 +0400
 * add results to the forward page


Modified: rt/branches/3.7-EXPERIMENTAL/html/Ticket/Forward.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Forward.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Forward.html	Wed Mar 28 15:47:52 2007
@@ -3,6 +3,7 @@
     Ticket => $TicketObj, 
     Title  => $Title,
 &>
+<& /Elements/ListActions, actions => \@results &>
 
 <form action="Forward.html" name="ForwardMessage" method="post">
 % $m->callback( CallbackName => 'FormStart', ARGSRef => \%ARGS );
@@ -39,9 +40,11 @@
 Abort( loc("Couldn't load transaction #[_1]", $QuoteTransaction) )
     unless $txn->id;
 
+my @results;
 if ( $ARGS{'Forward'} ) {
     require RT::Interface::Email;
-    RT::Interface::Email::ForwardTransaction( $txn, %ARGS );
+    my ($status, $msg) = RT::Interface::Email::ForwardTransaction( $txn, %ARGS );
+    push @results, $msg;
 }
 
 my $Title = loc('Forward message');

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	Wed Mar 28 15:47:52 2007
@@ -446,7 +446,9 @@
         Encoding => '8bit',
         Data => $entity->as_string,
     );
-    SendEmail( entity => $mail );
+    my $status = SendEmail( entity => $mail );
+    return (0, $txn->loc("Couldn't send email")) unless $status;
+    return (1, $txn->loc("Send email successfully"));
 }
 
 sub CreateUser {