Upgrade 4.0.17 clean.
[usit-rt.git] / share / html / Elements / ColumnMap
CommitLineData
84fb5b46
MKG
1%# BEGIN BPS TAGGED BLOCK {{{
2%#
3%# COPYRIGHT:
4%#
403d7b0b 5%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
84fb5b46
MKG
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$Class => 'RT__Ticket'
50$Name
51$Attr => undef
52</%ARGS>
53<%ONCE>
54
55# This is scary and should totally be refactored -- jesse
56my $COLUMN_MAP = {
57 id => {
58 attribute => 'id',
59 title => 'id', # loc
60 align => 'right',
61 value => sub { return $_[0]->id }
62 },
63
64 Created => {
65 attribute => 'Created',
66 title => 'Created', # loc
67 value => sub { return $_[0]->CreatedObj->AsString }
68 },
69 CreatedRelative => {
70 attribute => 'Created',
71 title => 'Created', # loc
72 value => sub { return $_[0]->CreatedObj->AgeAsString }
73 },
74 CreatedBy => {
75 attribute => 'Creator',
76 title => 'Created By', # loc
77 value => sub { return $_[0]->CreatorObj->Name }
78 },
79 LastUpdated => {
80 attribute => 'LastUpdated',
81 title => 'Last Updated', # loc
82 value => sub { return $_[0]->LastUpdatedObj->AsString }
83 },
84 LastUpdatedRelative => {
85 attribute => 'LastUpdated',
86 title => 'Last Updated', # loc
87 value => sub { return $_[0]->LastUpdatedObj->AgeAsString }
88 },
89 LastUpdatedBy => {
90 attribute => 'LastUpdatedBy',
91 title => 'Last Updated By', # loc
92 value => sub { return $_[0]->LastUpdatedByObj->Name }
93 },
94
95 CustomField => {
96 attribute => sub { return shift @_ },
97 title => sub { return pop @_ },
98 value => sub {
403d7b0b
MKG
99 # Cache the CF object on a per-request basis, to avoid
100 # having to load it for every row
101 my $key = join("-","CF",
102 $_[0]->CustomFieldLookupType,
103 $_[0]->CustomFieldLookupId,
104 $_[-1]);
105
106 my $cf = $m->notes($key);
107 unless ($cf) {
108 $cf = $_[0]->LoadCustomFieldByIdentifier($_[-1]);
109 $m->notes($key, $cf);
110 }
111
84fb5b46
MKG
112 # Display custom field contents, separated by newlines.
113 # For Image custom fields we also show a thumbnail here.
403d7b0b 114 my $values = $cf->ValuesForObject( $_[0] );
84fb5b46
MKG
115 my @values = map {
116 (
403d7b0b 117 ($cf->Type eq 'Image')
84fb5b46
MKG
118 ? \($m->scomp( '/Elements/ShowCustomFieldImage', Object => $_ ))
119 : $_->Content
120 ),
121 \'<br />',
122 } @{ $values->ItemsArrayRef };
123 pop @values; # Remove that last <br />
124 return @values;
125 },
126 },
127
128 CheckBox => {
129 title => sub {
130 my $name = $_[1] || 'SelectedTickets';
dab09ea8 131 my $checked = $DECODED_ARGS->{ $name .'All' }? 'checked="checked"': '';
84fb5b46
MKG
132
133 return \qq{<input type="checkbox" name="}, $name, \qq{All" value="1" $checked
134 onclick="setCheckbox(this.form, },
135 $m->interp->apply_escapes($name,'j'),
136 \qq{, this.checked)" />};
137 },
138 value => sub {
139 my $id = $_[0]->id;
140
141 my $name = $_[2] || 'SelectedTickets';
142 return \qq{<input type="checkbox" name="}, $name, \qq{" value="$id" checked="checked" />}
dab09ea8 143 if $DECODED_ARGS->{ $name . 'All'};
84fb5b46 144
dab09ea8 145 my $arg = $DECODED_ARGS->{ $name };
84fb5b46
MKG
146 my $checked = '';
147 if ( $arg && ref $arg ) {
01e3b242 148 $checked = 'checked="checked"' if grep $_ == $id, grep { defined and length } @$arg;
84fb5b46
MKG
149 }
150 elsif ( $arg ) {
151 $checked = 'checked="checked"' if $arg == $id;
152 }
153 return \qq{<input type="checkbox" name="}, $name, \qq{" value="$id" $checked />}
154 },
155 },
156 RadioButton => {
157 title => \'&nbsp;',
158 value => sub {
159 my $id = $_[0]->id;
160
161 my $name = $_[2] || 'SelectedTicket';
dab09ea8 162 my $arg = $DECODED_ARGS->{ $name };
84fb5b46
MKG
163 my $checked = '';
164 $checked = 'checked="checked"' if $arg && $arg == $id;
165 return \qq{<input type="radio" name="}, $name, \qq{" value="$id" $checked />};
166 },
167 },
168 (map {
169 my $value = RT->Config->Get($_);
170 $_ => { value => sub { return \$value } };
171
172 } qw(WebPath WebBaseURL WebURL)),
173 WebRequestPath => { value => sub { substr( $m->request_path, 1 ) } },
174 WebRequestPathDir => { value => sub { substr( $m->request_comp->dir_path, 1 ) } },
175};
176
177$COLUMN_MAP->{'CF'} = $COLUMN_MAP->{'CustomField'};
178
179</%ONCE>
180<%INIT>
181$m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'Once', CallbackOnce => 1 );
182$m->callback( COLUMN_MAP => $COLUMN_MAP );
183
184# first deal with class specific things
5b0d0914
MKG
185if (RT::Interface::Web->ComponentPathIsSafe($Class) and $m->comp_exists("/Elements/$Class/ColumnMap")) {
186 my $class_map = $m->comp("/Elements/$Class/ColumnMap", Attr => $Attr, Name => $Name );
187 return $class_map if defined $class_map;
188}
84fb5b46
MKG
189return GetColumnMapEntry( Map => $COLUMN_MAP, Name => $Name, Attribute => $Attr );
190
191</%INIT>