[usit-rt.git] / share / html / Elements / RT__Ticket / ColumnMap

%# BEGIN BPS TAGGED BLOCK {{{
%#
%# COPYRIGHT:
%#
%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
%#                                          <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%#
%#
%# LICENSE:
%#
%# This work is made available to you under the terms of Version 2 of
%# the GNU General Public License. A copy of that license should have
%# been provided with this software, but in any event can be snarfed
%# from www.gnu.org.
%#
%# This work is distributed in the hope that it will be useful, but
%# WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%# General Public License for more details.
%#
%# You should have received a copy of the GNU General Public License
%# along with this program; if not, write to the Free Software
%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
%# 02110-1301 or visit their web page on the internet at
%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
%#
%#
%# CONTRIBUTION SUBMISSION POLICY:
%#
%# (The following paragraph is not intended to limit the rights granted
%# to you to modify and distribute this software under the terms of
%# the GNU General Public License and is only of importance to you if
%# you choose to contribute your changes and enhancements to the
%# community by submitting them to Best Practical Solutions, LLC.)
%#
%# By intentionally submitting any modifications, corrections or
%# derivatives to this work, or any other work intended for use with
%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
%# you are the copyright holder for those contributions and you grant
%# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
%# royalty-free, perpetual, license to use, copy, create derivative
%# works based on those contributions, and sublicense and distribute
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
<%ARGS>
$Name => undef
$Attr => undef
</%ARGS>


<%ONCE>
my $COLUMN_MAP;

my $LinkCallback = sub {
    my $method = shift;

    my $mode            = $RT::Ticket::LINKTYPEMAP{$method}{Mode};
    my $type            = $RT::Ticket::LINKTYPEMAP{$method}{Type};
    my $other_mode      = ($mode eq "Target" ? "Base" : "Target");
    my $mode_uri        = $mode.'URI';
    my $local_type      = 'Local'.$mode;

    return sub {
        map {
            \'<a href="',
            $_->$mode_uri->Resolver->HREF,
            \'">',
            ( $_->$mode_uri->IsLocal ? $_->$local_type : $_->$mode ),
            \'</a><br />',
        } @{ $_[0]->Links($other_mode,$type)->ItemsArrayRef }
    }
};

