[Rt-commit] r7243 - rtir/branches/2.3-EXPERIMENTAL/html/RTIR

[ruz at bestpractical.com]

Author: ruz
Date: Wed Mar 14 09:45:25 2007
New Revision: 7243

Added:
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Forward.html

Log:
* add Forward page to RTIR

Added: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Forward.html
==============================================================================
--- (empty file)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Forward.html	Wed Mar 14 09:45:25 2007
@@ -0,0 +1,60 @@
+<& /RTIR/Elements/Header, Title => $Title &>
+
+<& "/RTIR/". $Type ."/Elements/Tabs", 
+    Title          => $Title,
+    TicketObj      => $TicketObj,
+    current_tab    => 'RTIR/Display.html?id='. $TicketObj->id,
+    current_subtab => 'RTIR/Display.html?id='. $TicketObj->id,
+&>
+
+
+<form action="Forward.html" name="ForwardMessage" method="post">
+% $m->callback( CallbackName => 'FormStart', ARGSRef => \%ARGS );
+<input type="hidden" class="hidden" name="id" value="<% $id %>" /><br />
+<input type="hidden" class="hidden" name="QuoteTransaction" value="<% $ARGS{'QuoteTransaction'} %>" />
+
+<table border="0">
+
+<tr><td align="right"><&|/l&>Subject</&>:</td>
+<td><% $TicketObj->Subject %></td></tr>
+
+<tr><td align="right"><&|/l&>To</&>:</td>
+<td><input name="To" size="60" value="<% $ARGS{'To'} %>" /></td></tr>
+
+<tr><td align="right"><&|/l&>Cc</&>:</td>
+<td><input name="Cc" size="60" value="<% $ARGS{'Cc'} %>" /></td></tr>
+
+<tr><td align="right"><&|/l&>BCc</&>:</td>
+<td><input name="Bcc" size="60" value="<% $ARGS{'Bcc'} %>" /></td></tr>
+
+</table>
+
+<& /Elements/Submit, Label => loc('Forward Message'), Name => 'Forward' &>
+</form>
+<%INIT>
+my $TicketObj = LoadTicket($id);
+$id = $ARGS{'id'} = $TicketObj->id;
+
+Abort( loc("Permission denied") )
+    unless $TicketObj->CurrentUserHasRight('ForwardMessage');
+
+my $Type = RT::IR::TicketType( Ticket => $TicketObj );
+
+my $txn = RT::Transaction->new( $session{'CurrentUser'} );
+$txn->Load( $QuoteTransaction );
+Abort( loc("Couldn't load transaction #[_1]", $QuoteTransaction) )
+    unless $txn->id;
+
+if ( $ARGS{'Forward'} ) {
+    require RT::Interface::Email;
+    RT::Interface::Email::ForwardTransaction( $txn, %ARGS );
+}
+
+my $Title = loc('Forward message');
+
+</%INIT>
+
+<%ARGS>
+$id => undef
+$QuoteTransaction => undef
+</%ARGS>