Changeset 24927
- Timestamp:
- 2012-01-09T16:16:59+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm
r24924 r24927 48 48 my $action_table = 49 49 { 50 "generate-frame" => { 'compulsory-args' => [ " json" ],50 "generate-frame" => { 'compulsory-args' => [ "fn", "json" ], 51 51 'optional-args' => [] }, 52 52 }; … … 80 80 # no need to lock collection (??), the operation is read only 81 81 82 my $json_str = $gsdl_cgi->param("json"); 83 # my $exp_frame_tree = decode_json($json_str); 82 my $json_str_unicode = $self->{'json'}; 83 my $json_str_utf8 = Encode::encode("utf8",$json_str_unicode); 84 my $exp_frame_tree = decode_json $json_str_utf8; 84 85 86 85 87 my $output_dir = &util::filename_cat($collect_dir,$collect,"export"); 86 88 … … 91 93 92 94 if (open(FOUT,">$frame_filename")) { 93 94 print FOUT $json_str; 95 binmode(FOUT,":utf8"); 96 97 print FOUT $json_str_utf8; 95 98 close(FOUT); 96 99
Note:
See TracChangeset
for help on using the changeset viewer.