Fixed handling of wrong-logged "(laceno)" lines.

diff --git a/src/jaxam b/src/jaxam
index 4f3c70c..821d25a 100755 (executable)
--- a/src/jaxam
+++ b/src/jaxam
@@ -54,6 +54,7 @@ sub schedule($$%)
 {
        my($r,$exam_from,%args)=@_;
 
+       return if $r->{"orig"}=~/\Q(laceno)\E/;
        my $time=$args{"time"}||time();
        my $sum=0;
        for my $result (@{$r->{"result"}}) {
@@ -210,7 +211,6 @@ sub edict_read($)
                );
        while (<EDICT>) {
                my $r=edict_line_parse() or next;
-               next if /\Q(laceno)\E/;
                push @R,$r;
                push @{$kana_to_r{$r->{"kana"}}},$r;
                keys(%check);