/[cvs]/nfo/perl/libs/Data/Mungle/Transform/Deep.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Mungle/Transform/Deep.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by jonen, Fri Mar 28 03:07:26 2003 UTC revision 1.19 by jonen, Fri Mar 28 03:11:25 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 492  sub childObj2string { Line 495  sub childObj2string {
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  }  }
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed