X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fsave_to_db.pl;h=69e4fcad898a57e99a48aa9f08b0a14e9f5024e0;hb=7f52eac8cd00b160ea9e828790cbd093dc444feb;hp=3b85d09f0e527c8015de2e955a60f7ce85b258ad;hpb=9317e522bb0299ab6bdcfe2d999750719e893407;p=scpubgit%2Fstemmatology.git

diff --git a/script/save_to_db.pl b/script/save_to_db.pl
index 3b85d09..69e4fca 100755
--- a/script/save_to_db.pl
+++ b/script/save_to_db.pl
@@ -80,8 +80,7 @@ if( $list ) {
 		print STDERR "...collation has " . scalar( $c->readings ) . " readings\n";
 		print STDERR "...collation has " . scalar( $c->paths ) . " paths\n";
 		print STDERR "...collation has " . scalar( $c->relationships ) . " relationship links\n";
-		my $s = $t->stemma;
-		if( $s ) {
+		foreach my $s ( $t->stemmata ) {
 			print STDERR "...associated stemma has graph " . $s->graph . "\n";
 		}
 	}