version 1.18, 2010/03/18 19:11:05
|
version 1.21, 2011/11/02 15:14:21
|
Line 130 sub get_javascripts() {
|
Line 130 sub get_javascripts() {
|
// <![CDATA[ |
// <![CDATA[ |
function checkFilename(form) { |
function checkFilename(form) { |
var fileExt = form.file.value; |
var fileExt = form.file.value; |
fileExt = fileExt.match(/[.]pdf\$/g); |
fileExt = fileExt.match(/[.]pdf\$/gi); |
if(fileExt) { |
if(fileExt) { |
return true; |
return true; |
} |
} |
Line 192 sub get_pdf_data() {
|
Line 192 sub get_pdf_data() {
|
my @data = (); |
my @data = (); |
my $pdf = CAM::PDF->new($env{'form.file'}); |
my $pdf = CAM::PDF->new($env{'form.file'}); |
|
|
my @formFields = $pdf->getFormFieldList(); #get names of formfields |
if($pdf) { |
|
my @formFields = $pdf->getFormFieldList(); #get names of formfields |
foreach my $field (@formFields) { |
|
my $dict = $pdf->getFormFieldDict($pdf->getFormField($field)); # get formfield dictonary |
foreach my $field (@formFields) { |
|
my $dict = $pdf->getFormFieldDict($pdf->getFormField($field)); # get formfield dictonary |
|
|
# |
# this is necessary because CAM::PDF has a problem with formfieldnames which include a |
# this is necessary because CAM::PDF has a problem with formfieldnames which include a |
# dot in fieldnames. So a fieldname like "i.am.aFormfield" will offer three fieldnames |
# dot in fieldnames. So a fieldname like "i.am.aFormfield" will offer three fieldnames "i", "i.am" |
# "i", "i.am" and "i.am.aFormfield". The fragmentary names keep no values and will be ignored. |
# and "i.am.aFormfield". The fragmentary names keep no values and will be ignored. |
if($dict->{'V'}) { |
if($dict->{'V'}) { |
push(@data, $field."?". $dict->{'V'}{'value'}); #binding fieldname with value |
push(@data, $field."?". $dict->{'V'}{'value'}); #binding fieldname with value |
} |
} |
} |
} |
} |
return @data; |
return @data; |
} |
} |
|
|
sub grade_pdf { |
sub grade_pdf { |
my $result = (); |
|
my @pdfdata = @_; |
my @pdfdata = @_; |
my ($result,$meta,%grades,%problems,%foreigncourse,$debug); |
my ($result,$meta,%grades,%problems,%foreigncourse,$debug); |
|
|