81 |
|
|
82 |
if ($param->{'search_val'} && $param->{'search_fld'} && !$param->{'search'}) { |
if ($param->{'search_val'} && $param->{'search_fld'} && !$param->{'search'}) { |
83 |
$param->{'search'} = $param->{'search_fld'}.":".$param->{'search_val'}; |
$param->{'search'} = $param->{'search_fld'}.":".$param->{'search_val'}; |
84 |
|
} elsif ($param->{'search'}) { |
85 |
|
($param->{'search_fld'}, $param->{'search_val'}) = split(/:/,$param->{'search'},2); |
86 |
} |
} |
87 |
|
|
88 |
my $tpl_var = { |
my $tpl_var = { |
148 |
sub subject_search_filter { |
sub subject_search_filter { |
149 |
my $s = shift; |
my $s = shift; |
150 |
# remove re: fdw: [list] preffixes from e-mail |
# remove re: fdw: [list] preffixes from e-mail |
151 |
while ( $s =~ s/^\s*\[(?:re|fwd):\s+(.+)\]\s*$/$1/ig || |
while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig || |
152 |
$s =~ s/^\s*(?:re|fwd):\s+(.+?)\s*$/$1/ig || |
$s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig || |
153 |
$s =~ s/^\[\w+\]\s*//ig |
$s =~ s/^\[\S+\]\s*//ig || |
154 |
|
$s =~ s/^\[[^@]+@\w+\.\w+\s*:\s+(.+)\s*\]\s*$/$1/g |
155 |
) { }; |
) { }; |
156 |
return $s; |
return $s; |
157 |
} |
} |