rt/webrt/Elements/MessageBox

   1 <TEXTAREA COLS=<%$Width%> ROWS=15 WRAP=HARD NAME="<%$Name%>"><% $Default %><%$message%><%$signature%></TEXTAREA>
   2 <%INIT>
   3
   4 my ($message);
   5
   6 if ($MessageURI) {
   7         my $code;
   8         ($code, $Default)=RT::Link->GetContent($MessageURI);
   9 }
  10 if ($QuoteTransaction) {
  11     my $transaction=RT::Transaction->new($session{'CurrentUser'});
  12     $transaction->Load($QuoteTransaction);
  13     $message=$transaction->Content(Quote => 1);
  14 }
  15
  16 my $signature = '';
  17 if ($session{'CurrentUser'}->UserObj->Signature) {
  18         $signature = "-- \n".$session{'CurrentUser'}->UserObj->Signature;
  19 }
  20
  21 </%INIT>
  22 <%ARGS>
  23 $QuoteTransaction => undef
  24 $Name => 'Content'
  25 $Default => ''
  26 $DefaultURI => undef
  27 $Width => 72
  28 $MessageURI => undef
  29 </%ARGS>
  30