| 18 |
return Encode::decode ('utf-8', $_[1]); |
return Encode::decode ('utf-8', $_[1]); |
| 19 |
}; |
}; |
| 20 |
|
|
| 21 |
my $en = $cgi->get_parameter ('en'); |
my $en = normalize_width ($cgi->get_parameter ('en')); |
| 22 |
my $ja = $cgi->get_parameter ('ja'); |
my $ja = normalize_width ($cgi->get_parameter ('ja')); |
| 23 |
my $is_pattern = $cgi->get_parameter ('pattern'); |
my $is_pattern = $cgi->get_parameter ('pattern'); |
| 24 |
my $tags = [map {normalize ($_)} |
my $tags = [map {normalize ($_)} |
| 25 |
split /[\x0D\x0A]+/, $cgi->get_parameter ('tags') // '']; |
split /[\x0D\x0A]+/, |
| 26 |
|
normalize_width ($cgi->get_parameter ('tags') // '')]; |
| 27 |
|
|
| 28 |
my $hash = get_hash ($en); |
my $hash = get_hash ($en); |
| 29 |
my $entry = {en => $en, ja => $ja, tags => $tags, |
my $entry = {en => $en, ja => $ja, tags => $tags, |
Parent Directory
| 
Revision Log
| 
Patch