version 1.127, 2003/12/19 08:05:01
|
version 1.128, 2004/01/10 22:52:20
|
Line 746 sub makewhere {
|
Line 746 sub makewhere {
|
$type .= ($_=$TypeName{$_}) foreach @type; |
$type .= ($_=$TypeName{$_}) foreach @type; |
my $where=' 0 '; |
my $where=' 0 '; |
foreach (@type) { |
foreach (@type) { |
$where.= " OR (Type ='$_') OR (Type ='$_ä') "; |
$where.= " OR (Type ='$_') OR (Type ='$_ä') OR (Type ='ä$_') "; |
} |
} |
$where.= "OR (Type='þâ')" if ($type=~/þ|â/); |
$where.= "OR (Type='þâ')" if ($type=~/þ|â/); |
return $where; |
return $where; |