71 |
push @res_ids, $id; |
push @res_ids, $id; |
72 |
|
|
73 |
foreach my $p (qw(from to cc bcc)) { |
foreach my $p (qw(from to cc bcc)) { |
74 |
@{$self->{cache}->{$id}->{$p}} = split(/##/, p($r,$p.'_phrase')); |
@{$self->{cache}->{$id}->{$p}} = (); |
75 |
|
foreach my $v (split(/##/, p($r,$p.'_phrase'))) { |
76 |
|
push @{$self->{cache}->{$id}->{$p}}, $v; |
77 |
|
$self->add_counter($p,$v); |
78 |
|
} |
79 |
} |
} |
80 |
|
|
81 |
foreach my $p (qw(subject body date)) { |
foreach my $p (qw(subject body date)) { |
82 |
$self->{cache}->{$id}->{$p} = p($r,$p); |
$self->{cache}->{$id}->{$p} = p($r,$p); |
83 |
} |
} |
84 |
|
|
85 |
|
$self->add_counter_calendar(p($r,'date_utime')); |
86 |
|
|
87 |
# this is redundant, but needed for templates later... |
# this is redundant, but needed for templates later... |
88 |
$self->{cache}->{$id}->{'id'} = $id; |
$self->{cache}->{$id}->{'id'} = $id; |
89 |
|
|