use warnings;
use Text::Tradition::Directory;
+binmode STDERR, ':utf8';
+
my( $dsn, $user, $pass ) = @ARGV;
my $connect_args = { dsn => $dsn };
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;