Torus/Map/Outlook.pm

package Torus::Map::Outlook;

use strict;
use warnings;

sub new {
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  #bless $self, "BizWorks::SatelliteMapping";
  my $self = { @_ };
  bless $self, $class;
  return $self;
}


sub ContactItem {
  return {
    target => 'Adressen',
    source_ident => 'storage_method:id',
    target_ident => 'property:rid',
    details => [
      [ 'source:ckey' => 'target:rkey' ],
      [ 'source:cname' => 'target:rval' ],
    ],
  };
}

1;
1	package Torus::Map::Outlook;
2
3	use strict;
4	use warnings;
5
6	sub new {
7	my $invocant = shift;
8	my $class = ref($invocant) \|\| $invocant;
9	#bless $self, "BizWorks::SatelliteMapping";
10	my $self = { @_ };
11	bless $self, $class;
12	return $self;
13	}
14
15
16	sub ContactItem {
17	return {
18	target => 'Adressen',
19	source_ident => 'storage_method:id',
20	target_ident => 'property:rid',
21	details => [
22	[ 'source:ckey' => 'target:rkey' ],
23	[ 'source:cname' => 'target:rval' ],
24	],
25	};
26	}
27
28	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26