From: Tara L Andrews <tla@mit.edu>
Date: Sun, 22 Jan 2012 00:48:36 +0000 (+0100)
Subject: use changed API for stemmadot specification
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=173ecc0754b9fde04b1f875010ae8fd5c80db239;p=scpubgit%2Fstemmatology.git

use changed API for stemmadot specification
---

diff --git a/script/make_tradition.pl b/script/make_tradition.pl
index 309033b..212edfc 100755
--- a/script/make_tradition.pl
+++ b/script/make_tradition.pl
@@ -69,7 +69,7 @@ if( $informat eq 'CollateText' ) {
 }
 my $tradition = Text::Tradition->new( %args );
 if( $stemmafile ) {
-	my $stemma = $tradition->add_stemma( $stemmafile );
+	my $stemma = $tradition->add_stemma( dotfile => $stemmafile );
 	print STDERR "Saved stemma at $stemmafile\n" if $stemma;
 }
 
diff --git a/script/save_to_db.pl b/script/save_to_db.pl
index 0532ca2..3b85d09 100755
--- a/script/save_to_db.pl
+++ b/script/save_to_db.pl
@@ -49,7 +49,7 @@ if( $tfile ) {
 		'linear' => 1,
 		);
 	if( $tradition && $sfile ) {
-		$stemma = $tradition->add_stemma( $sfile );
+		$stemma = $tradition->add_stemma( dotfile =>  $sfile );
 		warn "Did not get stemma from $sfile\n" unless $stemma;
 	}