RE: [MacPerl-WebCGI] font tag

[Greg Bartlett <gbartlett@metapath.com>]

James (and Richard),

The double-quotes used (as delimiters around 'Arial' and '+1') are not
escaped, so the first occurrence is terminating the print string.  You could
fix this by 'escaping' the internal double-quotes like so:
			print "<FONT FACE=\"Arial\" SIZE=\"+1\">"; 

Greg

> -----Original Message-----
> From:	Richard Gordon [SMTP:maccgi@bellsouth.net]
> Sent:	Wednesday, March 24, 1999 3:06 AM
> To:	james@djassociates.com
> Cc:	MacPerl Web/CGI List
> Subject:	Re: [MacPerl-WebCGI] font tag
> 
> 	I am trying to modify a script, to simply change the font, the
> original looks like this- 
> 
> 	print "<H1 ALIGN=CENTER>Search Results</H1>\n"; 
> 
> 	I have changed it to this- 
> 
> 	print "<FONT FACE="Arial" SIZE="+1">"; 
> 	print "<B>Search Results </B></FONT>\n"; 
> 
> 	Whats wrong with that? why does my perl script not work now? 
> 
> 
> You have problems with the quoting and you lack a \n to terminate the
> first line, e.g.: 
> 
> # Bareword found where operator expected, near ""<FONT FACE="Arial" 
> File '<AppleEvent>'; Line 1 
> # 	(Missing operator before Arial?) 
> # syntax error, near ""<FONT FACE="Arial" 
> File '<AppleEvent>'; Line 1 
> # String found where operator expected, near "Arial" SIZE="" 
> File '<AppleEvent>'; Line 1 
> # String found where operator expected, near "1">"" 
> File '<AppleEvent>'; Line 1 
> # 	(Missing operator before ">"?) 
> # <AppleEvent> had compilation errors. 
> 
> The most legible way to fix this is to change the first line to: 
> 
> print qq(<FONT FACE="Arial" SIZE="+1">\n); 
> Richard Gordon 
> -------------------- 
> Gordon Consulting & Design 
> Database Design/Scripting Languages 
> mailto://maccgi@bellsouth.net 
> 770.565.8267 

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org