48 |
if (@ds && $#ds > 0) { |
if (@ds && $#ds > 0) { |
49 |
print qq{<response> |
print qq{<response> |
50 |
<action type='html' target='div_record' errorCode='' errorMessage='' > |
<action type='html' target='div_record' errorCode='' errorMessage='' > |
51 |
}, $out->apply( |
}, $iconv_utf8->convert( $out->apply( |
52 |
template => $template, |
template => $template, |
53 |
data => \@ds, |
data => \@ds, |
54 |
), qq{ |
) ), qq{ |
55 |
|
|
56 |
</action> |
</action> |
57 |
<action type='javascript' errorCode='' errorMessage='' > |
<action type='javascript' errorCode='' errorMessage='' > |
88 |
|
|
89 |
if ($q->param('save_template')) { |
if ($q->param('save_template')) { |
90 |
|
|
91 |
my $tmpl = $q->param('tt_template') || die "no template?"; |
my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) || die "no template?"; |
92 |
|
sub _conv_js { |
93 |
|
my $t = shift || return; |
94 |
|
return $iconv_loc->convert(chr(hex($t))); |
95 |
|
} |
96 |
|
$tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex; |
97 |
|
|
98 |
my $tmpl_file = $out->{'include_path'} . '/' . $template; |
my $tmpl_file = $out->{'include_path'} . '/' . $template; |
99 |
write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!"; |
write_file($tmpl_file . '.new', $tmpl) || die "can't save $tmpl_file: $!"; |
100 |
rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!"; |
rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!"; |
101 |
|
|
102 |
print qq{<response> |
print qq{<response> |