+&Header::openbox('100%', 'center', $Lang::tr{'quick playlist'});
+
+my @artist;
+my @album;
+foreach (@songdb){
+ my @song = split(/\|/,$_);
+ push(@artist,$song[1]);push(@album,$song[4]);}
+ my %hash = map{ $_, 1 }@artist;
+ @artist = sort keys %hash;
+ my %hash = map{ $_, 1 }@album;
+ @album = sort keys %hash;
+print <<END
+ <table width='95%' cellspacing='0'>
+ <tr><td align='center'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <select name='artist' size='8' multiple='multiple'>
+END
+;
+ foreach (@artist){print "<option>$_</option>";}
+print <<END
+ </select><br/>
+ <input type='hidden' name='ACTION' value='playartist' />
+ <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
+ </form></td>
+ <td align='center'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <select name='album' size='8' multiple='multiple'>
+END
+;
+ foreach (@album){print "<option>$_</option>";}
+print <<END
+ </select><br/>
+ <input type='hidden' name='ACTION' value='playalbum' />
+ <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
+ </form></td>
+ </tr></table>
+END
+;
+&Header::closebox();
+