X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FParser%2FSelf.pm;h=b8f12dd2121e59d25013fafc01c18e975234e612;hb=82fa4d574ae69634563ea89a5fd973f49b2d435c;hp=5499fc711138bc923c8fe7ff66a2bcb4668e1fc5;hpb=68df571d807e3b08ecfbca3b8024370abf7ae5d1;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Parser/Self.pm b/lib/Text/Tradition/Parser/Self.pm
index 5499fc7..b8f12dd 100644
--- 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'};