Select Code to Download

# Maybe I can do this as part of the original parsing?
# Or maybe I can loop over the %config hash and convert 
...
my $i_genrecriteria=q{(Songs.Genre LIKE '%'||}.join(q{||'%' OR Songs.G
+enre LIKE '%'||},map {"?"} @inc_genres).q{||'%')} unless (scalar(@inc
+_genres)==0);
my $i_ratingcriteria=qq{Songs.Rating $inc_ratings} unless length($inc_
+ratings)<2;
my $i_datecriteria=qq{Songs.Year $inc_year} unless length($inc_year)<2
+;

foreach my $k (keys %config) {
    $config{$k}=[split(/; /, $config{$k})] unless $config{$k}=~/^\s$/;
}