Prima importazione
This commit is contained in:
@@ -0,0 +1,53 @@
|
||||
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;
|
||||
Reference in New Issue
Block a user