$COLUMN_MAP = {
    Queue => {
        attribute => 'Queue',
        title     => 'Queue id', # loc
        value     => sub { return $_[0]->Queue }
    },
    QueueName => {
        attribute => 'Queue',
        title     => 'Queue', # loc
        value     => sub { return $_[0]->QueueObj->Name }
    },
    OwnerName => {
        title     => 'Owner', # loc
        attribute => 'Owner',
        value     => sub { return $_[0]->OwnerObj->Name }
    },
    Status => {
        title     => 'Status', # loc
        attribute => 'Status',
        value     => sub { return loc($_[0]->Status) }
    },
    Subject => {
        title     => 'Subject', # loc
        attribute => 'Subject',
        value     => sub { return $_[0]->Subject || "(" . loc('No subject') . ")" }
    },
    ExtendedStatus => {
        title     => 'Status', # loc
        attribute => 'Status',
        value     => sub {
            my $Ticket = shift;

            if ( my $count = $Ticket->HasUnresolvedDependencies ) {
                if (   $Ticket->HasUnresolvedDependencies( Type => 'approval' )
                    or $Ticket->HasUnresolvedDependencies( Type => 'code' ) )
                {
                    return \'<em>', loc('(pending approval)'), \'</em>';
                }
                else {
                    my $Query = "DependedOnBy = " . $Ticket->id;
                    $Query .= " AND (" . join(" OR ", map { "Status = '$_'" } RT::Queue->ActiveStatusArray) . ")";

                    my $SearchURL = RT->Config->Get('WebPath') . '/Search/Results.html?' . $m->comp('/Elements/QueryString', Query => $Query);

                    return \'<a href="',$SearchURL,\'">', loc('(pending [quant,_1,other ticket])',$count), \'</a>';
                }
            }
            else {
                return loc( $Ticket->Status );
            }

          }
    },
    Priority => {
        title     => 'Priority', # loc
        attribute => 'Priority',
        value     => sub { return $_[0]->Priority }
    },
    InitialPriority => {
        title     => 'InitialPriority', # loc
        attribute => 'InitialPriority',
        name      => 'Initial Priority',
        value     => sub { return $_[0]->InitialPriority }
    },
    FinalPriority => {
        title     => 'FinalPriority', # loc
        attribute => 'FinalPriority',
        name      => 'Final Priority',
        value     => sub { return $_[0]->FinalPriority }
    },
    EffectiveId => {
        title     => 'EffectiveId', # loc
        attribute => 'EffectiveId',
        value     => sub { return $_[0]->EffectiveId }
    },
    Type => {
        title     => 'Type', # loc
        attribute => 'Type',
        value     => sub { return $_[0]->Type }
    },
    TimeWorked => {
        attribute => 'TimeWorked',
        title     => 'Time Worked', # loc
        value     => sub { return $_[0]->TimeWorked }
    },
    TimeLeft => {
        attribute => 'TimeLeft',
        title     => 'Time Left', # loc
        value     => sub { return $_[0]->TimeLeftAsString }
    },
    TimeEstimated => {
        attribute => 'TimeEstimated',
        title     => 'Time Estimated', # loc
        value     => sub { return $_[0]->TimeEstimated }
    },
    Requestors => {
        title     => 'Requestors', # loc
        attribute => 'Requestor.EmailAddress',
        value     => sub { return $_[0]->Requestors->MemberEmailAddressesAsString }
    },
    Cc => {
        title     => 'Cc', # loc
        attribute => 'Cc.EmailAddress',
        value     => sub { return $_[0]->Cc->MemberEmailAddressesAsString }
    },
    AdminCc => {
        title     => 'AdminCc', # loc
        attribute => 'AdminCc.EmailAddress',
        value     => sub { return $_[0]->AdminCc->MemberEmailAddressesAsString }
    },
    StartsRelative => {
        title     => 'Starts', # loc
        attribute => 'Starts',
        value     => sub { return $_[0]->StartsObj->AgeAsString }
    },
    StartedRelative => {
        title     => 'Started', # loc
        attribute => 'Started',
        value     => sub { return $_[0]->StartedObj->AgeAsString }
    },
    ToldRelative => {
        title     => 'Told', # loc
        attribute => 'Told',
        value     => sub { return $_[0]->ToldObj->AgeAsString }
    },
    DueRelative => {
        title     => 'Due', # loc
        attribute => 'Due',
        value     => sub { 
            my $date = $_[0]->DueObj;
            # Highlight the date if it was due in the past, and it's still active
            if ( $date && $date->Unix > 0 && $date->Diff < 0 && $_[0]->QueueObj->IsActiveStatus($_[0]->Status)) {
                return (\'<span class="overdue">' , $date->AgeAsString , \'</span>');
            } else {
                return $date->AgeAsString;
            }
        }
    },
    ResolvedRelative => {
        title     => 'Resolved', # loc
        attribute => 'Resolved',
        value     => sub { return $_[0]->ResolvedObj->AgeAsString }
    },
    Starts => {
        title     => 'Starts', # loc
        attribute => 'Starts',
        value     => sub { return $_[0]->StartsObj->AsString }
    },
    Started => {
        title     => 'Started', # loc
        attribute => 'Started',
        value     => sub { return $_[0]->StartedObj->AsString }
    },
    Told => {
        title     => 'Told', # loc
        attribute => 'Told',
        value     => sub { return $_[0]->ToldObj->AsString }
    },
    Due => {
        title     => 'Due', # loc
        attribute => 'Due',
        value     => sub { return $_[0]->DueObj->AsString }
    },
    Resolved => {
        title     => 'Resolved', # loc
        attribute => 'Resolved',
        value     => sub { return $_[0]->ResolvedObj->AsString }
    },
    UpdateStatus => {
        title => 'New messages', # loc
        value => sub {
            my $txn = $_[0]->SeenUpTo or return $_[0]->loc('No');
            return \('<a href="'. RT->Config->Get('WebPath') .'/Ticket/Display.html?id='
                . $_[0]->id .'#txn-'. $txn->id .'">'),
                $_[0]->loc('New'), \'</a>';
        },
    },
    KeyRequestors => {
        title     => 'Requestors', # loc
        attribute => 'Requestor.EmailAddress',
        value => sub {
            my $t = shift;
            my @requestors = $t->Requestors->MemberEmailAddresses;
            for my $email (@requestors)
            {
                my %key = RT::Crypt::GnuPG::GetKeyInfo($email);
                if (!defined $key{'info'}) {
                    $email .= ' ' . loc("(no pubkey!)");
                }
                elsif ($key{'info'}{'TrustLevel'} == 0) {
                    $email .= ' ' . loc("(untrusted!)");
                }
            }
            return join ', ', @requestors;
        }
    },
    KeyOwnerName => {
        title     => 'Owner', # loc
        attribute => 'Owner',
        value     => sub {
            my $t = shift;
            my $name = $t->OwnerObj->Name;
            my %key = RT::Crypt::GnuPG::GetKeyInfo($t->OwnerObj->EmailAddress);
            if (!defined $key{'info'}) {
                $name .= ' '. loc("(no pubkey!)");
            }
            elsif ($key{'info'}{'TrustLevel'} == 0) {
                $name .= ' '. loc("(untrusted!)");
            }

            return $name;
        }
    },

    # Everything from LINKTYPEMAP
    (map {
        $_ => { value => $LinkCallback->( $_ ) }
    } keys %RT::Ticket::LINKTYPEMAP),

    '_CLASS' => {
        value => sub { return $_[1] % 2 ? 'oddline' : 'evenline' }
    },
    '_CHECKBOX' => {
        attribute => 'checkbox',
        title => 'Update', # loc
        align     => 'right',
        value     => sub { return \('<input type="checkbox" class="checkbox" name="UpdateTicket'.$_[0]->id.'" value="1" checked="checked" />') }
    },

    Bookmark => {
        title => ' ',
        value => sub {
            my $bookmark = $m->scomp( '/Ticket/Elements/Bookmark', id => $_[0]->id );
            # the CollectionAsTable/Row template replaces newlines with <br>
            $bookmark =~ s/\n//g;

            return \$bookmark;
        },
    },
};

