+END
+;
+&Header::closebox();
+
+if ( $mpfiresettings{'FRAME'} eq "quick playlist" )
+{
&Header::openbox('100%', 'center', $Lang::tr{'quick playlist'});
# box to quickly select artist, album, year or genre and play the selection
print "
";
@@ -377,6 +401,7 @@ print <
+
$Lang::tr{'year'}
$Lang::tr{'genre'}
@@ -413,6 +439,7 @@ print <
+
END
;
&Header::closebox();
+}
+if ( $mpfiresettings{'FRAME'} eq "songs" )
+{
&Header::openbox('100%', 'center', $Lang::tr{'mpfire search'});
# box to quickly search artist, album or title
print <
+
END
;
@@ -480,7 +512,7 @@ if ( $#songs > 100 ){
print" ";
}
}
-
+ print "";
print "";
}
print <
+
@@ -526,6 +559,7 @@ if ( $mpfiresettings{'PAGE'} eq 'all' ){
+
@@ -542,42 +576,10 @@ END
print "";
&Header::closebox();
-
-&Header::openbox('100%', 'center', $Lang::tr{'mpfire playlist'});
-# box to show the current playlist given from mpc system command
-my @playlist = `mpc playlist 2>/dev/null`;
-
-print <
-
$Lang::tr{'current playlist'}
-
-
-
-
-
-
-
-
-END
-;
-
-&Header::closebox();
-
+if ( $mpfiresettings{'FRAME'} eq "webradio" )
+{
&Header::openbox('100%', 'center', $Lang::tr{'mpfire webradio'});
# box to select some webradio´s to be played by one click
open(DATEI, "<${General::swroot}/mpfire/webradio") || die "Could not open playlist";
@@ -604,7 +606,9 @@ foreach (@webradio){
chomp $stream[1];chomp $stream[2];
print <$stream[1]
-
+
END
;
@@ -619,11 +623,51 @@ if ($lines % 2){
print <
+
+
+
END
;
print "";
+&Header::closebox();
+}
+
+&Header::openbox('100%', 'center', $Lang::tr{'mpfire playlist'});
+# box to show the current playlist given from mpc system command
+my @playlist = `mpc playlist 2>/dev/null`;
+
+print <
+