remove some debugging statements

[scpubgit/stemmatology.git] / script / strip_punctuation.pl

diff --git a/script/strip_punctuation.pl b/script/strip_punctuation.pl
index 2b4ec62..db1189d 100755 (executable)
--- a/script/strip_punctuation.pl
+++ b/script/strip_punctuation.pl
@@ -5,6 +5,8 @@ use strict;
 use warnings;
 use Text::Tradition::Directory;
 
+binmode STDERR, ':utf8';
+
 my( $dsn, $user, $pass ) = @ARGV;
 
 my $connect_args = { dsn => $dsn };
@@ -12,11 +14,13 @@ $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";
        foreach my $reading ( $tradition->collation->readings ) {
+               next if $reading->is_meta;
                $reading->alter_text( strip_punct( $reading->text ) );
        }
        $tradition->collation->flatten_ranks;