| 2 |
## $Id$ |
## $Id$ |
| 3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.20 2003/04/04 17:31:23 joko |
| 6 |
|
## minor update to 'childObj2string' |
| 7 |
|
## |
| 8 |
|
## Revision 1.19 2003/03/28 03:11:25 jonen |
| 9 |
|
## + bugfix |
| 10 |
|
## |
| 11 |
|
## Revision 1.18 2003/03/28 03:07:26 jonen |
| 12 |
|
## + minor changes |
| 13 |
|
## |
| 14 |
## Revision 1.17 2003/03/27 15:17:07 joko |
## Revision 1.17 2003/03/27 15:17:07 joko |
| 15 |
## namespace fixes for Data::Mungle::* |
## namespace fixes for Data::Mungle::* |
| 16 |
## |
## |
| 494 |
} |
} |
| 495 |
|
|
| 496 |
|
|
| 497 |
|
# encodes object-references to serialized string representations |
| 498 |
|
# made up of: |
| 499 |
|
# - 'o_<classname>_<ref type>_<guid>'??? |
| 500 |
|
# - 'o_{guid}_{classname}'!!! |
| 501 |
sub childObj2string { |
sub childObj2string { |
| 502 |
my $obj = shift; |
my $obj = shift; |
| 503 |
my $option = shift; |
my $option = shift; |
| 504 |
my $classname = ref $obj; |
my $string = 'n/a'; |
| 505 |
|
|
| 506 |
|
if ($option == 1) { |
| 507 |
|
if ((my $classname = ref $obj) && (my $guid = $obj->{guid})) { |
| 508 |
|
$string = join('_', 'o', $guid, $classname); |
| 509 |
|
} |
| 510 |
|
} |
| 511 |
|
|
| 512 |
if($option == 1) { |
return $string; |
|
my $string = "o_" . $classname . "_" .$obj->{guid}; |
|
|
return $string; |
|
|
} |
|
| 513 |
} |
} |
| 514 |
|
|
| 515 |
|
|
Parent Directory
| 
Revision Log
| 
Patch
