Upgrade to 4.0.8 with mod of ExternalAuth + absolute paths to ticket-menu.
[usit-rt.git] / share / html / Elements / ColumnMap
CommitLineData
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$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 {
99 # Display custom field contents, separated by newlines.
100 # For Image custom fields we also show a thumbnail here.
101
102 my $values = $_[0]->CustomFieldValues( $_[-1] );
103 my @values = map {
104 (
105 ($_->CustomFieldObj->Type eq 'Image')
106 ? \($m->scomp( '/Elements/ShowCustomFieldImage', Object => $_ ))
107 : $_->Content
108 ),
109 \'<br />',
110 } @{ $values->ItemsArrayRef };
111 pop @values; # Remove that last <br />
112 return @values;
113 },
114 },
115
116 CheckBox => {
117 title => sub {
118 my $name = $_[1] || 'SelectedTickets';
dab09ea8 119 my $checked = $DECODED_ARGS->{ $name .'All' }? 'checked="checked"': '';
84fb5b46
MKG
120
121 return \qq{<input type="checkbox" name="}, $name, \qq{All" value="1" $checked
122 onclick="setCheckbox(this.form, },
123 $m->interp->apply_escapes($name,'j'),
124 \qq{, this.checked)" />};
125 },
126 value => sub {
127 my $id = $_[0]->id;
128
129 my $name = $_[2] || 'SelectedTickets';
130 return \qq{<input type="checkbox" name="}, $name, \qq{" value="$id" checked="checked" />}
dab09ea8 131 if $DECODED_ARGS->{ $name . 'All'};
84fb5b46 132
dab09ea8 133 my $arg = $DECODED_ARGS->{ $name };
84fb5b46
MKG
134 my $checked = '';
135 if ( $arg && ref $arg ) {
136 $checked = 'checked="checked"' if grep $_ == $id, @$arg;
137 }
138 elsif ( $arg ) {
139 $checked = 'checked="checked"' if $arg == $id;
140 }
141 return \qq{<input type="checkbox" name="}, $name, \qq{" value="$id" $checked />}
142 },
143 },
144 RadioButton => {
145 title => \'&nbsp;',
146 value => sub {
147 my $id = $_[0]->id;
148
149 my $name = $_[2] || 'SelectedTicket';
dab09ea8 150 my $arg = $DECODED_ARGS->{ $name };
84fb5b46
MKG
151 my $checked = '';
152 $checked = 'checked="checked"' if $arg && $arg == $id;
153 return \qq{<input type="radio" name="}, $name, \qq{" value="$id" $checked />};
154 },
155 },
156 (map {
157 my $value = RT->Config->Get($_);
158 $_ => { value => sub { return \$value } };
159
160 } qw(WebPath WebBaseURL WebURL)),
161 WebRequestPath => { value => sub { substr( $m->request_path, 1 ) } },
162 WebRequestPathDir => { value => sub { substr( $m->request_comp->dir_path, 1 ) } },
163};
164
165$COLUMN_MAP->{'CF'} = $COLUMN_MAP->{'CustomField'};
166
167</%ONCE>
168<%INIT>
169$m->callback( COLUMN_MAP => $COLUMN_MAP, CallbackName => 'Once', CallbackOnce => 1 );
170$m->callback( COLUMN_MAP => $COLUMN_MAP );
171
172# first deal with class specific things
173my $class_map = $m->comp("/Elements/$Class/ColumnMap", Attr => $Attr, Name => $Name );
174return $class_map if defined $class_map;
175return GetColumnMapEntry( Map => $COLUMN_MAP, Name => $Name, Attribute => $Attr );
176
177</%INIT>