refactored Analysis module with associated changes

[scpubgit/stemmatology.git] / script / save_to_db.pl

diff --git a/script/save_to_db.pl b/script/save_to_db.pl
index 0532ca2..69e4fca 100755 (executable)
--- a/script/save_to_db.pl
+++ b/script/save_to_db.pl
@@ -49,7 +49,7 @@ if( $tfile ) {
                'linear' => 1,
                );
        if( $tradition && $sfile ) {
-               $stemma = $tradition->add_stemma( $sfile );
+               $stemma = $tradition->add_stemma( dotfile =>  $sfile );
                warn "Did not get stemma from $sfile\n" unless $stemma;
        }
     
@@ -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";
                }
        }