version 1.6, 2009/05/16 00:28:38
|
version 1.14, 2009/10/17 03:13:35
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Publication Handler |
# PDF Form Upload Handler |
# |
# |
# $Id$ |
# $Id$ |
# |
# |
Line 65 sub handler() {
|
Line 65 sub handler() {
|
$env{'request.uri'}=$r->uri; |
$env{'request.uri'}=$r->uri; |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header(); |
$r->send_http_header(); |
$r->print(&Apache::loncommon::start_page('Upload PDF Form')); |
|
|
# Breadcrumbs |
|
my $brcrum = [{'href' => '/pdfupload', |
|
'text' => 'Upload PDF Form'}]; |
|
|
|
$r->print(&Apache::loncommon::start_page('Upload PDF Form', |
|
undef, |
|
{'bread_crumbs' => $brcrum,}) |
|
); |
|
|
#load post data into environment |
#load post data into environment |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
Line 83 sub handler() {
|
Line 91 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" |
); |
); |
|
|
#&dumpenv($r); #debug -> prints the environment |
#&dumpenv($r); #debug -> prints the environment |
$r->print(" </body> \n</html>\n"); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
Line 164 sub get_uploadform() {
|
Line 172 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 217 sub grade_pdf {
|
Line 227 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 236 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 261 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 273 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); |
|
|
$problemname =~ s/(.*)\s*-\sPart\s0/$1/; #cut part when there is only one part in problem |
|
|
|
$result .= &Apache::loncommon::start_data_table_row(); |
$result .= &Apache::loncommon::start_data_table_row(); |
$result .= "<td>$problemname</td><td class='"; |
$result .= "<td>$problemname</td><td class='"; |
if($grade eq "EXACT_ANS") { |
if($grade eq "EXACT_ANS" || $grade eq "APPROX_ANS") { |
$result .= "LC_answer_correct"; |
$result .= "LC_answer_correct"; |
} else { |
} else { |
$result .= "LC_answer_charged_try"; |
$result .= "LC_answer_charged_try"; |
} |
} |
|
$grade = &parse_grade_answer($grade); |
$result .= "'>$grade</span></td>"; |
$result .= "'>$grade</span></td>"; |
$result .= &Apache::loncommon::end_data_table_row(); |
$result .= &Apache::loncommon::end_data_table_row(); |
} |
} |
Line 290 sub grade_pdf {
|
Line 304 sub grade_pdf {
|
|
|
sub grade_problem { |
sub grade_problem { |
my %problem = @_; |
my %problem = @_; |
|
my ($title, $part) = (); |
|
|
my ($content) = &Apache::loncommon::ssi_with_retries('/res/'. |
&Apache::loncommon::ssi_with_retries('/res/'.$problem{'resource'}, 5, %problem); |
$problem{'resource'}, 5, %problem); |
|
|
|
#TODO ? filter html response can't be the answer |
|
# ! find an other way to get a problemname and Part |
|
$content =~ s/.*class="LC_current_location".*>(.*)<\/td>.*/$1/g; |
|
$content = $1; |
|
|
|
my $part = $problem{submitted}; |
$title = &Apache::lonnet::gettitle($problem{'symb'}); |
|
$part = $problem{submitted}; |
$part =~ s/part_(.*)/$1/; |
$part =~ s/part_(.*)/$1/; |
$content .= " - Part $part"; |
unless($part eq '0') { |
|
#add information about part number |
|
$title .= " - Part $part"; |
|
} |
|
|
my %problemhash = &Apache::lonnet::restore($problem{'symb'}); |
my %problemhash = &Apache::lonnet::restore($problem{'symb'}); |
my $grade = $problemhash{"resource.$part.award"}; |
my $grade = $problemhash{"resource.$part.award"}; |
|
|
return ($content, $grade); |
return ($title, $grade); |
|
} |
|
|
|
sub parse_grade_answer { |
|
my ($shortcut) = @_; |
|
my %answerhash = ('EXACT_ANS' => &mt('You are correct.'), |
|
'APPROX_ANS' => &mt('You are correct.'), |
|
'INCORRECT' => &mt('You are incorrect'), |
|
); |
|
|
|
foreach my $key (keys %answerhash) { |
|
if($shortcut eq $key) { |
|
return $answerhash{$shortcut}; |
|
} |
|
} |
|
return &mt('See course contents for further information.'); |
|
|
} |
} |
|
|
|
|
sub dumpenv { |
sub dumpenv { |
my $r = shift; |
my $r = shift; |
|
|