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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
<TABLE>
<TR>
<TD COLSPAN=6>
Subject<BR>
<input name=Subject value="<%$TicketObj->Subject|h%>" SIZE=50>
</TD>
</TR>
<TR>
<TD>
<& /Elements/ShadedBox,
title => 'Status',
content => $SelectStatus
&>
</TD>
<TD>
<& /Elements/ShadedBox,
title => 'Time Worked',
content => "<input name=TimeWorked value=\"".$TicketObj->TimeWorked."\" SIZE=5>"
&>
</TD>
<TD>
<& /Elements/ShadedBox,
title => 'Time Left',
content => "<input name=TimeLeft value=\"".$TicketObj->TimeLeft."\" SIZE=5>"
&>
</TD>
<TD>
<& /Elements/ShadedBox,
title => 'Priority',
content => "<input name=Priority value=\"".$TicketObj->Priority."\" SIZE=3>"
&>
</TD>
<TD>
<& /Elements/ShadedBox,
title => 'Final Priority',
content => "<input name=FinalPriority value=\"".$TicketObj->FinalPriority."\" SIZE=3>"
&>
</TD>
<TD>
<& /Elements/ShadedBox,
title => 'Queue',
content => "$SelectQueue"
&>
</TD>
</TR>
</TABLE>
<%INIT>
#It's hard to do this inline, so we'll preload the html of the selectstatus in here.
my $SelectStatus = $m->scomp("/Elements/SelectStatus", Name => 'Status', Default=> $TicketObj->Status);
my $SelectQueue = $m->scomp("/Elements/SelectQueue", Name => 'Queue', Default =>$TicketObj->QueueObj->Id);
</%INIT>
<%ARGS>
$TicketObj => undef
</%ARGS>
|