46 |
my @r; |
my @r; |
47 |
|
|
48 |
while ( my $result = $results->NextResult ) { |
while ( my $result = $results->NextResult ) { |
49 |
push @r, $result->Property( "swishdocpath" ); |
my $id = $result->Property( "swishdocpath" ); |
50 |
|
push @r, $id; |
51 |
|
|
52 |
|
|
53 |
|
foreach my $p (qw(from to cc bcc)) { |
54 |
|
@{$self->{cache}->{$id}->{$p}} = split(/##/, $result->Property($p.'_phrase')); |
55 |
|
} |
56 |
|
|
57 |
|
foreach my $p (qw(subject body date)) { |
58 |
|
$self->{cache}->{$id}->{$p} = $result->Property($p); |
59 |
|
} |
60 |
|
|
61 |
|
$self->{cache}->{$id}->{'body'} =~ s/##lf##/\n/gs; |
62 |
|
|
63 |
|
# this is redundant, but needed for templates later... |
64 |
|
$self->{cache}->{$id}->{'id'} = $id; |
65 |
} |
} |
66 |
|
|
67 |
return @r; |
return @r; |