Retrive XML data from CI's in code

[Basia]

i have some trouble reading data from the CI's, i am trying to read the XML
data of the latest version of a CI.


this is code i have managed so far:

Code: Select all

my $ConfigItem =  $CommonObject{ConfigItemObject}->ConfigItemGet(
    ConfigItemID => $ConfigItemID,
    );


my $Version = $CommonObject{ConfigItemObject}->VersionGet(
    VersionID  => $ConfigItem->{LastVersionID},
    XMLDataGet => 1,
    );

my $XMLArray = $Version->{_XMLVersionGet};

print $XMLArray->{Name};

but i am not sure how to retrieve the data from $XMLArray.
it says it is uninitialized.

How do i read data of one (or more) CI's?
i am interested in data like: vendor, owner, name etc.

[RStraub]

Code: Select all

my $Version = $CommonObject{ConfigItemObject}->VersionGet(
    VersionID  => $ConfigItem->{LastVersionID},
    XMLDataGet => 1,
    );

This is allright, you now have a reference to the latest version.
Access it's XML data via:

Code: Select all

$Version->{XMLData}

Either print or dumper. I tried to get a certain value of that data, but our CI definition was huge, I got confused and gave up

[Basia]

can you help me with this then? i am trying to print it, either as a whole,
or in a for loop. all i get is references? how do i make it output the data?

Code: Select all

print "\nXMLDATA:  $Version->{XMLData} \n";

for ($Version->{XMLData}){
        print $_;
}

this is the output:

Code: Select all

XMLDATA:  ARRAY(0x3eaf7e8) 
ARRAY(0x3eaf7e8)

[RStraub]

Yeah, that's a nasty stack of hash-ref and array-refs.

Say you have a field called "InventoryNumber" you want to read. Then you probably get the value with this:

Code: Select all

print "$Version->{XMLData}[1]->{Version}[1]->{InventoryNumber}[1]->{Content}"

[Basia]

can you explain your code a bit more?

i am wondering specifically why the need for

Code: Select all

[1]

is this some array thing?

and about the

Code: Select all

{version}

is this version of Version? how can i understand this?

[reneeb]

[1] accesses the second element of the array(reference). The first element is always undefined (don't know why OTRS does this).

"Version" is a fixed string...

[Basia]

i think i can retrieve most of the items (i have tested most) but i am having trouble with 'ExpirationDate'.

i try to recieve it with:

Code: Select all

print "Expiration Date : " . $Version->{XMLData}[1]->{Version}[1]->{ExpirationDate}[1]->{Content};

but the output says uninitialized:

Code: Select all

Use of uninitialized value in concatenation (.) or string at ./otrs.wicked.pl line 77

am i doing something wrong with this?

[reneeb]

Dumper was already mentioned. That should show you the underlying datastructure...

[RStraub]

Could you post the definition of your CI ?

[RStraub]

[1] accesses the second element of the array(reference). The first element is always undefined (don't know why OTRS does this).

"Version" is a fixed string...

Oh yeah - that bugged me quiete a while. As I don't have much experience with perl, I took me hours to work through the datastructure (as I wanted to access the content of a "sub" definition).