X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fstrip_punctuation.pl;h=db1189df872d0979277f1b6c95725f5ed30ffcdd;hb=96ba0418c65f3450b419aea78db41bf697612b63;hp=fceb48470eecb71e593bee07462f726a403df4ab;hpb=32e95735ac76d04e2926965bcfd50a9f1afd3357;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";