%# BEGIN BPS TAGGED BLOCK {{{
%# 
%# COPYRIGHT:
%#  
%# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC 
%#                                          <jesse@bestpractical.com>
%# 
%# (Except where explicitly superseded by other copyright notices)
%# 
%# 
%# LICENSE:
%# 
%# 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.
%# 
%# You should have received a copy of the GNU General Public License
%# along with this program; if not, write to the Free Software
%# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%# 
%# 
%# CONTRIBUTION SUBMISSION POLICY:
%# 
%# (The following paragraph is not intended to limit the rights granted
%# to you to modify and distribute this software under the terms of
%# the GNU General Public License and is only of importance to you if
%# you choose to contribute your changes and enhancements to the
%# community by submitting them to Best Practical Solutions, LLC.)
%# 
%# By intentionally submitting any modifications, corrections or
%# derivatives to this work, or any other work intended for use with
%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
%# you are the copyright holder for those contributions and you grant
%# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
%# royalty-free, perpetual, license to use, copy, create derivative
%# works based on those contributions, and sublicense and distribute
%# those contributions and any derivatives thereof.
%# 
%# END BPS TAGGED BLOCK }}}
<%args>
$Format => undef
%cftypes => undef
$Face => undef
$Size => undef
$Link => undef
$Title => undef
$AddCol => undef
$RemoveCol => undef
$ColUp => undef
$ColDown => undef
$SelectDisplayColumns => undef
$CurrentDisplayColumns => undef
</%args>
<%init>

unless ($Format) {         
    $Format = $RT::DefaultAssetSearchResultFormat;
}   
   

# All the things we can display in the format string by default
my @fields = qw(
    Name        
    TypeName        
    id
    Status
    Description
    Created
    CreatedBy
    LastUpdated
    LastTransaction
);

splice(@fields, 2, 0, ActiveRoleArray());

push (@fields, $_) for RTx::AssetTracker::Asset::LINKORDER();
push @fields, qw( IP NEWLINE );

unless ($RT::EnableIP) {
    @fields = grep { $_ ne 'IP' } @fields;
}

my $CustomFields = RT::CustomFields->new( $session{'CurrentUser'});
foreach (keys %cftypes) {
    my $id = $_;
    $id =~ s/^.'*(.*).'*$/$1/;
    # Gotta load up the $type object, since types get stored by name now.
    my $type = RTx::AssetTracker::Type->new($session{'CurrentUser'});
    $type->Load($id);
    $CustomFields->LimitToType($type->Id);
}
$CustomFields->LimitToGlobalAsset;

while ( my $CustomField = $CustomFields->Next ) {
    push @fields, "CustomField.{" . $CustomField->Name . "}";
}

my ( @seen);

my @format = split( /,\s*/, $Format );
foreach my $field (@format) {
    my %column = ();
    $field =~ s/'(.*)'/$1/;
    my ( $prefix, $suffix );
    if ( $field =~ m/(.*)__(.*)__(.*)/ ) {
        $prefix = $1;
        $suffix = $3;
        $field  = $2;
    }
    $field = "<blank>" if !$field;
    $column{Prefix} = $prefix;
    $column{Suffix} = $suffix;
    $field =~ s/\s*(.*)\s*/$1/;
    $column{Column} = $field;
    push @seen, \%column;
}

if ( $RemoveCol ) {
    my $index  = $CurrentDisplayColumns;
    my $column = $seen[$index];
    if ($index) {
        delete $seen[$index];
        my @temp = @seen;
        @seen = ();
        foreach my $element (@temp) {
            next unless $element;
            push @seen, $element;
        }
    }
}
elsif ( $AddCol ) {
    if ( defined $SelectDisplayColumns ) {
	my $selected = $SelectDisplayColumns;
	my @columns;
	if (ref($selected) eq 'ARRAY') {
	    @columns = @$selected;
	} else {
	    push @columns, $selected;
	}
	foreach my $col (@columns) {
	    my %column = ();
	    $column{Column} = $col;

    if ( $Face eq "Bold" ) {
        $column{Prefix} .= "<B>";
        $column{Suffix} .= "</B>";
    }
    if ( $Face eq "Italic" ) {
        $column{Prefix} .= "<I>";
        $column{Suffix} .= "</I>";
    }
    if ($Size) {
        $column{Prefix} .= "<" . $m->interp->apply_escapes( $Size,  'h' ) . ">";
        $column{Suffix} .= "</" . $m->interp->apply_escapes( $Size, 'h' ) . ">";
    }
    if ( $Link eq "Display" ) {
        $column{Prefix} .=
          "<A HREF=\"" . $RT::WebPath . "/AssetTracker/Asset/Display.html?id=__id__\">";
        $column{Suffix} .= "</a>";
    }
    elsif ( $Link eq "Take" ) {
        $column{Prefix} .=
            "<A HREF=\""
          . $RT::WebPath
          . "/AssetTracker/Asset/Display.html?Action=Take&id=__id__\">";
        $column{Suffix} .= "</a>";
    }

    if ($Title) {
        $column{Suffix} .= "/TITLE:" . $m->interp->apply_escapes( $Title, 'h' );
    }
    push @seen, \%column;
}
}
}
elsif ( $ColUp ) {
    my $index = $CurrentDisplayColumns;
    if ( defined $index && ( $index - 1 ) >= 0 ) {
        my $column = $seen[$index];
        $seen[$index]       = $seen[ $index - 1 ];
        $seen[ $index - 1 ] = $column;
        $CurrentDisplayColumns     = $index - 1;
    }
}
elsif ( $ColDown ) {
    my $index = $CurrentDisplayColumns;
    if ( defined $index && ( $index + 1 ) < scalar @seen ) {
        my $column = $seen[$index];
        $seen[$index]       = $seen[ $index + 1 ];
        $seen[ $index + 1 ] = $column;
        $CurrentDisplayColumns     = $index + 1;
    }
}


my @format_string;
foreach my $field (@seen) {
    next unless $field;
    my $row = "'" . ($field->{Prefix} || '');
    $row .= "__" . $m->interp->apply_escapes( $field->{Column}, 'h' ) . "__"
      unless ( $field->{Column} eq "<blank>" );
    $row .= ($field->{Suffix} || '') . "'";
    push( @format_string, $row );
}

$Format = join(",\n", @format_string);


return($Format, \@fields, \@seen);

</%init>

