problem with apostrophy s in a perl / js dropdown

[Brita]

I have dropdown navigation drawing from a database. There is a dropdown box for all the states we have. When you choose a stat, the counties in the next dropdown box are created. My problem is with Prince George's County in Maryland. The 's is the killer. I have tried using the \' to replace this but it doesn't work.

I will show the code and some of the solutions I have tried.

...
while($state=$out_sql->fetchrow_array){
        $stateoptions.="<option Value=\"$state\">$state</option>";
        $i=2;
        $countyFill.="subcat$state=new Array()\n";
        $countyFill.="subcat$state\[0\]=new Entry(\"\",\"- Select a County -\")\n";
        $countyFill.="subcat$state\[1\]=new Entry(\"allcounties\",\"Select all Counties\")\n";
.......connect to the database...........
        while($county=$out_sql->fetchrow_array){
            $countyFill.="subcat$state\[$i\]=new Entry(\"$county\",\"$county\")\n";
            $i++;
            }
 

[RESULT]
subcatMD=new Array()
subcatMD[0]=new Entry("","- Select a County -")
subcatMD[1]=new Entry("allcounties","Select all Counties")
subcatMD[2]=new Entry("Harford","Harford")
subcatMD[3]=new Entry("Howard","Howard")
subcatMD[4]=new Entry("Montgomery","Montgomery")
subcatMD[5]=new Entry("Prince George's","Prince George's")
subcatMD[6]=new Entry("Worcester","Worcester")
[/RESULT]

This calls an error Expected ')'

------------------------------
I tried adding code to replace the ' with the \'
$county =~ s/\'/\\\'/;

but then my RESULT is
subcatMD[5]=new Entry("Prince George\'s","Prince George\'s")
Which still doesn't work.
-------------------------------------------------------
I suggested just removing the ' and making it Prince Georges but my boss nixed that. I guess the folks in Prince George's county care about such things.

I tried subing &#39 for the ' but got "Prince George&#39s"

I tried all sorts of other things but still have had no luck.

I would appreciate any ideas you might have.

Thanks,
Brita

[eWish]

I would try and use qq{}; Which is equivalent to double quoting and interpolates. Anything that falls in-between should not need to be escaped.

$countyFill.=qq{subcat$state[$i]=new Entry("$county","$county")\n};

[KevinADC]

the error is a javascript error, no? You may have to add another backslash to get it to be a literal \' in the javascript. So in your perl code use: \\'

[KevinADC]

I would try and use qq{}; Which is equivalent to double quoting and interpolates. Anything that falls in-between should not need to be escaped.

$countyFill.=qq{subcat$state[$i]=new Entry("$county","$county")\n};

"expert" rank after only 23 posts? Who'd you pay? ;)

[numberwhun]

"expert" rank after only 23 posts? Who'd you pay? ;)

Hey, you helped endorse him! ;-|)

[KevinADC]

Hey, you helped endorse him! ;-|)

Us Kevins have to stick together. :)

[Brita]

Thanks for all your help guys. ;-))

Brita

[Kelicula]

Thanks for all your help guys. ;-))

Brita

Well... Did you get it to work?!

Ha!

Just curious, I may need to know what did work soon...

tks!