summaryrefslogtreecommitdiff
path: root/rt/webrt/Elements/MessageBox
blob: aa081a3804c34e49a2bbba0c7817b8fcfc21f9b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
<TEXTAREA COLS=<%$Width%> ROWS=15 WRAP=HARD NAME="<%$Name%>"><% $Default %><%$message%><%$signature%></TEXTAREA>
<%INIT>

my ($message);

if ($MessageURI) {
	my $code;
	($code, $Default)=RT::Link->GetContent($MessageURI);
}
if ($QuoteTransaction) {
    my $transaction=RT::Transaction->new($session{'CurrentUser'});
    $transaction->Load($QuoteTransaction);
    $message=$transaction->Content(Quote => 1);
}

my $signature = '';
if ($session{'CurrentUser'}->UserObj->Signature) {
	$signature = "-- \n".$session{'CurrentUser'}->UserObj->Signature;
}

</%INIT>
<%ARGS>
$QuoteTransaction => undef
$Name => 'Content'
$Default => ''
$DefaultURI => undef
$Width => 72
$MessageURI => undef
</%ARGS>