my @sums;
foreach my $release (@releases) {
+ #print Dumper( $release->release_event_list() );
my $a_artist = $release->artist()->name();
+ my $a_date = substr (@{$release->release_event_list()->events()}[0]->date(), 0, 4);
my $va = 0;
if ($a_artist =~ /Various Artists/) {
$va = 1;
print OUT "#CATEGORY=none\n";
print OUT "DISCID=" . $discid . "\n";
print OUT "DTITLE=" . $a_artist. " / " . $release->title() . "\n";
- print OUT "DYEAR=\n";
+ print OUT "DYEAR=" . $a_date . "\n";
print OUT "DGENRE=\n";
my @tracks = @{$release->track_list()->tracks()};