# Note the sigla.
foreach my $sigil ( @{$opts->{'sigla'}} ) {
$ALL_SIGLA{$sigil} = 1;
- $tradition->add_witness( 'sigil' => $sigil );
+ $tradition->add_witness( sigil => $sigil, sourcetype => 'collation' );
}
# Now merge on the apparatus entries.
merge_stone_apparatus( $tradition->collation, $lineref_hash, $opts->{'file'} );
} # end processing of $app
} # end foreach my $app in line
} # end while <line>
- $DB::single = 1;
# Now reconcile all the paths in the collation, and delete our
# temporary anchor nodes.
# Finally, calculate the ranks we've got.
# $c->calculate_ranks;
+
+ # Save the text for each witness so that we can ensure consistency
+ # later on
+ $tradition->collation->text_from_paths();
}
sub _find_reading_on_line {
$wit->path( \@path );
if( $ALL_SIGLA{$sig} > 1 ) {
my @ac_path = grep { $_->name !~ /ATTACH/ }
- $c->reading_sequence( $c->start, $c->end, $sig.$c->ac_label, $sig );
+ $c->reading_sequence( $c->start, $c->end, $sig.$c->ac_label );
$wit->uncorrected_path( \@ac_path );
}
}