package AppUser::DB::Item::UserClientImprintMap;
use strict;
use warnings;
use lib '/app/tools/common/lib';
use Common::DB::Item;
use Common::Assert;
use Common::RSApp;
use base 'Common::DB::Item';

use constant kTable => 'user_client_imprint_map';
use constant kDB    => Common::DB::Item::kCommonDB();

sub GetByUserIDClientID {
    my ( $class, $userID, $clientID ) = @_;

    #    assert($userID);
    #    assert($clientID);

    my $sql = "SELECT * FROM " . kTable . " WHERE user_id=$userID and client_id=$clientID";

    # I want to sort this list by imprint name...
    #

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

sub DeleteByUserIDClientID {
    my ( $class, $userID, $clientID ) = @_;

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

    my $sql = "DELETE FROM " . kTable . " WHERE user_id=$userID and client_id=$clientID";

    $dbo->DoCmd($sql);
}
1;