Changeset 20
- Timestamp:
- 01.11.2006 15:52:11 (2 years ago)
- Files:
-
- trunk/devel/FuzzyOcr/Hashing.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/devel/FuzzyOcr/Hashing.pm
r19 r20 3 3 4 4 use base 'Exporter'; 5 our @EXPORT_OK = qw(check_image_hash_db check_image_hash_db add_image_hash_db calc_image_hash); 5 our @EXPORT_OK = qw(check_image_hash_db 6 check_image_hash_db 7 add_image_hash_db 8 calc_image_hash); 6 9 7 10 use lib "../"; … … 55 58 sub check_image_hash_db { 56 59 my $conf = get_config(); 60 return (0,'') unless ( 61 ($conf->{'focr_enable_image_hashing'} > 0) and 62 ($conf->{'focr_enable_image_hashing'} < 3) 63 ); 57 64 my $digest = $_[0]; 58 65 my $dbfile = $_[1] || $conf->{"focr_db_hash"}; … … 135 142 sub add_image_hash_db { 136 143 my $conf = get_config(); 144 return unless ( 145 ($conf->{'focr_enable_image_hashing'} > 0) and 146 ($conf->{'focr_enable_image_hashing'} < 3) 147 ); 137 148 my $digest = $_[0]; 138 149 my $score = $_[1];
