_morph_connect();
return unless $morph;
# Simple morph DB lookup, and return the results.
- my $result = $morph->lookup( $orig );
+ my $result = $morph->lexicon_lookup( $orig );
return map { _wordform_from_row( $_ ) } @{$result->{'objects'}};
}
return $wf;
}
-1;
\ No newline at end of file
+1;
foreach my $text ( $dir->traditionlist ) {
my $id = $text->{'id'};
- next unless $text->{'name'} =~ /punctuat/;
+ next unless $text->{'name'} =~ /Heinrichi/;
my $scope = $dir->new_scope;
my $tradition = $dir->lookup( $id );
print STDERR "Processing tradition " . $tradition->name . "\n";
. $r->text . ")\n";
$merged{$om->id} = 1;
$c->merge_readings( $r, $om );
- } elsif ( !$c->get_relationship( $r, $om ) ) {
+ } else {
print STDERR sprintf( "Adding orthographic link for %s and %s (%s / %s)\n",
$r->id, $om->id, $r->text, $om->text );
- $c->add_relationship( $r, $om,
- { 'type' => 'orthographic', 'scope' => 'global' } );
+ eval { $c->add_relationship( $r, $om,
+ { 'type' => 'orthographic', 'scope' => 'global' } ); };
+ print STDERR $@ if $@;
}
}
}