\n".photo_img($photo,$id,"f")." | \n";
print "\n";
open(TRACKS,$c_path."\/tracks.brd") || die "Can't open database";
while ($line = ) {
chop($line);
chop($line);
# NN.TT Исполнитель Первая строчка Название Посвящение Слова Музыка Перевод Текст Выверен Аккорды Запись Время Написана Записана Оригинал Прототип
($id, $singer, $first_line, $t_title, $honor, $word, $music, $trans, $text, $sign, $accord,$mp3, $time, $date_wr, $date_rec, $orig, $proto, $article, $occ, $photo, $url_href)=split(/#/,$line);
($dd, $tt) = split(/\./, $id);
if ($dd == $disk) {
$tt =~ s/\b0/\ \;/;
print "$tt | \n";
$bg_color = $bg_color eq '' ? $even_bg_color : '';
print"\ ";
print ""
if ($tt ne "");
print $t_title ne "" ? $t_title : $first_line;
print "" if ($tt ne "");
if ($honor ne "") {
print " (посв. ".GetMidLocal($honor).")";
}
print "\ | \n";
# $singer
print "";
if ($singer ne $artist && $singer ne "" && $singer eq $music && $singer eq $word) {
print GetMidLocal($singer);
} else {
print "исп. ".GetMidLocal($singer) if ($singer ne $artist && $singer ne "");
#print " | ";
# $music
$diff = "";
if (($music ne $artist || $word ne $artist) && ($music ne "" || $word ne "")) {
if ($music eq $word) {
$diff = "авт. ".GetMidLocal($music);
} else {
$diff = "муз. ".GetMidLocal($music);
# $word ($trans)
if ($word ne $artist) {
$diff .= " - " if ($diff ne "");
$diff .= "сл. ".GetMidLocal($word);
$diff .= ", пер. ".GetMidLocal($trans) if ($trans ne "");
}
}
#print "";
print " ($diff)" if ($diff ne "");
}
}
print " | \n";
print "";
if ($text =~ /\./) {
($d_book,$d_list) = split (/\./, $text);
print "";
} else {
print " ";
}
print " | \n";
PrintLinks(0,$accord,$sign,"",$article,$url_href,$occ,$text,$photo,new_mp3_path($mp3,$id));
print" \n";
// #$tracks{$tt} = $line;
}
}
close(TRACKS);
print "Прослушать весь диск | \n";
print "
|
\n";
print "