--- Schema.old	2007-04-19 18:47:15.000000000 -0400
+++ Schema.pm	2007-04-19 18:48:08.000000000 -0400
@@ -1589,6 +1589,12 @@ sub _preCheckAttributes {
 
 	# Don't insert non-numeric YEAR fields into the database. Bug: 2610
 	# Same for DISC - Bug 2821
+	if ($attributes->{'YEAR'} && $attributes->{'YEAR'} =~ m/^(\d+)-\d+(-\d+(T\d+(:\d+(:\d+)?)?)?)?$/) {
+
+		$attributes->{'YEAR'} = $1;
+
+	}
+
 	for my $tag (qw(YEAR DISC DISCC BPM)) {
 
 		if (defined $attributes->{$tag} && $attributes->{$tag} !~ /^\d+$/) {