RE: Newline in CGI script: Solution

[Jerry Kassebaum]

Friends,

I had to go to kasamba.com and purchase a solution. I had to ask three 
experts before one could answer, and it cost $5. (The first two charged 
nothing.)

Two lines had to be changed:

$insert = "Hazel<br> Work states: KS <br>      relocate: No";
Notice that the solution was the <br> tag, not "\n".

$script2.="\"; var head1 = document.getElementById(\"head1\"); 
head1.innerHTML=testing; return false;}";
Notice ".innerHTML" vs. the ".firstChild.nodeValue" I had. The first inserts 
html with tags, the second strictly text.

#!/usr/bin/perl

use CGI qw/:standard/;
use CGI::Carp qw(carpout fatalsToBrowser);

$insert = "Hazel<br> Work states: KS <br>      relocate: No";

$script2="function tester(){testing=\"";
$script2.=$insert;
head1.firstChild.nodeValue=testing; return false;}";
$script2.="\"; var head1 = document.getElementById(\"head1\"); 
head1.innerHTML=testing; return false;}";

print header('text/html');
print start_html(-title=>"Nanny Info", -script=>$script2),
start_form(-onSubmit=>"return tester()"),
submit,

p("<h1 ID= 'head1'>This gets replaced. </h1>"),

print end_html;

_________________________________________________________________
PC Magazine’s 2007 editors’ choice for best Web mail—award-winning Windows 
Live Hotmail. 
http://imagine-windowslive.com/hotmail/?locale=en-us&ocid=TXT_TAGHM_migration_HM_mini_pcmag_0507

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs