$('override_...').innerHTML="...';
####
$('override_...').innerHTML="...";
##
##
use strict;
use warnings;
use HTML::Entities qw( encode_entities );
sub js_from_text {
for (@_ ? $_[0] : $_) {
s/([\\"])/\\$1/g;
return qq{"$_"};
}
}
sub html_from_text {
for (@_ ? $_[0] : $_) {
return encode_entities($_);
}
}
my ($text_componentId, $text_componentType, $text_newTitle) = ...;
my $js_component = js_from_text("override_$text_componentId");
my $js_componentId = js_from_text($text_componentId);
my $js_componentType = js_from_text($text_componentType);
my $js_newTitle = js_from_text($text_newTitle);
my $js_onClick = "makeForm($js_componentId, $js_componentType, $js_newTitle);";
my $html_onClick = html_from_text($js_onClick);
my $html_newTitle = html_from_text($text_newTitle);
my $html = qq{$html_newTitle};
my $js_html = js_from_text($html);
my $js_response = "\$($js_component).innerHTML = $js_html;";
print("$js_response\n");