make the rest of the tests work with the new Witness

[scpubgit/stemmatology.git] / lib / Text / Tradition / Parser / Self.pm

diff --git a/lib/Text/Tradition/Parser/Self.pm b/lib/Text/Tradition/Parser/Self.pm
index 5499fc7..b8f12dd 100644 (file)
--- a/lib/Text/Tradition/Parser/Self.pm
+++ b/lib/Text/Tradition/Parser/Self.pm
@@ -192,7 +192,8 @@ sub parse {
                
                # Add the witness if we don't have it already.
                unless( $witnesses{$e->{'witness'}} ) {
-                       $tradition->add_witness( sigil => $e->{'witness'} );
+                       $tradition->add_witness( 
+                               sigil => $e->{'witness'}, 'sourcetype' => 'collation' );
                        $witnesses{$e->{'witness'}} = 1;
                }
                $tradition->witness( $e->{'witness'} )->is_layered( 1 ) if $e->{'extra'};