added doesn't match regular expression where regular expressions are handled.

This commit is contained in:
ltabb%netscape.com 1998-10-08 22:01:36 +00:00
Родитель 1abdea067e
Коммит e4da4a46fc
2 изменённых файлов: 21 добавлений и 4 удалений

Просмотреть файл

@ -132,6 +132,9 @@ sub query_checkins {
if ($query_branchtype eq 'regexp') {
$qstring .=
" and branches.branch regexp '$q'";
} elsif ($query_branchtype eq 'notregexp') {
$qstring .=
" and not (branches.branch regexp '$q') ";
} else {
$qstring .=
" and (branches.branch = '$q' or branches.branch = 'T$q')";
@ -150,6 +153,10 @@ sub query_checkins {
my $q = SqlQuote($query_who);
if ($query_whotype eq 'regexp') {
$qstring .= " and people.who regexp '$q'";
}
elsif ($query_whotype eq 'notregexp') {
$qstring .= " and not (people.who regexp '$q')";
} else {
$qstring .= " and people.who = '$q'";
}

Просмотреть файл

@ -262,13 +262,23 @@ sub dateTest {
sub regexpradio {
my($name) = @_;
my $useregexp = ($form{$name} eq 'regexp');
my $c1 = $useregexp ? "" : "checked";
my $c2 = $useregexp ? "checked" : "";
my $c1,$c2,$c3;
$c1 = $c2 = $c3 = "";
if( $form{$name} eq 'regexp'){
$c2 = "checked";
}
elsif( $form{$name} eq 'notregexp'){
$c3 = "checked";
}
else {
$c1 = "checked";
}
return "
<input type=radio name=$name value=match $c1>Exact match
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=radio name=$name value=regexp $c2><a href=cvsregexp.html>Regular expression</a>";
<input type=radio name=$name value=regexp $c2><a href=cvsregexp.html>Regular&nbsp;expression</a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=radio name=$name value=notregexp $c3>Doesn't&nbsp;match&nbsp;<a href=cvsregexp.html>Reg&nbsp;Exp</a>";
}