#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::DB::Item::CommandLog;
use lib '/app/tools/common/lib';
use Common::DB::Item;
use Common::DB::ItemCollection;
use Common::Debug;
use base 'Common::DB::Item';


use constant kTable => 'command_log';
use constant kDB => Common::DB::Item::kClientDB();



# JPK - Normally I don't go in for these 'swiss army knife' accessors,
# but in this case I'll make an exception.  This table is going to be
# used in a variety of ways, and I don't want to have to have a lot
# of extra code cluttering up both this file and the XMLObjects that will use it.
#

sub Get
{
    my ($class, %args) = @_;

	my $dbo = Common::RSApp::GetClientDB();

    my @selectFields = ('*');


    # Construct 'where' clause
    #
    my @where;
    if ($args{user_id})
    {
        push @where, "created_by=".$args{user_id};
    }
    if ($args{command})
    {
        # Command might be an array.
        #
        if ('ARRAY' eq ref($args{command}))
        {
            my @subWhere;
            foreach my $c (@{$args{command}})
            {
                push @subWhere, $dbo->DBQuote($c);
            }
            push @where, "command_name IN (".join(',', @subWhere).") ";
        }
        else
        {
            push @where, "command_name=".$dbo->DBQuote($args{command});
        }
    }



    # Any additional modifiers?
    #
    my @groupBy;
    my @orderBy;
    if ($args{most_recent})
    {
        push @selectFields, 'MAX(date_created)';
        push @groupBy, 'command_name';
        push @groupBy, 'command_id';

        # This '7' stuff is a bit fragile... Basically, I want to order
        # by the MAX(date_created) column. This works, but will break
        # if at some point we add another column to the table.
        #
        push @orderBy, '7 desc';
    }

    my $limit;
    if ($args{limit})
    {
        $limit = $args{limit};
    }

    # Construct the sql statement
    #
    my $sql = "SELECT " . join(',',@selectFields) . " FROM " . kTable;
    if (scalar @where)
    {
        my $whereString = join(" AND ", @where);
        $sql .= " WHERE $whereString";
    }
    if (scalar @groupBy)
    {
        $sql .= ' GROUP BY ' . join(',', @groupBy);
    }
    if (scalar @orderBy)
    {
        $sql .= ' ORDER BY ' . join(',', @orderBy);
    }
    if ($limit)
    {
        $sql .= " LIMIT $limit";
    }

    return $class->GetAll($sql);
}




1;