From: Tara L Andrews <tla@mit.edu>
Date: Thu, 18 Jul 2013 03:55:29 +0000 (+0200)
Subject: Return a relation, not a reading, in the invalid list. Issue tla/stemmaweb#17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6a1d5f0d4be5a67249df2f89ed7eee01a35abd2;p=scpubgit%2Fstemmatology.git

Return a relation, not a reading, in the invalid list. Issue tla/stemmaweb#17
---

diff --git a/base/lib/Text/Tradition/Collation.pm b/base/lib/Text/Tradition/Collation.pm
index 58c4ec3..05cd397 100644
--- a/base/lib/Text/Tradition/Collation.pm
+++ b/base/lib/Text/Tradition/Collation.pm
@@ -579,7 +579,7 @@ sub duplicate_reading {
 			next unless @noncolo;
 			foreach my $nc ( @noncolo ) {
 				unless( $self->relations->verify_or_delete( $rdg, $nc ) ) {
-					push( @deleted_relations, $nc );
+					push( @deleted_relations, [ $rdg->id, $nc->id ] );
 				}
 			}
 		}