49 lines
1.0 KiB
Perl
49 lines
1.0 KiB
Perl
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;
|