".encode('utf-8', $song)." |
+ | + | + | + | + | + | + | + | + | + | + | + + |
$Lang::tr{'Scan for Files'} | |
$Lang::tr{'Scan from Directory'} | |
$Lang::tr{'deep scan directories'} | on / - off |
- | |
$Lang::tr{'Scan from Directory'} | |
$Lang::tr{'artist'} | $Lang::tr{'album'} |
$Lang::tr{'artist'} - $#artist | $Lang::tr{'album'} - $#album |
$Lang::tr{'artist'} - ".$mpd->stats()->artists()." | $Lang::tr{'album'} - ".$mpd->stats()->albums()." | - | + +
$Lang::tr{'year'} | $Lang::tr{'genre'} |
+ |
$Lang::tr{'artist'} | +$Lang::tr{'title'} | +$Lang::tr{'album'} | +
+ | + | + |
+ | ||
+ |
$Lang::tr{'Existing Files'} | |||||||
$Lang::tr{'Pages'} "; + my $pages =(int($#songs/100)+1); + for(my $i = 1; $i <= $pages; $i++){ + print ""; + if (!($i % 205)){ + print" "; + } + } + + print " | |||||||
- | $Lang::tr{'artist'} $Lang::tr{'title'} |
- $Lang::tr{'number'} | -$Lang::tr{'album'} | -$Lang::tr{'year'} | -$Lang::tr{'genre'} | -$Lang::tr{'length'} $Lang::tr{'bitrate'} - $Lang::tr{'frequency'} |
- $Lang::tr{'mode'} | $Lang::tr{'artist'} $Lang::tr{'title'} |
+$Lang::tr{'number'} | +$Lang::tr{'album'} | END ; + my $lines=0;my $i=0;my $begin;my $end; if ( $mpfiresettings{'PAGE'} eq 'all' ){ - $begin=0; - $end=$#songdb; + $begin=0; + $end=$#songs; +}else{ + $begin=(($mpfiresettings{'PAGE'}-1) * 100); + $end=(($mpfiresettings{'PAGE'} * 100)-1); } -else{ - $begin=(($mpfiresettings{'PAGE'}-1) * 100); - $end=(($mpfiresettings{'PAGE'} * 100)-1); -} -foreach (@songdb){ - if (!($i >= $begin && $i <= $end)){ - #print $begin."->".$i."<-".$end."\n"; - $i++;next;} - my @song = split(/\|/,$_); - - if ($lines % 2) {print "
$song[1] $song[2] |
- $song[3] | -$song[4] | -$song[5] | -$song[6] | -$song[7]:$song[8] $song[9] - $song[10] |
+ foreach (@songs){
+ if (!($i >= $begin && $i <= $end)){
+ #print $begin."->".$i."<-".$end."\n";
+ $i++;next;
+ }
+ my @song = split(/\=/,$mpd->collection->song($_));
+ @song = reverse @song;
+
+ if ($lines % 2) {
+ print "||
Stereo | Joint Stereo | Dual Channel | "; }
- elsif ( $song[11] eq "3\n" ) {print "Single Channel | "; }
- else {print ""; } - $lines++; - $i++; - } + print " | ".encode('utf-8', $song[0])." ".encode('utf-8', $song[1])." | ";
+ print "".encode('utf-8', $song[2])." | "; + print "".encode('utf-8', $song[3])." | "; + $lines++; + $i++; +} + print "