/[suikacvs]/markup/html/html5/spec-ja/edit2.cgi
Suika

Diff of /markup/html/html5/spec-ja/edit2.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by wakaba, Mon Oct 27 05:00:33 2008 UTC revision 1.8 by wakaba, Sun Nov 2 04:49:55 2008 UTC
# Line 18  if ($path eq '/') { Line 18  if ($path eq '/') {
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,
30                   is_pattern => $is_pattern};                   isPattern => $is_pattern};
31            
32      lock_entry ($hash);      lock_entry ($hash);
33      set_entry ($hash, $is_pattern => $entry);      set_entry ($hash, $is_pattern => $entry);
34      commit_entries ("$path: $hash updated by $ENV{AUTH_USER}");      commit_entries ("$path: $hash updated by $ENV{REMOTE_USER}");
35            
36      print "Status: 200 Saved\n";      print "Status: 200 Saved\n";
37    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24