rt/share/html/m/ticket/show

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