/[mws]/trunk/MWS_swish.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/MWS_swish.pm

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

revision 12 by dpavlin, Thu May 6 12:40:11 2004 UTC revision 13 by dpavlin, Thu May 6 16:53:40 2004 UTC
# Line 46  sub search_index { Line 46  sub search_index {
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;
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26