Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / share / html / Elements / CollectionAsTable / Row
1 %# BEGIN BPS TAGGED BLOCK {{{
2 %#
3 %# COPYRIGHT:
4 %#
5 %# This software is Copyright (c) 1996-2013 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 $i => undef
50 @Format => undef
51 $record => undef
52 $maxitems => undef
53 $Depth => undef
54 $Warning => undef
55 $ColumnMap => {}
56 $Class     => 'RT__Ticket'
57 $Classes => ''
58 </%ARGS>
59 <%init>
60 $m->out(  '<tr class="' . $Classes . ' '
61         . ( $Warning ? 'warnline' : $i % 2 ? 'oddline' : 'evenline' ) . '" >'
62         . "\n" );
63 my $item;
64 foreach my $column (@Format) {
65     if ( defined $column->{title} && $column->{title} eq 'NEWLINE' ) {
66         while ( $item < $maxitems ) {
67             $m->out(qq{<td class="collection-as-table">&nbsp;</td>\n});
68             $item++;
69         }
70         $item = 0;
71         $m->out( '</tr>' . "\n" );
72         $m->out(  '<tr class="'
73                 . ( $Warning ? 'warnline' : $i % 2 ? 'oddline' : 'evenline' )
74                 . '" >'
75                 . "\n" );
76         next;
77     }
78
79     my $class = $column->{class} ? $m->interp->apply_escapes($column->{class}, 'h') : 'collection-as-table';
80     $m->out(qq{<td class="$class" });
81
82     my %attrs;
83     foreach my $attr (qw(style align)) {
84         if ( defined $column->{ $attr } ) {
85             $attrs{ $attr } = $column->{ $attr };
86             next;
87         }
88
89         # if it's not defined then use column map
90         my $col = $column->{'attribute'} || $column->{'last_attribute'};
91         unless ( exists $ColumnMap->{$col}{$attr} ) {
92             next unless $col;
93
94             $ColumnMap->{$col}{$attr} = $m->comp(
95                 "/Elements/ColumnMap",
96                 Class => $Class,
97                 Name  => $col,
98                 Attr  => $attr,
99             );
100         }
101         $attrs{ $attr } = ProcessColumnMapValue(
102             $ColumnMap->{$col}{$attr},
103             Arguments => [$record, $i],
104             Escape => 0,
105         );
106     }
107
108     $attrs{colspan} = $column->{span};
109     $item += ($attrs{'colspan'} || 1);
110
111     my @out;
112     foreach my $subcol ( @{ $column->{output} } ) {
113         my ($col) = ($subcol =~ /^__(.*?)__$/);
114         unless ( $col ) {
115             push @out, $subcol;
116             next;
117         }
118
119         unless ( exists $ColumnMap->{$col}{'value'} ) {
120             $ColumnMap->{$col}{'value'} = $m->comp(
121                 "/Elements/ColumnMap",
122                 Class => $Class,
123                 Name  => $col,
124                 Attr  => 'value'
125             );
126         }
127
128         push @out, ProcessColumnMapValue(
129             $ColumnMap->{$col}{'value'},
130             Arguments => [$record, $i],
131         );
132     }
133
134     $m->out( $_ .'="'. $m->interp->apply_escapes( $attrs{$_} => 'h' ) .'"' )
135         foreach grep $attrs{$_}, qw(align style colspan);
136
137     $m->out('>');
138     $m->out(@out) if @out;
139     $m->out( '</td>' . "\n" );
140 }
141 $m->out('</tr>');
142 </%init>