Changeset 110

Timestamp:

11.12.2006 21:42:08 (2 years ago)

Author:

jorge

Message:

Fixed: Change spaces to underscores when saving images, otherwise it will break scanset processsing
Change: Sort Scansets in get_scansets (FuzzyOcr/Config?.pm) and remove sorting code from FuzzyOcr?.pm

Files:

• trunk/devel/FuzzyOcr.pm (modified) (3 diffs)
• trunk/devel/FuzzyOcr/Config.pm (modified) (1 diff)

trunk/devel/FuzzyOcr.pm

@@ -268 +268 @@
-        }
-
+        #Translate spaces to underscores, otherwise will break $input later on.
+        $imgfilename =~ s/ /_/g;
+
-        #Save important constants
-        $imgfiles{$filename}{fname} = $fname;
@@ -725 +728 @@
-        my @ocr_results = ();
-        my $scansets = get_scansets();
+        my $newlist = '';
+        foreach my $s (@$scansets) {
+            $newlist .= ' ' . $s->{label} . '(' . $s->{hit_counter} . ')';
+        }
+        infolog("Scanset Order:$newlist");
-        my $mcnt = 0;
-        my $modus = 0;
@@ -846 +854 @@
-                        }
-                    }
-                    my $newlist;
-                    @$scansets = sort { $b->{hit_counter} <=> $a->{hit_counter} } @$scansets;
-                    foreach my $s (@$scansets) {
-                        $newlist .= ' ' . $s->{label} . '(' . $s->{hit_counter} . ')';
-                    }
-                    infolog("New sorted list:$newlist");
-
-                }

trunk/devel/FuzzyOcr/Config.pm

@@ -131 +131 @@
-
-sub get_scansets {
+    if ($conf->{focr_autosort_scanset}) {
+        @scansets = sort { $b->{hit_counter} <=> $a->{hit_counter} } @scansets;
+    }
-    return \@scansets;
-}