X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmatology.git;a=blobdiff_plain;f=script%2Fjoin_readings.pl;fp=script%2Fjoin_readings.pl;h=31f780a18f8325543496bc6759c25a56f5281cda;hp=a5ef59377d3037437381f4cdcba125df21f2f274;hb=428bcf0bc79f77a7857b21ef881708faa792e33a;hpb=c84a47788777f257a330f9d011c03077e622310e

diff --git a/script/join_readings.pl b/script/join_readings.pl
index a5ef593..31f780a 100755
--- a/script/join_readings.pl
+++ b/script/join_readings.pl
@@ -32,8 +32,10 @@ my $dir = Text::Tradition::Directory->new( $dbopts );
 my $scope = $dir->new_scope();
 my $lookfor = $ARGV[0] || '';
 foreach my $tinfo ( $dir->traditionlist() ) {
+	next if $tinfo->{'name'} eq 'xxxxx';
 	next unless $tinfo->{'name'} =~ /$lookfor/ || $tinfo->{'id'} eq $lookfor;
 	my $tradition = $dir->lookup( $tinfo->{'id'} );
+	say "Looking at tradition " . $tradition->name;
 	my $c = $tradition->collation;
 
 	# Anywhere in the graph that there is a reading that joins only to a single