54 lines
1.2 KiB
Perl
54 lines
1.2 KiB
Perl
package Kernel::GenericInterface::Operation::CustomerUser::CustomerUserGet;
|
|
|
|
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} || !$Param{Data}->{UserLogin} ) {
|
|
return {
|
|
Success => 0,
|
|
ErrorMessage => "UserLogin is required",
|
|
};
|
|
}
|
|
|
|
my $UserLogin = $Param{Data}->{UserLogin};
|
|
my $CustomerUserObject = $Kernel::OM->Get('Kernel::System::CustomerUser');
|
|
|
|
my %User = $CustomerUserObject->CustomerUserDataGet(
|
|
User => $UserLogin,
|
|
);
|
|
|
|
if ( !%User ) {
|
|
return {
|
|
Success => 0,
|
|
ErrorMessage => "Customer user not found: $UserLogin",
|
|
};
|
|
}
|
|
|
|
return {
|
|
Success => 1,
|
|
Data => {
|
|
CustomerUser => {
|
|
UserLogin => $User{UserLogin},
|
|
UserFirstname => $User{UserFirstname},
|
|
UserLastname => $User{UserLastname},
|
|
UserEmail => $User{UserEmail},
|
|
UserCustomerID=> $User{UserCustomerID},
|
|
},
|
|
},
|
|
};
|
|
}
|
|
|
|
1;
|