%# 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 }}}
<div class="asset-overview">
<&| /Widgets/TitleBox, title => loc("Asset Quick search"), bodyclass => "" &>

<table border="0" cellspacing="0" cellpadding="1" width="100%">                       
<tr>                                                                          
<th class="collection-as-table" align=left><&|/l&>Asset Type</&></th>                                         
% foreach ((sort keys %status), 'all') {
<th class="collection-as-table" align=center width="10%"><&|/l&><%$_%></&></th>          
% }
</tr>

% my $i;
% foreach my $type (sort keys %sql) {
% $i++;                                                                         
<tr class="<% $i%2 ? 'oddline' : 'evenline'%>" >                                
<td align="left">
<a href="<%RT->Config->Get('WebPath')%>/AssetTracker/Search/Results.html?Query=<%$sql{$type}{'all'}%>&Rows=50"><%$type%></a>
</td>
%     foreach my $status ((sort keys %status), 'all') {
<td align="center">
<a href="<%RT->Config->Get('WebPath')%>/AssetTracker/Search/Results.html?Query=<%$sql{$type}{$status}%>&Rows=50"><% $count{$type}{$status} %></a>
</td>
%     }
</tr>
% }

</table>
</&>
</div>
<%INIT>
my $Types = RTx::AssetTracker::Types->new($session{'CurrentUser'}); 
$Types->UnLimit();
my $Assets = RTx::AssetTracker::Assets->new($session{'CurrentUser'});

my %status;
my %sql;
my %count;

while (my $type = $Types->Next) {
       next unless ($type->CurrentUserHasRight('ShowAsset'));
       foreach my $status ($type->ActiveStatusArray) {
           $status{$status} = 1;

           $sql{$type->Name}{$status} = "Type='".$type->Name."' AND Status='$status'";
           $Assets->FromSQL($sql{$type->Name}{$status});
           $count{$type->Name}{$status} = $Assets->Count();

       }
       $sql{$type->Name}{'all'} = "Type = '".$type->Name."' AND Status != 'retired'";
       $Assets->FromSQL($sql{$type->Name}{'all'});
       $count{$type->Name}{'all'} = $Assets->Count();
}
foreach my $status (@RT::AssetActiveStatus) {
    $sql{all}{$status} = "Status='$status'";
    $Assets->FromSQL($sql{all}{$status});
    $count{all}{$status} = $Assets->Count();
}
    $sql{all}{all} = "Status != 'retired'";
    $Assets->FromSQL($sql{all}{all});
    $count{all}{all} = $Assets->Count();

</%INIT>
