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 |
<script type='text/javascript'> |
</action> |
57 |
|
<action type='javascript' errorCode='' errorMessage='' > |
58 |
<!-- |
<!-- |
59 |
var el = iwfGetById('div_record_nr'); |
var el = iwfGetById('div_record_nr'); |
60 |
if (el) el.innerHTML = '# <b>$rec</b>'; |
if (el) el.innerHTML = '# <b>$rec</b>'; |
61 |
//iwfShow('div_record'); |
//iwfShow('div_record'); |
62 |
iwfOpacity('div_record', 100); |
iwfOpacity('div_record', 100); |
63 |
//--> |
//--> |
|
</script> |
|
|
|
|
64 |
</action> |
</action> |
65 |
</response> |
</response> |
66 |
}; |
}; |
70 |
<action type='html' target='div_record' errorCode='' errorMessage='' > |
<action type='html' target='div_record' errorCode='' errorMessage='' > |
71 |
|
|
72 |
<b>Record $rec not found!</b> |
<b>Record $rec not found!</b> |
73 |
<script type='text/javascript'> |
</action> |
74 |
|
<action type='javascript' errorCode='' errorMessage='' > |
75 |
<!-- |
<!-- |
76 |
var el = iwfGetById('div_record_nr'); |
var el = iwfGetById('div_record_nr'); |
77 |
if (el) el.innerHTML = '<strike>$rec</strike>'; |
if (el) el.innerHTML = '<strike>$rec</strike>'; |
78 |
//--> |
//--> |
|
</script> |
|
|
|
|
79 |
</action> |
</action> |
80 |
</response> |
</response> |
81 |
}; |
}; |
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> |