/[cvs]/nfo/perl/libs/Data/Transfer/Sync/API/V1.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Transfer/Sync/API/V1.pm

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

revision 1.1 by joko, Sun Feb 9 05:04:32 2003 UTC revision 1.2 by joko, Tue Feb 11 09:52:02 2003 UTC
# Line 8  Line 8 
8  ##  ##
9  ## -------------------------------------------------------------------------  ## -------------------------------------------------------------------------
10  ##  $Log$  ##  $Log$
11    ##  Revision 1.2  2003/02/11 09:52:02  joko
12    ##  + backward compatibility, some fixes
13    ##
14  ##  Revision 1.1  2003/02/09 05:04:32  joko  ##  Revision 1.1  2003/02/09 05:04:32  joko
15  ##  + initial commit  ##  + initial commit
16  ##  ##
# Line 44  sub checkOptions { Line 47  sub checkOptions {
47    }    }
48        
49    # check - do we have a mapping?    # check - do we have a mapping?
50    if (!$self->{options}->{details}) {    #if (!$self->{options}->{details}) {
51      $logger->warning( __PACKAGE__ . "->checkOptions: Error while resolving resource metadata - no 'fieldmap' could be determined.");    #  $logger->warning( __PACKAGE__ . "->checkOptions: Error while resolving resource metadata - no 'fieldmap' could be determined.");
52      $result = 0;    #  $result = 0;
53    }    #}
54        
55    # TODO: extend!    # TODO: extend!
56    
# Line 196  sub options_to_V2 { Line 199  sub options_to_V2 {
199    
200    $logger->debug( __PACKAGE__ . "->options_to_V2");    $logger->debug( __PACKAGE__ . "->options_to_V2");
201    
202      # trace
203        #print Dumper($map);
204    
205    # move the 'target' address    # move the 'target' address
206    $map->{target} = { address => $map->{target} };    $map->{target} = { address => $map->{target} };
207      $map->{source} = { address => $map->{source} };
208    
209    $map->{source}->{ident} = $map->{source_ident};    $map->{source}->{ident} = $map->{source_ident} if $map->{source_ident};
210    delete $map->{source_ident};    delete $map->{source_ident};
211    $map->{source}->{type} = $map->{source_type};    $map->{source}->{callbacks}->{read} = $map->{source_callbacks_read} if $map->{source_callbacks_read};
212    delete $map->{source_type};    delete $map->{source_callbacks_read};
213      $map->{source}->{callbacks}->{write} = $map->{source_callbacks_write} if $map->{source_callbacks_write};
214      delete $map->{source_callbacks_write};
215      $map->{source}->{filter} = $map->{source_filter} if $map->{source_filter};
216      delete $map->{source_filter};
217    
218    $map->{target}->{ident} = $map->{target_ident};    $map->{target}->{ident} = $map->{target_ident} if $map->{target_ident};
219    delete $map->{target_ident};    delete $map->{target_ident};
220    
221  }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed