Upgrade to 4.0.10.
[usit-rt.git] / share / html / Search / Results.tsv
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$Format => undef
50$Query => ''
51$OrderBy => 'id'
52$Order => 'ASC'
53$PreserveNewLines => 0
54</%ARGS>
55<%INIT>
56
57$r->content_type('application/vnd.ms-excel');
58
59my $DisplayFormat = $m->comp('/Elements/ScrubHTML', Content => $Format);
60
61my @Format = $m->comp('/Elements/CollectionAsTable/ParseFormat', Format => $DisplayFormat);
62
63my @columns;
64
65my $should_loc = { map { $_ => 1 } qw(Status) };
66
67my $col_entry = sub {
68 my $col = shift;
69 # in tsv output, "#" is often a comment character but we use it for "id"
70 delete $col->{title}
71 if $col->{title} and $col->{title} =~ /^\s*#\s*$/;
72 return {
73 header => Encode::encode_utf8(loc($col->{title} || $col->{attribute})),
74 map => $m->comp(
75 "/Elements/ColumnMap",
76 Name => $col->{attribute},
77 Attr => 'value'
78 ),
79 should_loc => $should_loc->{$col->{attribute}},
80 }
81};
82
83if ($PreserveNewLines) {
84 my $col = [];
85 push @columns, $col;
86 for (@Format) {
87 if ($_->{title} eq 'NEWLINE') {
88 $col = [];
89 push @columns, $col;
90 }
91 else {
92 push @$col, $col_entry->($_);
93 }
94 }
95}
96else {
97 push @columns, [map { $_->{attribute}
98 ? $col_entry->($_)
99 : () } @Format];
100}
101
102for (@columns) {
103 $m->out(join("\t", map { $_->{header} } @$_)."\n");
104}
105
106my $Tickets = RT::Tickets->new( $session{'CurrentUser'} );
107$Tickets->FromSQL( $Query );
108if ( $OrderBy =~ /\|/ ) {
109 # Multiple Sorts
110 my @OrderBy = split /\|/, $OrderBy;
111 my @Order = split /\|/, $Order;
112 $Tickets->OrderByCols(
113 map { { FIELD => $OrderBy[$_], ORDER => $Order[$_] } }
114 ( 0 .. $#OrderBy )
115 );
116}
117else {
118 $Tickets->OrderBy( FIELD => $OrderBy, ORDER => $Order );
119}
120
121my $ii = 0;
122while (my $row = $Tickets->Next) {
123 for my $col (@columns) {
124 $m->out(join("\t", map {
125 my $val = ProcessColumnMapValue($_->{map}, Arguments => [$row, $ii++], Escape => 0);
126 $val = loc($val) if $_->{should_loc};
127 # remove tabs from all field values, they screw up the tsv
128 $val = '' unless defined $val;
129 $val =~ s/(?:\n|\r)//g; $val =~ s{\t}{ }g;
130 Encode::encode_utf8($val);
131 } @$col)."\n");
132 }
133}
134$m->abort();
135
136</%INIT>