'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;
}
# Now try reading the objects from the DB.
if( $list ) {
- foreach my $tid ( $kdb->tradition_ids ) {
+ foreach my $tref ( $kdb->traditionlist ) {
+ my $tid = $tref->{'id'};
my $scope = $kdb->new_scope();
my $t = $kdb->tradition( $tid );
print STDERR "$tid: Tradition '" . $t->name . "'\n";
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";
}
}