This queue is for tickets about the CAM-PDF CPAN distribution.

Report information
The Basics
Id:
61354
Status:
open
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
turnerjw784 [...] yahoo.com
Cc:
AdminCc:



Subject: Unable to check/uncheck "checkbox" fields!
Hi, I am unable to check/uncheck "checkbox" fields in income tax forms using either fillFormFields() or fillpdffields.pl. Other (text) fields work fine! I have tried using the value it shows for fields already checked ('Yes') as well as 'Y', 'yes', 'checked', '1', and 1. Is this possible, if so, what values should be used to check and uncheck the boxes. I have attached the form in question. This is a real show-stopper for us, otherwise this module is PERFECT for what we're needing to do! Please help! Example run is this: $doc->fillFormFields('c1_01(0)' => '1', 'c1_02(0)' => 1, 'c1_03(0)' => 'No', 'c1_04(0)' => 'no', 'c1_05(0)' => 'N'); and fillpdffields.pl -v fw9.pdf fw9filledin.pdf "c1_01(0)" => 'Yes' both fail to update checkboxes?! my @fields = $doc->getFormFieldList(); returns: f1_01(0)|f1_02(0)|c1_01(0)|c1_02(0)|c1_03(0)|c1_05(0)|f1_18(0)|c1_04(0)|f1_03(0)|c1_06(0)|f1_04(0)|f1_05(0)|f1_06(0)|f1_07(0)|f1_08(0)|f1_11(0)|f1_13(0)|f1_17(0)|f1_19(0) listpdffields.pl /tmp/fw9.pdf f1_01(0) f1_02(0) c1_01(0) c1_02(0) c1_03(0) c1_05(0) f1_18(0) c1_04(0) f1_03(0) c1_06(0) f1_04(0) f1_05(0) f1_06(0) f1_07(0) f1_08(0) f1_11(0) f1_13(0) f1_17(0) f1_19(0) Please help me! Thanks, Jim
Subject: fw9.pdf

Message body not shown because it is not plain text.

