X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fstrip_punctuation.pl;h=db1189df872d0979277f1b6c95725f5ed30ffcdd;hb=98a6cab2686bd3c1e7174cfa340f41e05665a642;hp=fceb48470eecb71e593bee07462f726a403df4ab;hpb=6a1c434d9024223c496c7b3f977c4b1d434b4a4c;p=scpubgit%2Fstemmatology.git

diff --git a/script/strip_punctuation.pl b/script/strip_punctuation.pl
index fceb484..db1189d 100755
--- a/script/strip_punctuation.pl
+++ b/script/strip_punctuation.pl
@@ -14,7 +14,8 @@ $connect_args->{'extra_args'} = { user => $user, password => $pass }
 	if $user && $pass;
 my $dir = Text::Tradition::Directory->new( $connect_args );
 
-foreach my $id ( $dir->tradition_ids ) {
+foreach my $text ( $dir->traditionlist ) {
+	my $id = $text->{'id'};
 	my $scope = $dir->new_scope;
 	my $tradition = $dir->lookup( $id );
 	print STDERR "Processing tradition " . $tradition->name . "\n";