Package: gscan2pdf
Version: 0.9.24-1
Severity: normal
DjVu text zones do not cover whole pages (as it should) unless
resolution is 72.
The attached patch fixes the bug.
-- System Information:
Debian Release: lenny/sid
APT prefers testing
APT policy: (900, 'testing'), (600, 'unstable'), (500, 'experimental')
Architecture: i386 (i686)
Kernel: Linux 2.6.24-1-686 (SMP w/2 CPU cores)
Locale: LANG=C, LC_CTYPE=pl_PL.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages gscan2pdf depends on:
ii imagemagick 7:6.3.7.9.dfsg1-2+b2 image manipulation programs
ii libconfig-general-p 2.38-1 Generic Configuration Module
ii libgtk2-ex-simple-l 0.50-1.1 A simple interface to Gtk2's compl
ii libgtk2-imageview-p 0.04-1+b1 Perl bindings for the GtkImageView
ii liblocale-gettext-p 1.05-4 Using libc functions for internati
ii libpdf-api2-perl 0.69-2 create or modify PDF documents in
ii librsvg2-common 2.22.2-2 SAX-based renderer library for SVG
ii libsane 1.0.19-11 API library for scanners
ii libtiff-tools 3.8.2-8 TIFF manipulation and conversion t
ii perlmagick 7:6.3.7.9.dfsg1-2+b2 Perl interface to the libMagick gr
ii sane-utils 1.0.19-11 API library for scanners -- utilit
Versions of packages gscan2pdf recommends:
ii djvulibre-bin 3.5.20-7 Utilities for the DjVu image forma
pn gocr <none> (no description available)
pn libgtk2-ex-podviewer-perl <none> (no description available)
pn sane <none> (no description available)
ii tesseract-ocr 2.03-1 Command line OCR tool
pn unpaper <none> (no description available)
ii xdg-utils 1.0.2-6 desktop integration utilities from
-- debconf-show failed
--
Jakub Wilk
--- gscan2pdf.orig 2008-06-17 17:15:37.000000000 +0200
+++ gscan2pdf 2008-06-17 17:14:58.000000000 +0200
@@ -2990,8 +2990,8 @@
my $djvusedtxtfile = "djvusedtxtfile";
open (FILE, ">:utf8", $djvusedtxtfile)
or die sprintf($d->get("Can't open file: %s"), $djvusedtxtfile);
- print FILE "(page 0 0 ", int($w*72/$resolution), " ", int($h*72/$resolution), "\n";
- print FILE "(line 0 0 ", int($w*72/$resolution), " ", int($h*72/$resolution), " \"";
+ print FILE "(page 0 0 $w $h\n";
+ print FILE "(line 0 0 $w $h \"";
print FILE $txt, "\"))";
close FILE;