Parent Directory
| 
Revision Log
| 
Patch
| revision 1.3 by wakaba, Sun Jul 20 11:17:24 2008 UTC | revision 1.4 by wakaba, Thu Jul 24 13:17:11 2008 UTC | |
|---|---|---|
| # | Line 34 for (split /[&;]/, $ENV{QUERY_STRING} || | Line 34 for (split /[&;]/, $ENV{QUERY_STRING} || |
| 34 | my $eword = htescape $param->{word}; | my $eword = htescape $param->{word}; |
| 35 | ||
| 36 | my $pattern = quotemeta normalize $param->{word}; | my $pattern = quotemeta normalize $param->{word}; |
| 37 | $pattern =~ s/\\-/[- ]/g; | |
| 38 | unless ($param->{cs}) { | unless ($param->{cs}) { |
| 39 | $pattern =~ s/([A-Za-z])/'[' . uc ($1) . lc ($1) . ']'/ge; | $pattern =~ s/([A-Za-z])/'[' . uc ($1) . lc ($1) . ']'/ge; |
| 40 | } | } |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |