Commit 09033034 authored by terry%netscape.com's avatar terry%netscape.com

Allow a "not regexp" search of email addresses.

parent 4d8fdbd2
...@@ -291,6 +291,8 @@ foreach my $id ("1", "2") { ...@@ -291,6 +291,8 @@ foreach my $id ("1", "2") {
} }
} elsif ($type eq "regexp") { } elsif ($type eq "regexp") {
$query .= "\t$lead $table.login_name regexp $qemail\n"; $query .= "\t$lead $table.login_name regexp $qemail\n";
} elsif ($type eq "notregexp") {
$query .= "\t$lead $table.login_name not regexp $qemail\n";
} else { } else {
$query .= "\t$lead instr($table.login_name, $qemail)\n"; $query .= "\t$lead instr($table.login_name, $qemail)\n";
} }
......
...@@ -133,6 +133,7 @@ sub GenerateEmailInput { ...@@ -133,6 +133,7 @@ sub GenerateEmailInput {
<input name="email$id" size="30" value="">&nbsp;matching as <input name="email$id" size="30" value="">&nbsp;matching as
<SELECT NAME=emailtype$id> <SELECT NAME=emailtype$id>
<OPTION VALUE="regexp">regexp <OPTION VALUE="regexp">regexp
<OPTION VALUE="notregexp">not regexp
<OPTION SELECTED VALUE="substring">substring <OPTION SELECTED VALUE="substring">substring
<OPTION VALUE="exact">exact <OPTION VALUE="exact">exact
</SELECT> </SELECT>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment