=cut
my( $IDKEY, $TOKENKEY, $TRANSPOS_KEY, $RANK_KEY,
- $START_KEY, $END_KEY, $LACUNA_KEY,
+ $START_KEY, $END_KEY, $LACUNA_KEY, $COMMON_KEY,
$SOURCE_KEY, $TARGET_KEY, $WITNESS_KEY, $EXTRA_KEY, $RELATIONSHIP_KEY,
$SCOPE_KEY, $CORRECT_KEY, $INDEP_KEY )
= qw/ id text identical rank
- is_start is_end is_lacuna
+ is_start is_end is_lacuna is_common
source target witness extra relationship
scope non_correctable non_independent /;
my $reading_options = {
'id' => $n->{$IDKEY},
'is_lacuna' => $n->{$LACUNA_KEY},
+ 'is_common' => $n->{$COMMON_KEY},
};
my $rank = $n->{$RANK_KEY};
$reading_options->{'rank'} = $rank if $rank;
$collation->add_relationship( $from->{$IDKEY}, $to->{$IDKEY},
$relationship_opts );
}
+
+ # Save the text for each witness so that we can ensure consistency
+ # later on
+ $tradition->collation->text_from_paths();
+
}
1;