How to get the Change-State by Perl

[Rasputin80]

Hello,

We are using a customzied Version of AgentChangesInEventCalendarEvents.pm (https://github.com/reneeb/otrs-ChangesI ... rEvents.pm) and i'm unsure how i get the Change-State (text) in to a Variable,
our change states comes from ITSM::ChangeManagement::Change::State. I'd like to fil a Variable with "successful" or "aborted" etc.

Thanks for a Tip
Oliver

[reneeb]

The ChangeGet method returns a hash with various information, there is a key 'ChangeState'... https://github.com/OTRS/ITSMChangeManag ... MChange.pm

And you can get all states with the GeneralCatalog-Object:

Code: Select all

    my $StateList = $Kernel::OM->Get('Kernel::System::GeneralCatalog')->ItemList(
        Class => 'ITSM::ChangeManagement::Change::State',
);

[Rasputin80]

So actually that should work?

Code: Select all

my $Change = $ITSMChangeObject->ChangeGet(
			UserID   => $Self->{UserID},
			ChangeID => $WorkOrder->{ChangeID},
			
	);
		
	my $ChangeState = $Change->{ChangeState};

[reneeb]

yes