version 1.8, 2009/05/21 04:58:40
|
version 1.16, 2010/03/18 14:50:15
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Publication Handler |
# PDF Form Upload Handler |
# |
# |
# $Id$ |
# $Id$ |
# |
# |
Line 29 package Apache::lonpdfupload;
|
Line 29 package Apache::lonpdfupload;
|
|
|
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use LONCAPA; |
|
use LONCAPA::loncgi; |
|
use File::Path; |
|
use File::Basename; |
|
use File::Copy; |
|
use IO::File; |
|
use Image::Magick; |
|
use Apache::lonacc; |
|
use Apache::lonxml; |
|
use Apache::lonhtmlcommon(); |
|
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::lonhtmlcommon(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonmsg(); |
use File::MMagic; |
use Apache::lonhomework; |
|
use LONCAPA::Enrollment; |
|
use LONCAPA::Configuration; |
|
use CAM::PDF; |
use CAM::PDF; |
|
|
use strict; |
use strict; |
|
|
sub handler() { |
sub handler() { |
my $r = shift; |
my $r = shift; |
|
&Apache::loncommon::content_type($r,'text/html'); |
# check user permissions |
$r->send_http_header; |
if(!&checkpermission($r)) { |
return OK if $r->header_only; |
# stop processing |
|
return OK; |
# Needs to be in a course |
|
if (!$env{'request.course.fn'}) { |
|
# Not in a course |
|
$env{'user.error.msg'}="/adm/pdfupload:bre:0:0:Cannot upload PDF forms unless in a course"; |
|
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
|
$Apache::lonxml::request=$r; |
# Breadcrumbs |
$Apache::lonxml::debug=$env{'user.debug'}; |
my $brcrum = [{'href' => '/adm/pdfupload', |
|
'text' => 'Upload PDF Form'}]; |
|
if ($env{'form.Uploaded'} && $env{'form.file'}) { |
|
push(@{$brcrum},{'href' => '', |
|
'text' => 'PDF upload result'}); |
|
} |
|
|
$env{'request.uri'}=$r->uri; |
$r->print(&Apache::loncommon::start_page('Upload PDF Form', |
$r->content_type('text/html'); |
undef, |
$r->send_http_header(); |
{'bread_crumbs' => $brcrum,}) |
$r->print(&Apache::loncommon::start_page(&mt('Upload PDF Form'))); |
); |
|
|
#load post data into environment |
if ($env{'request.course.id'}) { |
&Apache::lonacc::get_posted_cgi($r); |
my $permission = $env{'course.'.$env{'request.course.id'}.'.canuse_pdfforms'}; |
|
if ($permission eq '') { |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'}); |
|
$permission = $domdefs{'canuse_pdfforms'}; |
|
} |
|
unless ($permission) { |
|
$r->print('<p class="LC_warning">'. |
|
&mt('Upload of PDF forms is not permitted for this course.'). |
|
'</p>'. |
|
&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
|
} else { |
|
$r->print('<p class="LC_warning">'. |
|
&mt('Could not determine identity of this course. you may need to [_1]re-select[_2] the course.','<a href="/adm/roles">','</a>'). |
|
'</p>'. |
|
&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
|
|
# if a file was upload |
# if a file was upload |
if($env{'form.Uploaded'} && $env{'form.file'}) { |
if($env{'form.Uploaded'} && $env{'form.file'}) { |
$r->print(&processPDF); |
my $mm = new File::MMagic; |
|
my $mime_type = $mm->checktype_contents($env{'form.file'}); |
|
if ($mime_type eq 'application/pdf') { |
|
$r->print(&processPDF); |
|
} else { |
|
$r->print('<p class="LC_error">' |
|
.&mt("The uploaded file does not appear to be a PDF file.") |
|
.'</p>'); |
|
} |
} else { |
} else { |
# print upload form |
# print upload form |
$r->print(&get_javascripts); |
$r->print(&get_javascripts); |
Line 83 sub handler() {
|
Line 106 sub handler() {
|
$r->print('<hr />' |
$r->print('<hr />' |
.'<p>'."\n" |
.'<p>'."\n" |
.'<a href="/adm/navmaps">'."\n" |
.'<a href="/adm/navmaps">'."\n" |
.&mt("Navigate Contents")."\n" |
.&mt('Course Contents')."\n" |
.'</a>'."\n" |
.'</a>'."\n" |
.'</p>'."\n" |
.'</p>'."\n" |
); |
); |
Line 93 sub handler() {
|
Line 116 sub handler() {
|
return OK; |
return OK; |
} |
} |
|
|
|
|
sub checkpermission() { |
|
my $r = shift; |
|
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
|
my $result = <<END |
|
Content-type: text/html |
|
|
|
<html> |
|
<head> |
|
<title> |
|
Bad Cookie |
|
</title> |
|
</head> |
|
<body> |
|
Your cookie information is incorrect. |
|
</body> |
|
</html> |
|
END |
|
; |
|
$r->print($result); |
|
return 0; |
|
} else { |
|
return 1; |
|
} |
|
} |
|
|
|
|
|
sub get_javascripts() { |
sub get_javascripts() { |
|
|
my $message = &mt('Please choose a PDF-File.'); |
my $message = &mt('Please choose a PDF-File.'); |
Line 164 sub get_uploadform() {
|
Line 160 sub get_uploadform() {
|
.'<input type="file" name="file" id="filename" />' |
.'<input type="file" name="file" id="filename" />' |
.&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::end_pick_box() |
.&Apache::lonhtmlcommon::end_pick_box() |
|
.'<p>' |
.'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />' |
.'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />' |
|
.'</p>' |
.'</form>' |
.'</form>' |
.'<br />'; |
.'<br />'; |
|
|
Line 196 sub get_pdf_data() {
|
Line 194 sub get_pdf_data() {
|
my $dict = $pdf->getFormFieldDict($pdf->getFormField($field)); # get formfield dictonary |
my $dict = $pdf->getFormFieldDict($pdf->getFormField($field)); # get formfield dictonary |
|
|
# |
# |
# this is nessesary 'cause 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 "i", "i.am" |
# dot in fieldnames. So a fieldname like "i.am.aFormfield" will offer three fieldnames "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'}) { |
Line 217 sub grade_pdf {
|
Line 215 sub grade_pdf {
|
my $debug = (); |
my $debug = (); |
|
|
$debug .= "Found: ". scalar @pdfdata." Entries \n"; |
$debug .= "Found: ". scalar @pdfdata." Entries \n"; |
$result .= '<h2>'.&mt('Results of PDF Form problems').'</h2>'; |
|
$result .= &Apache::loncommon::start_data_table() |
|
.&Apache::loncommon::start_data_table_header_row() |
|
.'<th>'.&mt('Problem Name').'</th>' |
|
.'<th>'.&mt('Grading').'</th>' |
|
.&Apache::loncommon::start_data_table_header_row() |
|
.&Apache::loncommon::end_data_table_header_row(); |
|
|
|
foreach my $entry (sort(@pdfdata)) { |
foreach my $entry (sort(@pdfdata)) { |
if ($entry =~ /^meta.*/) { |
if ($entry =~ /^meta.*/) { |
Line 233 sub grade_pdf {
|
Line 224 sub grade_pdf {
|
$user =~ s/(.*)\n/$1/; #TODO is that equals to chomp? |
$user =~ s/(.*)\n/$1/; #TODO is that equals to chomp? |
|
|
if($user ne $env{'user.name'} or $domain ne $env{'user.domain'}) { |
if($user ne $env{'user.name'} or $domain ne $env{'user.domain'}) { |
return "<pre>".&mt('Wrong username in PDF-File').": $user $domain -> $env{'user.domain'} $env{'user.name'} </pre>"; |
return '<p class="LC_error">' |
|
.&mt('Wrong username ([_1]) found in PDF file. Expected username: [_2]' |
|
,$user.':'.$domain |
|
,$env{'user.domain'}.':'.$env{'user.name'}) |
|
.'</p>'; |
} |
} |
|
|
} elsif($entry =~ /^upload.*/) { |
} elsif($entry =~ /^upload.*/) { |
Line 254 sub grade_pdf {
|
Line 249 sub grade_pdf {
|
$problems{$symb.$part}{$HWVAL} = $value; |
$problems{$symb.$part}{$HWVAL} = $value; |
} else { |
} else { |
$problems{$symb.$part} = { 'resource' => $resource, |
$problems{$symb.$part} = { 'resource' => $resource, |
'symb' => &Apache::lonenc::encrypted($symb), |
'symb' => $symb, |
'submitted' => $part, |
'submitted' => $part, |
$submit => 'Answer', |
$submit => 'Answer', |
$HWVAL => $value}; |
$HWVAL => $value}; |
Line 266 sub grade_pdf {
|
Line 261 sub grade_pdf {
|
} |
} |
#$result .= $debug; |
#$result .= $debug; |
|
|
|
$result .= '<h2>'.&mt('Results of PDF Form problems').'</h2>'; |
|
$result .= &Apache::loncommon::start_data_table() |
|
.&Apache::loncommon::start_data_table_header_row() |
|
.'<th>'.&mt('Problem Name').'</th>' |
|
.'<th>'.&mt('Grading').'</th>' |
|
.&Apache::loncommon::start_data_table_header_row() |
|
.&Apache::loncommon::end_data_table_header_row(); |
|
|
foreach my $key (sort (keys %problems)) { |
foreach my $key (sort (keys %problems)) { |
my %problem = %{$problems{$key}}; |
my %problem = %{$problems{$key}}; |
my ($problemname, $grade) = &grade_problem(%problem); |
my ($problemname, $grade) = &grade_problem(%problem); |
Line 310 sub grade_problem {
|
Line 313 sub grade_problem {
|
sub parse_grade_answer { |
sub parse_grade_answer { |
my ($shortcut) = @_; |
my ($shortcut) = @_; |
my %answerhash = ('EXACT_ANS' => &mt('You are correct.'), |
my %answerhash = ('EXACT_ANS' => &mt('You are correct.'), |
'APPROX_ANS' => &mt('You are approximated right'), |
'APPROX_ANS' => &mt('You are correct.'), |
'INCORRECT' => &mt('You are incorrect'), |
'INCORRECT' => &mt('You are incorrect'), |
); |
); |
|
|