/[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.14 by jonen, Sat Feb 22 17:13:55 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
9    ##  + minor changes
10    ##
11    ##  Revision 1.17  2003/03/27 15:17:07  joko
12    ##  namespace fixes for Data::Mungle::*
13    ##
14    ##  Revision 1.16  2003/03/27 15:04:52  joko
15    ##  minor update: comment
16    ##
17    ##  Revision 1.15  2003/02/27 14:39:48  jonen
18    ##  + fixed bug at _hash2object()
19    ##
20  ##  Revision 1.14  2003/02/22 17:13:55  jonen  ##  Revision 1.14  2003/02/22 17:13:55  jonen
21  ##  + added function 'childObject2string()' to encode 'child'-references to option related string  ##  + added function 'childObject2string()' to encode 'child'-references to option related string
22  ##  + use new option at 'expand()' for replacing 'childObject2string'  ##  + use new option at 'expand()' for replacing 'childObject2string'
# Line 53  Line 68 
68  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
69    
70    
71  package Data::Transform::Deep;  package Data::Mungle::Transform::Deep;
72    
73  use strict;  use strict;
74  use warnings;  use warnings;
# Line 72  use Data::Dumper; Line 87  use Data::Dumper;
87  use Iterate;  use Iterate;
88    
89  use Pitonyak::DeepCopy;  use Pitonyak::DeepCopy;
90  use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar );  use Data::Mungle::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar );
91  use Data::Code::Ref qw( ref_slot );  use Data::Mungle::Code::Ref qw( ref_slot );
92    
93  sub numhash2list {  sub numhash2list {
94    my $vref = shift;    my $vref = shift;
# Line 288  sub _var_traverse_mixin_update_old { Line 303  sub _var_traverse_mixin_update_old {
303  sub merge_to {  sub merge_to {
304    _hash2object(@_);    _hash2object(@_);
305    # TODO:    # TODO:
306    # re-implement using CPAN's "Iterate".    # re-implement using CPAN's "Iterate" and/or a modified Hash::Merge.
307  }  }
308    
309    
# Line 305  sub _hash2object { Line 320  sub _hash2object {
320    numhash2list($data) if ($options->{php});    numhash2list($data) if ($options->{php});
321    
322    # utf8-conversion/-encoding (essential for I18N)    # utf8-conversion/-encoding (essential for I18N)
323    var_utf2iso($data) if ($options->{utf8});    utf8_to_latin($data) if ($options->{utf8});
324    
325    # get fresh object from database    # get fresh object from database
326    # todo:    # todo:
# Line 480  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_" . $classname . "_" .$obj->{guid};      $string = "o_" . $obj->{guid} . "_" . $classname;
     return $string;  
502    }      }  
503      return $string;
504  }  }
505    
506    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.19
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed