2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.19 2003/03/28 03:11:25 jonen |
6 |
|
## + bugfix |
7 |
|
## |
8 |
## Revision 1.18 2003/03/28 03:07:26 jonen |
## Revision 1.18 2003/03/28 03:07:26 jonen |
9 |
## + minor changes |
## + minor changes |
10 |
## |
## |
495 |
my $obj = shift; |
my $obj = shift; |
496 |
my $option = shift; |
my $option = shift; |
497 |
my $classname = ref $obj; |
my $classname = ref $obj; |
498 |
|
my $string; |
499 |
|
|
500 |
if($option == 1) { |
if($option == 1) { |
501 |
my $string = "o_" . $obj->{guid} . "_" . $classname; |
$string = "o_" . $obj->{guid} . "_" . $classname; |
502 |
} |
} |
503 |
return $string; |
return $string; |
504 |
} |
} |