# if no GPG support, then KeyOwnerName and KeyRequestors fall back to the regular
# versions
if (RT->Config->Get('GnuPG')->{'Enable'}) {
    require RT::Crypt::GnuPG;
}
else {
    $COLUMN_MAP->{KeyOwnerName} = $COLUMN_MAP->{OwnerName};
    $COLUMN_MAP->{KeyRequestors} = $COLUMN_MAP->{Requestors};
}
</%ONCE>
<%init>
$m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'Once', CallbackOnce => 1 );
# backward compatibility
$m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'ColumnMap' );
return GetColumnMapEntry( Map => $COLUMN_MAP, Name => $Name, Attribute => $Attr );
</%init>
Commit	Line	Data
84fb5b46 MKG	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	$Name => undef
	50	$Attr => undef
	51	</%ARGS>
	52
	53
	54	<%ONCE>
	55	my $COLUMN_MAP;
	56
	57	my $LinkCallback = sub {
	58	my $method = shift;
	59
	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;
65
66	return sub {
67	map {
68	\'<a href="',
69	$_->$mode_uri->Resolver->HREF,
70	\'">',
71	( $_->$mode_uri->IsLocal ? $_->$local_type : $_->$mode ),
72	\'</a><br />',
73	} @{ $_[0]->Links($other_mode,$type)->ItemsArrayRef }
74	}
75	};
76
77	$COLUMN_MAP = {
78	Queue => {
79	attribute => 'Queue',
80	title => 'Queue id', # loc
81	value => sub { return $_[0]->Queue }
82	},
83	QueueName => {
84	attribute => 'Queue',
85	title => 'Queue', # loc
86	value => sub { return $_[0]->QueueObj->Name }
87	},
88	OwnerName => {
89	title => 'Owner', # loc
90	attribute => 'Owner',
91	value => sub { return $_[0]->OwnerObj->Name }
92	},
93	Status => {
94	title => 'Status', # loc
95	attribute => 'Status',
96	value => sub { return loc($_[0]->Status) }
97	},
98	Subject => {
99	title => 'Subject', # loc
100	attribute => 'Subject',
101	value => sub { return $_[0]->Subject \|\| "(" . loc('No subject') . ")" }
102	},
103	ExtendedStatus => {
104	title => 'Status', # loc
105	attribute => 'Status',
106	value => sub {
107	my $Ticket = shift;
108
109	if ( my $count = $Ticket->HasUnresolvedDependencies ) {
110	if ( $Ticket->HasUnresolvedDependencies( Type => 'approval' )
111	or $Ticket->HasUnresolvedDependencies( Type => 'code' ) )
112	{
113	return \'<em>', loc('(pending approval)'), \'</em>';
114	}
115	else {
116	my $Query = "DependedOnBy = " . $Ticket->id;
117	$Query .= " AND (" . join(" OR ", map { "Status = '$_'" } RT::Queue->ActiveStatusArray) . ")";
118
119	my $SearchURL = RT->Config->Get('WebPath') . '/Search/Results.html?' . $m->comp('/Elements/QueryString', Query => $Query);
120
121	return \'<a href="',$SearchURL,\'">', loc('(pending [quant,_1,other ticket])',$count), \'</a>';
122	}
123	}
124	else {
125	return loc( $Ticket->Status );
126	}
127
128	}
129	},
130	Priority => {
131	title => 'Priority', # loc
132	attribute => 'Priority',
133	value => sub { return $_[0]->Priority }
134	},
135	InitialPriority => {
136	title => 'InitialPriority', # loc
137	attribute => 'InitialPriority',
138	name => 'Initial Priority',
139	value => sub { return $_[0]->InitialPriority }
140	},
141	FinalPriority => {
142	title => 'FinalPriority', # loc
143	attribute => 'FinalPriority',
144	name => 'Final Priority',
145	value => sub { return $_[0]->FinalPriority }
146	},
147	EffectiveId => {
148	title => 'EffectiveId', # loc
149	attribute => 'EffectiveId',
150	value => sub { return $_[0]->EffectiveId }
151	},
152	Type => {
153	title => 'Type', # loc
154	attribute => 'Type',
155	value => sub { return $_[0]->Type }
156	},
157	TimeWorked => {
158	attribute => 'TimeWorked',
159	title => 'Time Worked', # loc
160	value => sub { return $_[0]->TimeWorked }
161	},
162	TimeLeft => {
163	attribute => 'TimeLeft',
164	title => 'Time Left', # loc
165	value => sub { return $_[0]->TimeLeftAsString }
166	},
167	TimeEstimated => {
168	attribute => 'TimeEstimated',
169	title => 'Time Estimated', # loc
170	value => sub { return $_[0]->TimeEstimated }
171	},
172	Requestors => {
173	title => 'Requestors', # loc
174	attribute => 'Requestor.EmailAddress',
175	value => sub { return $_[0]->Requestors->MemberEmailAddressesAsString }
176	},
177	Cc => {
178	title => 'Cc', # loc
179	attribute => 'Cc.EmailAddress',
180	value => sub { return $_[0]->Cc->MemberEmailAddressesAsString }
181	},
182	AdminCc => {
183	title => 'AdminCc', # loc
184	attribute => 'AdminCc.EmailAddress',
185	value => sub { return $_[0]->AdminCc->MemberEmailAddressesAsString }
186	},
187	StartsRelative => {
188	title => 'Starts', # loc
189	attribute => 'Starts',
190	value => sub { return $_[0]->StartsObj->AgeAsString }
191	},
192	StartedRelative => {
193	title => 'Started', # loc
194	attribute => 'Started',
195	value => sub { return $_[0]->StartedObj->AgeAsString }
196	},
197	ToldRelative => {
198	title => 'Told', # loc
199	attribute => 'Told',
200	value => sub { return $_[0]->ToldObj->AgeAsString }
201	},
202	DueRelative => {
203	title => 'Due', # loc
204	attribute => 'Due',
205	value => sub {
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>');
210	} else {
211	return $date->AgeAsString;
212	}
213	}
214	},
215	ResolvedRelative => {
216	title => 'Resolved', # loc
217	attribute => 'Resolved',
218	value => sub { return $_[0]->ResolvedObj->AgeAsString }
219	},
220	Starts => {
221	title => 'Starts', # loc
222	attribute => 'Starts',
223	value => sub { return $_[0]->StartsObj->AsString }
224	},
225	Started => {
226	title => 'Started', # loc
227	attribute => 'Started',
228	value => sub { return $_[0]->StartedObj->AsString }
229	},
230	Told => {
231	title => 'Told', # loc
232	attribute => 'Told',
233	value => sub { return $_[0]->ToldObj->AsString }
234	},
235	Due => {
236	title => 'Due', # loc
237	attribute => 'Due',
238	value => sub { return $_[0]->DueObj->AsString }
239	},
240	Resolved => {
241	title => 'Resolved', # loc
242	attribute => 'Resolved',
243	value => sub { return $_[0]->ResolvedObj->AsString }
244	},
245	UpdateStatus => {
246	title => 'New messages', # loc
247	value => sub {
248	my $txn = $_[0]->SeenUpTo or return $_[0]->loc('No');
249	return \('<a href="'. RT->Config->Get('WebPath') .'/Ticket/Display.html?id='
250	. $_[0]->id .'#txn-'. $txn->id .'">'),
251	$_[0]->loc('New'), \'</a>';
252	},
253	},
254	KeyRequestors => {
255	title => 'Requestors', # loc
256	attribute => 'Requestor.EmailAddress',
257	value => sub {
258	my $t = shift;
259	my @requestors = $t->Requestors->MemberEmailAddresses;
260	for my $email (@requestors)
261	{
262	my %key = RT::Crypt::GnuPG::GetKeyInfo($email);
263	if (!defined $key{'info'}) {
264	$email .= ' ' . loc("(no pubkey!)");
265	}
266	elsif ($key{'info'}{'TrustLevel'} == 0) {
267	$email .= ' ' . loc("(untrusted!)");
268	}
269	}
270	return join ', ', @requestors;
271	}
272	},
273	KeyOwnerName => {
274	title => 'Owner', # loc
275	attribute => 'Owner',
276	value => sub {
277	my $t = shift;
278	my $name = $t->OwnerObj->Name;
279	my %key = RT::Crypt::GnuPG::GetKeyInfo($t->OwnerObj->EmailAddress);
280	if (!defined $key{'info'}) {
281	$name .= ' '. loc("(no pubkey!)");
282	}
283	elsif ($key{'info'}{'TrustLevel'} == 0) {
284	$name .= ' '. loc("(untrusted!)");
285	}
286
287	return $name;
288	}
289	},
290
291	# Everything from LINKTYPEMAP
292	(map {
293	$_ => { value => $LinkCallback->( $_ ) }
294	} keys %RT::Ticket::LINKTYPEMAP),
295
296	'_CLASS' => {
297	value => sub { return $_[1] % 2 ? 'oddline' : 'evenline' }
298	},
299	'_CHECKBOX' => {
300	attribute => 'checkbox',
301	title => 'Update', # loc
302	align => 'right',
303	value => sub { return \('<input type="checkbox" class="checkbox" name="UpdateTicket'.$_[0]->id.'" value="1" checked="checked" />') }
304	},
305
306	Bookmark => {
307	title => ' ',
308	value => sub {
309	my $bookmark = $m->scomp( '/Ticket/Elements/Bookmark', id => $_[0]->id );
310	# the CollectionAsTable/Row template replaces newlines with <br>
311	$bookmark =~ s/\n//g;
312
313	return \$bookmark;
314	},
315	},
316	};
317
318	# if no GPG support, then KeyOwnerName and KeyRequestors fall back to the regular
319	# versions
320	if (RT->Config->Get('GnuPG')->{'Enable'}) {
321	require RT::Crypt::GnuPG;
322	}
323	else {
324	$COLUMN_MAP->{KeyOwnerName} = $COLUMN_MAP->{OwnerName};
325	$COLUMN_MAP->{KeyRequestors} = $COLUMN_MAP->{Requestors};
326	}
327	</%ONCE>
328	<%init>
329	$m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'Once', CallbackOnce => 1 );
330	# backward compatibility
331	$m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'ColumnMap' );
332	return GetColumnMapEntry( Map => $COLUMN_MAP, Name => $Name, Attribute => $Attr );
333	</%init>