Greetings, I have a patch that addresses this issue for me! Please see attached files. This patch (PDF.pm) modifies the fillFormFields() function to check whether the input field is a text field or (now), a "Btn" (Checkbox) field and updates an alternate attribute ($dict->{AS}->{value}, as opposed to $dict->{V}->{value}). I also added a new function: getFieldValue('fieldname1' [, 'fieldname2', ... 'fieldnameN' ]) to return the values corresponding to a list of field names. Returns either a hashref (in scalar context) or an array of alternating names and values (in array context). I added a new "-d/--data" option to listpdffields.pl to call and use this new function to display the current value next to each field name listed. Please review these patches for consideration in a future release of CAM::PDF and modify as necessary. Thank you, and thank you for maintaining this very cool module that is just what the Dr. ordered for our website/application that autofills 2 IRS tax forms (W9 and W8bin) in the background based on user web-input! You saved us from having to purchase Adobe Pro.(tm), which i still don't think would have done the job for us (I suspect no batch/command-line/programatic mode)! Regards, Jim Turner
Subject: PDF.diff
11c11 < our $VERSION = '1.52'; --- > our $VERSION = '1.52.1'; 89a90,92 > This version is HACKED by Jim Turner 09/10 to enable the fillFormFields() > function to also modify checkboxes (primarily on IRS Tax forms). > 4278a4282,4324 > =item $doc->getFieldValue('fieldname1' [, fieldname2, ... fieldnameN ]) > > Fetches the corresponding current values for each field name in the > argument list. Returns a reference to a hash containing the field > names as keys and the corresponding values. If a field does not > exist or does not contain a value, an empty string is returned in > the hash as it's value. If called in array / hash context, then > a list of field names and values in the order (fieldname1, value1, > fieldname2, value2, ... fieldnameN valueN) is returned. > > =cut > > sub getFieldValue #JWT:NEW FUNCTION ADDED 20100921 TO RETURN CORRECT VALUES > #FOR EACH FIELD WHETHER IT'S A TEXT FIELD OR A CHECKBOX: > { > my $self = shift; > my @fieldNames = @_; > > my ($objnode, $propdict, $dict, $fieldType, $fieldHashRef); > LOOP1: foreach my $fieldName (@fieldNames) > { > $objnode = $self->getFormField($fieldName); > $fieldHashRef->{$fieldName} = undef; > next LOOP1 unless ($objnode); > > # This read-only dict includes inherited properties > my $propdict = $self->getFormFieldDict($objnode); > > # This read-write dict does not include inherited properties > my $dict = $self->getValue($objnode); > > $fieldHashRef->{$fieldName} = ($propdict->{FT} && $self->getValue($propdict->{FT}) =~ /^Btn$/o) > ? $dict->{AS}->{value} : $dict->{V}->{value}; > } > return $fieldHashRef unless (wantarray); #RETURN HASHREF IN SCALAR CONTEXT. > my @fieldValues; > foreach my $fieldName (@fieldNames) #BUILD ARRAY FROM HASH TO RETURN IN ARRAY CONTEXT: > { > push (@fieldValues, $fieldName, $fieldHashRef->{$fieldName}); > } > return @fieldValues; > } > 4317c4363 < while (@list > 0) --- > LOOP1: while (@list > 0) 4339c4385,4386 < $dict->{V} = CAM::PDF::Node->new('string', $value, $objnum, $gennum); --- > $dict->{V} = CAM::PDF::Node->new('string', $value, $objnum, $gennum) > unless ($dict->{V}); #JWT:ADDED CONDITION! 4342c4389,4390 < if ($propdict->{FT} && $self->getValue($propdict->{FT}) eq 'Tx') # Is it a text field? --- > # if ($propdict->{FT} && $self->getValue($propdict->{FT}) eq 'Tx') # Is it a text field? #JWT:CHGD. TO NEXT: > if ($propdict->{FT} && $self->getValue($propdict->{FT}) =~ /^(Tx|Btn)$/o) # Is it a text field? 4343a4392,4398 > my $fieldType = $1; #JWT:ADDED NEXT 6 TO ALLOW SETTING OF CHECKBOX BUTTONS (VALUE MUST BE EITHER "Yes" or "Off"!: > if ($fieldType eq 'Btn') > { > $dict->{AS}->{value} = $value; > next LOOP1; > } > 4357c4412,4413 < my $formobj = $self->dereference($dict->{AP}->{value}->{N}->{value}); --- > # my $formobj = $self->dereference($dict->{AP}->{value}->{N}->{value}); #JWT:CHGD. TO NEXT: > my $formobj = $self->dereference(($fieldType eq 'Btn') ? $dict->{AP}->{value}->{N}->{value}->{Yes}->{value} : $dict->{AP}->{value}->{N}->{value}); 4361,4364c4417,4418 < if (!$formdict->{Subtype}) < { < $formdict->{Subtype} = CAM::PDF::Node->new('label', 'Form', $formonum, $formgnum); < } --- > > $formdict->{Subtype} = CAM::PDF::Node->new('label', 'Form', $formonum, $formgnum) if (!$formdict->{Subtype}); 4489c4543,4544 < $ty = $border + 2 + (9 - $fontsize) * 0.4; --- > # $ty = $border + 2 + (9 - $fontsize) * 0.4; #JWT:CHGD. TO NEXT: > $ty = $border + 2 + (5 - $fontsize) * 0.4; 4550,4552c4605,4610 < my $len = length $text; < $formdict->{Length} = CAM::PDF::Node->new('number', $len, $formonum, $formgnum); < $formdict->{StreamData} = CAM::PDF::Node->new('stream', $text, $formonum, $formgnum); --- > my $len = ($fieldType eq 'Btn') ? 0 : length($text); #JWT:CHANGED > unless ($fieldType eq 'Btn') #JWT:ADDED CONDITION: > { > $formdict->{Length} = CAM::PDF::Node->new('number', $len, $formonum, $formgnum); > $formdict->{StreamData} = CAM::PDF::Node->new('stream', $text, $formonum, $formgnum); > }
Subject: PDF.pm

Message body is not shown because it is too large.

Subject: listpdffields.pl
#!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell package main; use warnings; use strict; use CAM::PDF; use Getopt::Long; use Pod::Usage; our $VERSION = '1.52.1'; my %opts = ( sort => 0, verbose => 0, data => 0, #JWT:ADDED 20100921 TO DISPLAY FIELD VALUES ALSO. help => 0, version => 0, ); Getopt::Long::Configure('bundling'); GetOptions('s|sort' => \$opts{sort}, 'v|verbose' => \$opts{verbose}, 'd|data' => \$opts{data}, 'h|help' => \$opts{help}, 'V|version' => \$opts{version}, ) or pod2usage(1); if ($opts{help}) { pod2usage(-exitstatus => 0, -verbose => 2); } if ($opts{version}) { print "CAM::PDF v$CAM::PDF::VERSION\n"; exit 0; } if (@ARGV < 1) { pod2usage(1); } my $infile = shift; my $doc = CAM::PDF->new($infile) || die "$CAM::PDF::errstr\n"; my @list = $doc->getFormFieldList(); my $fieldHash; $fieldHash = $doc->getFieldValue(@list) if ($opts{data}); if ($opts{'sort'}) { @list = sort @list; } foreach my $name (@list) { print $name, (($opts{data} && defined($$fieldHash{$name})) ? "\t$$fieldHash{$name}" : ''), "\n"; } __END__ =for stopwords listpdffields.pl =head1 NAME listpdffields.pl - Print the PDF form field names =head1 SYNOPSIS listpdffields.pl [options] infile.pdf Options: -s --sort sort the output list alphabetically -v --verbose print diagnostic messages -d --data print values along with field names -h --help verbose help message -V --version print CAM::PDF version =head1 DESCRIPTION Outputs to STDOUT all of the field names for any forms in the PDF document. =head1 SEE ALSO CAM::PDF F<fillpdffields.pl> =head1 AUTHOR See L<CAM::PDF> =cut


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.