CHANGELOG | 7 ++++--- disc-cover | 6 +++--- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/CHANGELOG b/CHANGELOG index 98d5220..28ce4e9 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -1,8 +1,10 @@ -2006-06-20 +CHANGELOG - Disc-Cover - J.I. van Hemert -CHANGELOG - Disc-Cover +Version 2.0.0 +- fixed: low-res pictures taken from allmusic.com are now back to high-res + again (thanks to Horst-W. Radners) Version 1.5.6 @@ -742,4 +744,3 @@ Version 0.1 -J.I. van Hemert diff --git a/disc-cover b/disc-cover index a8fa77d..8744444 100755 --- a/disc-cover +++ b/disc-cover @@ -29,7 +29,7 @@ # The Netherlands # -my $cvs_id_string = '$Id: disc-cover,v 1.6 2006/06/20 12:15:55 jvhemert Exp $'; +my $cvs_id_string = '$Id: disc-cover,v 1.7 2007/01/16 20:47:06 jvhemert Exp $'; ################################ @@ -1281,9 +1281,9 @@ sub print_picture print STDERR "Disc-Cover (AllMusic): more than one album found\n" if $flag_verbose; #my @entries = ($result =~ //mig); - my @entries = ($result =~ /$artist<\/TD>Listen Now!<\/a><\/TD>/mig); + my @entries = ($result =~ /$artist<\/TD>Listen Now!<\/a><\/TD>/mig); print STDERR "Disc-Cover (AllMusic): using artist to determine correct album, this leaves ".(1+$#entries)." album(s)\n" if $flag_verbose; - print STDERR join(' / ',@entries)."\n"; + print STDERR join(' / ',@entries)."\n" if $flag_verbose; if (defined $entries[0]) { print STDERR "Disc-Cover (AllMusic): downloading AllMusic info page of the first album (key: $entries[0])\n" if $flag_verbose;