3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.21 2002/12/16 22:20:49 jonen |
7 |
|
# + fixed bug at 'getObjectByGuid()' |
8 |
|
# |
9 |
# Revision 1.20 2002/12/16 20:49:17 jonen |
# Revision 1.20 2002/12/16 20:49:17 jonen |
10 |
# + added sub 'getObjectByGuid()' |
# + added sub 'getObjectByGuid()' |
11 |
# + added functionality to use 'getObjectByGuid' at 'getObjectAsHash()' |
# + added functionality to use 'getObjectByGuid' at 'getObjectAsHash()' |
571 |
$self->{_COREHANDLE}->unload() if ($options->{destroy}); |
$self->{_COREHANDLE}->unload() if ($options->{destroy}); |
572 |
|
|
573 |
# search for object with given Classname and Guid |
# search for object with given Classname and Guid |
574 |
my $obj_tmp = $self->{_COREHANDLE}->remote($classname); |
my $obj_tmp = $self->{_COREHANDLE}->remote($options->{classname}); |
575 |
my @result = $self->{_COREHANDLE}->select($obj_tmp, $obj_tmp->{guid} eq $guid); |
my @result = $self->{_COREHANDLE}->select($obj_tmp, $obj_tmp->{guid} eq $guid); |
576 |
|
|
577 |
# we searched for global unique identifer of some object, |
# we searched for global unique identifer of some object, |
579 |
if($result[0]) { |
if($result[0]) { |
580 |
return $result[0]; |
return $result[0]; |
581 |
} else { |
} else { |
582 |
return "No Object with Classname $classname and GUID $options->{guid} found!"; |
return "No Object with Classname $options->{classname} and GUID $options->{guid} found!"; |
583 |
} |
} |
584 |
|
|
585 |
} |
} |