package Kernel::GenericInterface::Operation::CustomerUser::CustomerUserSearch;

use strict;
use warnings;

use Kernel::System::ObjectManager;

sub new {
    my ( $Type, %Param ) = @_;
    my $Self = {%Param};
    bless( $Self, $Type );
    return $Self;
}

sub Run {
    my ( $Self, %Param ) = @_;

    if ( !$Param{Data} ) {
        return {
            Success      => 0,
            ErrorMessage => "No Data provided",
        };
    }

    my $Search = $Param{Data}->{Search} || '';
    my $CustomerID = $Param{Data}->{CustomerID} || '';
    my $Valid = defined $Param{Data}->{Valid} ? $Param{Data}->{Valid} : 1;

    my $CustomerUserObject = $Kernel::OM->Get('Kernel::System::CustomerUser');
    
    # Search customer users
    my %Users = $CustomerUserObject->CustomerSearch(
        Search => $Search,
        CustomerID => $CustomerID,
        Valid => $Valid,
    );

    my @CustomerUserIDs = keys %Users;

    return {
        Success => 1,
        Data => {
            CustomerUserID => \@CustomerUserIDs,
        },
    };
}

1;