# Maybe I can do this as part of the original parsing?
# Or maybe I can loop over the %config hash and convert 
# the scalar values to an array, and put a reference 
# to that array back into the hash?

@inc_albums=split(/; /, $inc_albums) unless $inc_albums=~/^\s$/;
@inc_genres=split(/; /, $inc_genres) unless $inc_genres=~/^\s$/;
@inc_artists=split(/; /, $inc_artists) unless $inc_artists=~/^\s$/;
@inc_songs=split(/; /, $inc_songs) unless $inc_songs=~/^\s$/;
@exc_albums=split(/; /, $exc_albums) unless $exc_albums=~/^\s$/;
@exc_genres=split(/; /, $exc_genres) unless $exc_genres=~/^\s$/;
@exc_artists=split(/; /, $exc_artists) unless $exc_artists=~/^\s$/;
@exc_songs=split(/; /, $exc_songs) unless $exc_songs=~/^\s$/;

my $i_albumcriteria=q{(Songs.Album LIKE '%'||}.join(q{||'%' OR Songs.Album LIKE '%'||},map {"?"} @inc_albums).q{||'%')} unless (scalar(@inc_albums)==0) ;
my $i_artistcriteria=q{(Songs.Artist LIKE '%'||}.join(q{||'%' OR Songs.Artist LIKE '%'||},map {"?"} @inc_artists).q{||'%')} unless (scalar(@inc_artists)==0);
my $i_songcriteria=q{(Songs.SongTitle LIKE '%'||}.join(q{||'%' OR Songs.SongTitle LIKE '%'||},map {"?"} @inc_songs).q{||'%')} unless (scalar(@inc_songs)==0);
my $i_genrecriteria=q{(Songs.Genre LIKE '%'||}.join(q{||'%' OR Songs.Genre 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;

##</code><code>##

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