Initial commit 4.0.5-3
[usit-rt.git] / share / html / m / ticket / show
1 %# BEGIN BPS TAGGED BLOCK {{{
2 %#
3 %# COPYRIGHT:
4 %#
5 %# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
6 %#                                          <sales@bestpractical.com>
7 %#
8 %# (Except where explicitly superseded by other copyright notices)
9 %#
10 %#
11 %# LICENSE:
12 %#
13 %# This work is made available to you under the terms of Version 2 of
14 %# the GNU General Public License. A copy of that license should have
15 %# been provided with this software, but in any event can be snarfed
16 %# from www.gnu.org.
17 %#
18 %# This work is distributed in the hope that it will be useful, but
19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
21 %# General Public License for more details.
22 %#
23 %# You should have received a copy of the GNU General Public License
24 %# along with this program; if not, write to the Free Software
25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26 %# 02110-1301 or visit their web page on the internet at
27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
28 %#
29 %#
30 %# CONTRIBUTION SUBMISSION POLICY:
31 %#
32 %# (The following paragraph is not intended to limit the rights granted
33 %# to you to modify and distribute this software under the terms of
34 %# the GNU General Public License and is only of importance to you if
35 %# you choose to contribute your changes and enhancements to the
36 %# community by submitting them to Best Practical Solutions, LLC.)
37 %#
38 %# By intentionally submitting any modifications, corrections or
39 %# derivatives to this work, or any other work intended for use with
40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
41 %# you are the copyright holder for those contributions and you grant
42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
43 %# royalty-free, perpetual, license to use, copy, create derivative
44 %# works based on those contributions, and sublicense and distribute
45 %# those contributions and any derivatives thereof.
46 %#
47 %# END BPS TAGGED BLOCK }}}
48 <%args>
49 $id => undef
50 </%args>
51 <%init>
52 my $Ticket;
53 my @Actions; 
54
55 unless ($id) {
56     Abort('No ticket specified');
57 }
58
59 if ($ARGS{'id'} eq 'new') {
60     # {{{ Create a new ticket
61
62     my $Queue = RT::Queue->new( $session{'CurrentUser'} );
63     $Queue->Load($ARGS{'Queue'});
64     unless ( $Queue->id ) {
65         Abort('Queue not found');
66     }
67
68     unless ( $Queue->CurrentUserHasRight('CreateTicket') ) {
69         Abort('You have no permission to create tickets in that queue.');
70     }
71
72     ($Ticket, @Actions) = CreateTicket(
73         Attachments => delete $session{'Attachments'},
74         %ARGS,
75     );
76     unless ( $Ticket->CurrentUserHasRight('ShowTicket') ) {
77         Abort("No permission to view newly created ticket #".$Ticket->id.".");
78     }
79 } else { 
80     $Ticket ||= LoadTicket($ARGS{'id'});
81
82     $m->callback( CallbackName => 'BeforeProcessArguments',
83         TicketObj => $Ticket,
84         ActionsRef => \@Actions, ARGSRef => \%ARGS );
85     if ( defined $ARGS{'Action'} ) {
86         if ($ARGS{'Action'} =~ /^(Steal|Delete|Take|SetTold)$/) {
87             my $action = $1;
88             my ($res, $msg) = $Ticket->$action();
89             push(@Actions, $msg);
90         }
91     }
92
93     $m->callback(CallbackName => 'ProcessArguments', 
94             Ticket => $Ticket, 
95             ARGSRef => \%ARGS, 
96             Actions => \@Actions);
97     
98     $ARGS{UpdateAttachments} = $session{'Attachments'};
99     push @Actions,
100         ProcessUpdateMessage(
101         ARGSRef   => \%ARGS,
102         Actions   => \@Actions,
103         TicketObj => $Ticket,
104         );
105     delete $session{'Attachments'};
106
107     #Process status updates
108     push @Actions, ProcessTicketWatchers(ARGSRef => \%ARGS, TicketObj => $Ticket );
109     push @Actions, ProcessTicketBasics(  ARGSRef => \%ARGS, TicketObj => $Ticket );
110     push @Actions, ProcessTicketLinks(   ARGSRef => \%ARGS, TicketObj => $Ticket );
111     push @Actions, ProcessTicketDates(   ARGSRef => \%ARGS, TicketObj => $Ticket );
112     push @Actions, ProcessObjectCustomFieldUpdates(ARGSRef => \%ARGS, TicketObj => $Ticket );
113     push @Actions, ProcessTicketReminders( ARGSRef => \%ARGS, TicketObj => $Ticket );
114
115     # XXX: we shouldn't block actions here if user has no right to see the ticket,
116     # but we should allow him to see actions he has done
117     unless ($Ticket->CurrentUserHasRight('ShowTicket')) {
118         Abort("No permission to view ticket");
119     }
120     if ( $ARGS{'MarkAsSeen'} ) {
121         $Ticket->SetAttribute(
122             Name => 'User-'. $Ticket->CurrentUser->id .'-SeenUpTo',
123             Content => $Ticket->LastUpdated,
124         );
125         push @Actions, loc('Marked all messages as seen');
126     }
127 }
128
129 $m->callback(
130     CallbackName => 'BeforeDisplay',
131     TicketObj => \$Ticket,
132     Actions => \@Actions,
133     ARGSRef => \%ARGS,
134 );
135
136 # This code does automatic redirection if any updates happen. 
137
138 if (@Actions) {
139
140     # We've done something, so we need to clear the decks to avoid
141     # resubmission on refresh.
142     # But we need to store Actions somewhere too, so we don't lose them.
143     my $key = Digest::MD5::md5_hex( rand(1024) );
144     push @{ $session{"Actions"}->{$key} ||= [] }, @Actions;
145     $session{'i'}++;
146     my $url = RT->Config->Get('WebURL') . "m/ticket/show?id=" . $Ticket->id . "&results=" . $key;
147     $url .= '#' . $ARGS{Anchor} if $ARGS{Anchor};
148     RT::Interface::Web::Redirect($url);
149 }
150
151 # If we haven't been passed in an Attachments object (through the precaching mechanism)
152 # then we need to find one
153 my $Attachments = $m->comp('/Ticket/Elements/FindAttachments', Ticket => $Ticket);
154
155 my %documents;
156 while ( my $attach = $Attachments->Next() ) {
157     next unless ($attach->Filename());
158    unshift( @{ $documents{ $attach->Filename } }, $attach );
159 }
160
161 my $CustomFields = $Ticket->CustomFields;
162 $m->callback(
163     CallbackName => 'MassageCustomFields',
164     Object => $Ticket,
165     CustomFields => $CustomFields,
166 );
167
168 my $print_value = sub {
169     my ($cf, $value) = @_;
170     my $linked = $value->LinkValueTo;
171     if ( defined $linked && length $linked ) {
172         my $linked = $m->interp->apply_escapes( $linked, 'h' );
173         $m->out('<a href="'. $linked .'" target="_new">');
174     }
175     my $comp = "ShowCustomField". $cf->Type;
176     $m->callback(
177         CallbackName => 'ShowComponentName',
178         Name         => \$comp,
179         CustomField  => $cf,
180         Object       => $Ticket,
181     );
182     if ( $m->comp_exists( $comp ) ) {
183         $m->comp( $comp, Object => $value );
184     } else {
185         $m->out( $m->interp->apply_escapes( $value->Content, 'h' ) );
186     }
187     $m->out('</a>') if defined $linked && length $linked;
188
189     # This section automatically populates a div with the "IncludeContentForValue" for this custom
190     # field if it's been defined
191     if ( $cf->IncludeContentForValue ) {
192        my $vid = $value->id;
193        $m->out(   '<div class="object_cf_value_include" id="object_cf_value_'. $vid .'">' );
194        $m->print( loc("See also:") );
195        $m->out(   '<a href="'. $m->interp->apply_escapes($value->IncludeContentForValue, 'h') .'">' );
196        $m->out( $m->interp->apply_escapes($value->IncludeContentForValue, 'h') );
197        $m->out(   qq{</a></div>\n} );
198        $m->out(   qq{<script><!--\njQuery('#object_cf_value_$vid').load(} );
199        $m->out(   $m->interp->apply_escapes($value->IncludeContentForValue, 'j') );
200        $m->out(   qq{);\n--></script>\n} );
201     }
202 };
203
204 </%init>
205 <&| /m/_elements/wrapper, title => loc("#[_1]: [_2]", $Ticket->Id, $Ticket->Subject || '') &>
206 <div id="ticket-show">
207 <& /m/_elements/ticket_menu, ticket => $Ticket &>
208
209     <&| /Widgets/TitleBox, title => loc('The Basics'),
210         class => 'ticket-info-basics',
211     &>
212
213
214  <div class="entry">
215     <div class="label id"><&|/l&>Id</&>:</div>
216     <div class="value id"><%$Ticket->Id %></div>
217   </div>
218  <div class="entry">
219     <div class="label status"><&|/l&>Status</&>:</div>
220     <div class="value status"><% loc($Ticket->Status) %></div>
221   </div>
222 % if ($Ticket->TimeEstimated) {
223  <div class="entry">
224     <div class="label time estimated"><&|/l&>Estimated</&>:</div>
225     <div class="value time estimated"><& /Ticket/Elements/ShowTime, minutes => $Ticket->TimeEstimated &></div>
226   </div>
227 % }
228 % if ($Ticket->TimeWorked) {
229  <div class="entry">
230     <div class="label time worked"><&|/l&>Worked</&>:</div>
231     <div class="value time worked"><& /Ticket/Elements/ShowTime, minutes => $Ticket->TimeWorked &></div>
232   </div>
233 % }
234 % if ($Ticket->TimeLeft) {
235  <div class="entry">
236     <div class="label time left"><&|/l&>Left</&>:</div>
237     <div class="value time left"><& /Ticket/Elements/ShowTime, minutes => $Ticket->TimeLeft &></div>
238   </div>
239 % }
240  <div class="entry">
241     <div class="label priority"><&|/l&>Priority</&>:</div>
242     <div class="value priority"><& /Ticket/Elements/ShowPriority, Ticket => $Ticket &></div>
243   </div>
244  <div class="entry">
245     <div class="label queue"><&|/l&>Queue</&>:</div>
246     <div class="value queue"><& /Ticket/Elements/ShowQueue, QueueObj => $Ticket->QueueObj &></div>
247   </div>
248     </&>
249
250 % if ($Ticket->CustomFields->First) {
251     <&| /Widgets/TitleBox, title => loc('Custom Fields'),
252         class => 'ticket-info-cfs',
253     &>
254
255 % while ( my $CustomField = $CustomFields->Next ) {
256 % my $Values = $Ticket->CustomFieldValues( $CustomField->Id );
257 % my $count = $Values->Count;
258   <div class="entry" id="CF-<%$CustomField->id%>-ShowRow">
259     <div class="label"><% $CustomField->Name %>:</div>
260     <div class="value">
261 % unless ( $count ) {
262 <i><&|/l&>(no value)</&></i>
263 % } elsif ( $count == 1 ) {
264 %   $print_value->( $CustomField, $Values->First );
265 % } else {
266 <ul>
267 % while ( my $Value = $Values->Next ) {
268 <li>
269 % $print_value->( $CustomField, $Value );
270 </li>
271 % }
272 </ul>
273 % }
274     </div>
275   </div>
276 % }
277
278 </&>
279 % }
280
281     <&| /Widgets/TitleBox, title => loc('People'), class => 'ticket-info-people' &>
282
283
284  <div class="entry">
285     <div class="label"><&|/l&>Owner</&>:</div>
286     <div class="value"><& /Elements/ShowUser, User => $Ticket->OwnerObj, Ticket => $Ticket &>
287     </div>
288   </div>
289  <div class="entry">
290     <div class="label"><&|/l&>Requestors</&>:</div>
291     <div class="value"><& /Ticket/Elements/ShowGroupMembers, Group => $Ticket->Requestors, Ticket => $Ticket &></div>
292   </div>
293  <div class="entry">
294     <div class="label"><&|/l&>Cc</&>:</div>
295     <div class="value"><& /Ticket/Elements/ShowGroupMembers, Group => $Ticket->Cc, Ticket => $Ticket &></div>
296   </div>
297  <div class="entry">
298     <div class="label"><&|/l&>AdminCc</&>:</div>
299     <div class="value"><& /Ticket/Elements/ShowGroupMembers, Group => $Ticket->AdminCc, Ticket => $Ticket &></div>
300   </div>
301
302     </&>
303
304 % if (keys %documents) {
305 <&| /Widgets/TitleBox, title => loc('Attachments'), 
306         title_class=> 'inverse',  
307         class => 'ticket-info-attachments',
308         color => "#336699" &>
309
310 % foreach my $key (keys %documents) {
311
312 <%$key%><br />
313 <ul>
314 % foreach my $rev (@{$documents{$key}}) {
315
316 <%PERL>
317 my $size = $rev->ContentLength;
318
319 if ($size) {
320     my $kb = int($size/102.4) / 10;
321     my $units = RT->Config->Get('AttachmentUnits');
322
323     if (!defined($units)) {
324         if ($size > 1024) {
325             $size = $kb . "k";
326         }
327         else {
328             $size = $size . "b";
329         }
330     }
331     elsif ($units eq 'k') {
332         $size = $kb . "k";
333     }
334     else {
335         $size = $size . "b";
336     }
337
338 </%PERL>
339
340 <li><font size="-2">
341 <a href="<%RT->Config->Get('WebPath')%>/Ticket/Attachment/<%$rev->TransactionId%>/<%$rev->Id%>/<%$rev->Filename | u%>">
342 <&|/l, $rev->CreatedAsString, $size, $rev->CreatorObj->Name &>[_1] ([_2]) by [_3]</&>
343 </a>
344 </font></li>
345 % }
346 % }
347 </ul>
348
349 % }
350 </&>
351
352 % }
353 % # too painful to deal with reminders
354 % if ( 0 &&  RT->Config->Get('EnableReminders') ) {
355     <&|/Widgets/TitleBox, title => loc("Reminders"),
356         class => 'ticket-info-reminders',
357     &>
358        <div class="entry"><div
359             <form action="<%RT->Config->Get('WebPath')%>/Ticket/Display.html" method="post">
360                 <& /Ticket/Elements/Reminders, Ticket => $Ticket, ShowCompleted => 0 &>
361                 <div align="right"><input type="submit" class="button" value="<&|/l&>Save</&>" /></div>
362             </form>
363         </div></div>
364     </&>
365 % }
366
367     <&| /Widgets/TitleBox, title => loc("Dates"),
368         class => 'ticket-info-dates',
369     &>
370
371
372  <div class="entry">
373     <div class="label date created"><&|/l&>Created</&>:</div>
374     <div class="value date created"><% $Ticket->CreatedObj->AsString %></div>
375   </div>
376  <div class="entry">
377     <div class="label date starts"><&|/l&>Starts</&>:</div>
378     <div class="value date starts"><% $Ticket->StartsObj->AsString %></div>
379   </div>
380  <div class="entry">
381     <div class="label date started"><&|/l&>Started</&>:</div>
382     <div class="value date started"><% $Ticket->StartedObj->AsString %></div>
383   </div>
384  <div class="entry">
385     <div class="label date told"><&|/l&>Last Contact</&>:</div>
386     <div class="value date told"><% $Ticket->ToldObj->AsString %></div>
387   </div>
388  <div class="entry">
389     <div class="label date due"><&|/l&>Due</&>:</div>
390 % my $due = $Ticket->DueObj;
391 % if ( $due && $due->Unix > 0 && $due->Diff < 0 ) {
392     <div class="value date due"><span class="overdue"><% $due->AsString  %></span></div>
393 % } else {
394     <div class="value date due"><% $due->AsString  %></div>
395 % }
396   </div>
397  <div class="entry">
398     <div class="label date resolved"><&|/l&>Closed</&>:</div>
399     <div class="value date resolved"><% $Ticket->ResolvedObj->AsString  %></div>
400   </div>
401  <div class="entry">
402     <div class="label date updated"><&|/l&>Updated</&>:</div>
403 % my $UpdatedString = $Ticket->LastUpdated ? loc("[_1] by [_2]", $Ticket->LastUpdatedAsString, $Ticket->LastUpdatedByObj->Name) : loc("Never");
404     <div class="value date updated"><% $UpdatedString | h %></div>
405   </div>
406
407     </&>
408
409     <&| /Widgets/TitleBox, title => loc('Links'), class => 'ticket-info-links' &>
410
411  <div class="entry">
412     <div class="label"><% loc('Depends on')%>:</div>
413     <div class="value">
414
415 <%PERL>
416 my ( @active, @inactive, @not_tickets );
417 for my $link ( @{ $Ticket->DependsOn->ItemsArrayRef } ) {
418     my $target = $link->TargetObj;
419     if ( $target && $target->isa('RT::Ticket') ) {
420         if ( $target->QueueObj->IsInactiveStatus( $target->Status ) ) {
421             push( @inactive, $link->TargetURI );
422         }
423         else {
424             push( @active, $link->TargetURI );
425         }
426     }
427     else {
428         push( @not_tickets, $link->TargetURI );
429     }
430 }
431 </%PERL>
432
433
434 <ul>
435 % for my $Link (@not_tickets, @active, @inactive) {
436 <li><& /Elements/ShowLink, URI => $Link &></li>
437 % }
438 </ul>
439     </div>
440   </div>
441  <div class="entry">
442     <div class="label"><% loc('Depended on by')%>:</div>
443     <div class="value">
444 <ul>
445 % while (my $Link = $Ticket->DependedOnBy->Next) {
446 <li><& /Elements/ShowLink, URI => $Link->BaseURI &></li>
447 % }
448 </ul>
449     </div>
450   </div>
451  <div class="entry">
452     <div class="label"><% loc('Parents') %>:</div>
453     <div class="value"><& /Ticket/Elements/ShowParents, Ticket => $Ticket &></div>
454   </div>
455  <div class="entry">
456     <div class="label"><% loc('Children')%>:</div>
457     <div class="value"><& /Ticket/Elements/ShowMembers, Ticket => $Ticket &></div>
458   </div>
459  <div class="entry">
460     <div class="label"><% loc('Refers to')%>:</div>
461     <div class="value">
462 <ul>
463 % while (my $Link = $Ticket->RefersTo->Next) {
464 <li><& /Elements/ShowLink, URI => $Link->TargetURI &></li>
465 % }
466 </ul>
467     </div>
468   </div>
469  <div class="entry">
470     <div class="label"><% loc('Referred to by')%>:</div>
471     <div class="value">
472     <ul>
473 % while (my $Link = $Ticket->ReferredToBy->Next) {
474 % next if (UNIVERSAL::isa($Link->BaseObj, 'RT::Ticket')  && $Link->BaseObj->Type eq 'reminder');
475 <li><& /Elements/ShowLink, URI => $Link->BaseURI &></li>
476 % }
477 </ul>
478     </div>
479   </div>
480     </&>
481 </div>
482 </&>