1 %# BEGIN BPS TAGGED BLOCK {{{
5 %# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
6 %# <sales@bestpractical.com>
8 %# (Except where explicitly superseded by other copyright notices)
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
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.
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.
30 %# CONTRIBUTION SUBMISSION POLICY:
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.)
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.
47 %# END BPS TAGGED BLOCK }}}
57 my $LinkCallback = sub {
60 my $mode = $RT::Ticket::LINKTYPEMAP{$method}{Mode};
61 my $type = $RT::Ticket::LINKTYPEMAP{$method}{Type};
62 my $other_mode = ($mode eq "Target" ? "Base" : "Target");
63 my $mode_uri = $mode.'URI';
64 my $local_type = 'Local'.$mode;
69 $_->$mode_uri->Resolver->HREF,
71 ( $_->$mode_uri->IsLocal && $_->$local_type ? $_->$local_type : $_->$mode_uri->Resolver->AsString ),
73 } @{ $_[0]->Links($other_mode,$type)->ItemsArrayRef }
80 title => 'Queue id', # loc
81 value => sub { return $_[0]->Queue }
85 title => 'Queue', # loc
86 value => sub { return $_[0]->QueueObj->Name }
89 title => 'Owner', # loc
91 value => sub { return $_[0]->OwnerObj->Name }
94 title => 'Status', # loc
95 attribute => 'Status',
96 value => sub { return loc($_[0]->Status) }
99 title => 'Subject', # loc
100 attribute => 'Subject',
101 value => sub { return $_[0]->Subject || "(" . loc('No subject') . ")" }
104 title => 'Status', # loc
105 attribute => 'Status',
109 if ( my $count = $Ticket->HasUnresolvedDependencies ) {
110 if ( $Ticket->HasUnresolvedDependencies( Type => 'approval' )
111 or $Ticket->HasUnresolvedDependencies( Type => 'code' ) )
113 return \'<em>', loc('(pending approval)'), \'</em>';
116 my $Query = "DependedOnBy = " . $Ticket->id;
117 $Query .= " AND (" . join(" OR ", map { "Status = '$_'" } RT::Queue->ActiveStatusArray) . ")";
119 my $SearchURL = RT->Config->Get('WebPath') . '/Search/Results.html?' . $m->comp('/Elements/QueryString', Query => $Query);
121 return \'<a href="',$SearchURL,\'">', loc('(pending [quant,_1,other ticket])',$count), \'</a>';
125 return loc( $Ticket->Status );
131 title => 'Priority', # loc
132 attribute => 'Priority',
133 value => sub { return $_[0]->Priority }
136 title => 'InitialPriority', # loc
137 attribute => 'InitialPriority',
138 name => 'Initial Priority',
139 value => sub { return $_[0]->InitialPriority }
142 title => 'FinalPriority', # loc
143 attribute => 'FinalPriority',
144 name => 'Final Priority',
145 value => sub { return $_[0]->FinalPriority }
148 title => 'EffectiveId', # loc
149 attribute => 'EffectiveId',
150 value => sub { return $_[0]->EffectiveId }
153 title => 'Type', # loc
155 value => sub { return $_[0]->Type }
158 attribute => 'TimeWorked',
159 title => 'Time Worked', # loc
160 value => sub { return $_[0]->TimeWorked }
163 attribute => 'TimeLeft',
164 title => 'Time Left', # loc
165 value => sub { return $_[0]->TimeLeftAsString }
168 attribute => 'TimeEstimated',
169 title => 'Time Estimated', # loc
170 value => sub { return $_[0]->TimeEstimated }
173 title => 'Requestors', # loc
174 attribute => 'Requestor.EmailAddress',
175 value => sub { return $_[0]->Requestors->MemberEmailAddressesAsString }
179 attribute => 'Cc.EmailAddress',
180 value => sub { return $_[0]->Cc->MemberEmailAddressesAsString }
183 title => 'AdminCc', # loc
184 attribute => 'AdminCc.EmailAddress',
185 value => sub { return $_[0]->AdminCc->MemberEmailAddressesAsString }
188 title => 'Starts', # loc
189 attribute => 'Starts',
190 value => sub { return $_[0]->StartsObj->AgeAsString }
193 title => 'Started', # loc
194 attribute => 'Started',
195 value => sub { return $_[0]->StartedObj->AgeAsString }
198 title => 'Told', # loc
200 value => sub { return $_[0]->ToldObj->AgeAsString }
203 title => 'Due', # loc
206 my $date = $_[0]->DueObj;
207 # Highlight the date if it was due in the past, and it's still active
208 if ( $date && $date->Unix > 0 && $date->Diff < 0 && $_[0]->QueueObj->IsActiveStatus($_[0]->Status)) {
209 return (\'<span class="overdue">' , $date->AgeAsString , \'</span>');
211 return $date->AgeAsString;
215 WillResolveRelative => {
216 title => 'Will Resolve',
217 attribute => 'WillResolve',
218 value => sub { return $_[0]->WillResolveObj->AgeAsString },
220 ResolvedRelative => {
221 title => 'Resolved', # loc
222 attribute => 'Resolved',
223 value => sub { return $_[0]->ResolvedObj->AgeAsString }
226 title => 'Starts', # loc
227 attribute => 'Starts',
228 value => sub { return $_[0]->StartsObj }
231 title => 'Started', # loc
232 attribute => 'Started',
233 value => sub { return $_[0]->StartedObj },
236 title => 'Told', # loc
238 value => sub { return $_[0]->ToldObj },
241 title => 'Due', # loc
243 value => sub { return $_[0]->DueObj },
246 title => 'Will Resolve',
247 attribute => 'WillResolve',
248 value => sub { return $_[0]->WillResolveObj },
251 title => 'Resolved', # loc
252 attribute => 'Resolved',
253 value => sub { return $_[0]->ResolvedObj }
256 title => 'New messages', # loc
258 my $txn = $_[0]->SeenUpTo or return $_[0]->loc('No');
259 return \('<a href="'. RT->Config->Get('WebPath') .'/Ticket/Display.html?id='
260 . $_[0]->id .'#txn-'. $txn->id .'">'),
261 $_[0]->loc('New'), \'</a>';
265 title => 'Requestors', # loc
266 attribute => 'Requestor.EmailAddress',
269 my @requestors = $t->Requestors->MemberEmailAddresses;
270 for my $email (@requestors)
272 my %key = RT::Crypt::GnuPG::GetKeyInfo($email);
273 if (!defined $key{'info'}) {
274 $email .= ' ' . loc("(no pubkey!)");
276 elsif ($key{'info'}{'TrustLevel'} == 0) {
277 $email .= ' ' . loc("(untrusted!)");
280 return join ', ', @requestors;
284 title => 'Owner', # loc
285 attribute => 'Owner',
288 my $name = $t->OwnerObj->Name;
289 my %key = RT::Crypt::GnuPG::GetKeyInfo($t->OwnerObj->EmailAddress);
290 if (!defined $key{'info'}) {
291 $name .= ' '. loc("(no pubkey!)");
293 elsif ($key{'info'}{'TrustLevel'} == 0) {
294 $name .= ' '. loc("(untrusted!)");
301 # Everything from LINKTYPEMAP
303 $_ => { value => $LinkCallback->( $_ ) }
304 } keys %RT::Ticket::LINKTYPEMAP),
307 value => sub { return $_[1] % 2 ? 'oddline' : 'evenline' }
310 attribute => 'checkbox',
311 title => 'Update', # loc
313 value => sub { return \('<input type="checkbox" class="checkbox" name="UpdateTicket'.$_[0]->id.'" value="1" checked="checked" />') }
319 my $bookmark = $m->scomp( '/Ticket/Elements/Bookmark', id => $_[0]->id );
320 # the CollectionAsTable/Row template replaces newlines with <br>
321 $bookmark =~ s/\n//g;
328 $m->comp('/Elements/CustomerFields', 'ColumnMap'),
329 $m->comp('/Elements/ServiceFields', 'ColumnMap'),
332 # if no GPG support, then KeyOwnerName and KeyRequestors fall back to the regular
334 if (RT->Config->Get('GnuPG')->{'Enable'}) {
335 require RT::Crypt::GnuPG;
338 $COLUMN_MAP->{KeyOwnerName} = $COLUMN_MAP->{OwnerName};
339 $COLUMN_MAP->{KeyRequestors} = $COLUMN_MAP->{Requestors};
343 $m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'Once', CallbackOnce => 1 );
344 # backward compatibility
345 $m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'ColumnMap' );
346 return GetColumnMapEntry( Map => $COLUMN_MAP, Name => $Name, Attribute => $Attr );