Select Code to Download

C:\Documents and Settings\Administrator\Desktop\scripts>perl form.pl
SELECT engine, lable1, lable2, lable3, lable4, settings1, settings2, s
+ettings3, settings4 FROM special_fields WHERE engine IN (".join(",",m
+ap(->quote (), )).") AND (settings1="public" OR settings2="public" OR
+ settings3="public")
C:\Documents and Settings\Administrator\Desktop\scripts>

print qq(SELECT engine, lable4, settings1, settings2 FROM special_fiel
+ds WHERE engine IN (".join(",",map($dbh->quote($_), @choices)).") AND
+ 
(settings1="public" OR settings2="public" OR settings3="public"));
# removed some of the columns just to clean it up a bit

C:\Documents and Settings\Administrator\Desktop\scripts>perl form.pl
...
(), red blue orange green)).") AND
(settings1="public" OR settings2="public" OR settings3="public" )
C:\Documents and Settings\Administrator\Desktop\scripts>