=item * merge_types - Specify a list of relationship types, where related readings
should be treated as identical for the purposes of analysis.
-=item * exclude_type1 - Exclude those ranks whose groupings have only type-1 variants.
-
=back
=begin testing
my %lacunae;
foreach my $rank ( @ranks ) {
my $missing = [ @lacunose ];
- my $rankgroup = group_variants( $tradition, $rank, $missing, \@collapse );
- if( $opts{'exclude_type1'} ) {
- # Check to see whether this is a "useful" group.
- my( $rdgs, $grps ) = _useful_variant( $rankgroup );
- next unless @$rdgs;
- }
- push( @groups, $rankgroup );
+ push( @groups, group_variants( $tradition, $rank, $missing, \@collapse ) );
$lacunae{$rank} = $missing;
}
$DB::single = 1;
be a reference to an array, to which the sigla of lacunose witnesses at this
rank will be appended.
-Returns a hash $group_readings where $rdg is attested by the witnesses listed
-in $group_readings->{$rdg}.
+Returns two ordered lists $readings, $groups, where $readings->[$n] is attested
+by the witnesses listed in $groups->[$n].
=cut
$c->stash->{text_title} = $tradition->name;
$c->stash->{template} = 'stexaminer.tt';
# TODO Run the analysis as AJAX from the loaded page.
- my $t = run_analysis( $tradition, 'exclude_type1' => 1 );
+ my $t = run_analysis( $tradition );
# Stringify the reading groups
foreach my $loc ( @{$t->{'variants'}} ) {
my $mst = wit_stringify( $loc->{'missing'} );
}
function svgEnlargementLoaded() {
- //Give some visual evidence that we are working
- $('#loading_overlay').show();
//Set viewbox widht and height to widht and height of $('#svgenlargement svg').
//This is essential to make sure zooming and panning works properly.
$('#svgenlargement ellipse').attr( {stroke:'green', fill:'#b3f36d'} );
//used to calculate min and max zoom level:
start_element_height = $("#svgenlargement .node title:contains('#START#')").siblings('ellipse')[0].getBBox().height;
add_relations();
- // $('#loading_overlay').hide();
}
function add_relations() {