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	joko	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