diff options
author | ivan <ivan> | 2004-12-03 20:40:48 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-12-03 20:40:48 +0000 |
commit | d39d52aac8f38ea9115628039f0df5aa3ac826de (patch) | |
tree | c77529c4e4dbb9bf832fcef14538dc16b2f7a110 /rt/html/Elements/CollectionAsTable/Row | |
parent | c582e92888b4a5553e1b4e5214cf35217e4a0cf0 (diff) |
import rt 3.2.2
Diffstat (limited to 'rt/html/Elements/CollectionAsTable/Row')
-rw-r--r-- | rt/html/Elements/CollectionAsTable/Row | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/rt/html/Elements/CollectionAsTable/Row b/rt/html/Elements/CollectionAsTable/Row new file mode 100644 index 000000000..926317be9 --- /dev/null +++ b/rt/html/Elements/CollectionAsTable/Row @@ -0,0 +1,69 @@ +%# BEGIN LICENSE BLOCK; +%# +%# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# 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. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK + +<%ARGS> +$i => undef +@Format => undef +$record => undef +$maxitems => undef +$Depth => undef +$Warning => undef +</%ARGS> + +<%PERL> +$m->out( '<TR class="' . ( $Warning ? 'warnline' : $i % 2 ? 'oddline' : 'evenline' ) . '" >' ); +my $item; +foreach my $column (@Format) { + if ( $column->{title} eq 'NEWLINE' ) { + while ($item < $maxitems) { + $m->out("<td> </td>\n"); + $item++; + } + $item = 0; + $m->out('</TR>'); + $m->out( '<TR class="' . + ( $Warning ? 'warnline' : $i % 2 ? 'oddline' : 'evenline' ) . '" >' ); + next; + } + $item++; + $m->out('<td align="left">'); + foreach my $subcol ( @{ $column->{output} } ) { + if ( $subcol =~ /^__(.*?)__$/o ) { + my $col = $1; + my $value = $m->comp('/Elements/RT__Ticket/ColumnMap', Name => $col, Attr => 'value'); + + if ( $value && ref($value)) { + $m->out( &{ $value } ( $record, $i ) ); + } else { + $m->out($value ); + } + } + else { + $m->out( Encode::decode_utf8($subcol) ); + } + } + $m->out('</td>'); +} +$m->out('</TR>'); +</%PERL> |