version 1.3, 2009/04/04 21:47:41
|
version 1.5, 2009/05/15 23:40:54
|
Line 80 sub handler() {
|
Line 80 sub handler() {
|
} |
} |
|
|
#link to course-content |
#link to course-content |
$r->print(" <br />\n <a href='/adm/navmaps'>\n ".&mt("Navigate Contents")."\n </a>\n <br />"); |
$r->print('<p>'."\n" |
|
.'<a href="/adm/navmaps">'."\n" |
|
.&mt("Navigate Contents")."\n" |
|
.'</a>'."\n" |
|
.'</p>'."\n" |
|
); |
|
|
#&dumpenv($r); #debug -> prints the environment |
#&dumpenv($r); #debug -> prints the environment |
$r->print(" </body> \n</html>\n"); |
$r->print(" </body> \n</html>\n"); |
Line 139 END
|
Line 144 END
|
|
|
|
|
sub get_uploadform() { |
sub get_uploadform() { |
my $result = <<END |
|
<p height='25'> |
my %lt = &Apache::lonlocal::texthash( |
</p> |
'title'=>'Submit a PDF-Form with problems', |
<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);"> |
'chFile' => 'Choose file', |
<input type="hidden" name="type" value="upload" /> |
'submit'=>'Submit' |
<div align="center"> |
); |
<table bgcolor="#000000" width="450" cellspacing="0" cellpadding="0" border="0"> |
|
<tr> |
my $result = |
<td> |
'<br />' |
<table cellspacing="1" cellpadding="2" border="0" width="100%"> |
.'<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);">' |
<tr> |
.'<input type="hidden" name="type" value="upload" />' |
<td colspan="2" bgcolor="#99EEEE"> |
.&Apache::lonhtmlcommon::start_pick_box() |
<b>PDF-Formular einsenden</b> |
.&Apache::lonhtmlcommon::row_headline() |
</td> |
.'<h2>'.$lt{'title'}.'</h2>' |
</tr> |
.&Apache::lonhtmlcommon::row_closure() |
<tr> |
.&Apache::lonhtmlcommon::row_title($lt{'chFile'}) |
<td bgcolor="#F8F8F8"> |
.'<input type="file" name="file" id="filename" />' |
Datei auswählen |
.&Apache::lonhtmlcommon::row_closure(1) |
</td> |
.&Apache::lonhtmlcommon::end_pick_box() |
<td bgcolor="#F8F8F8"> |
.'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />' |
<input type="file" name="file" id="filename" /> |
.'</form>' |
</td> |
.'<br />' |
</tr> |
.'<hr />'; |
<tr> |
|
<td bgcolor="#F8F8F8" colspan="2" align="right" style="margin-right: 30px;"> |
|
<input type="submit" name="Uploaded" value="Absenden" /> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</div> |
|
</form> |
|
END |
|
; |
|
return $result; |
return $result; |
} |
} |
|
|
Line 222 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 .= "<table width='80%'>\n"; |
$result .= '<br />'; |
|
$result .= &Apache::loncommon::start_data_table(); |
|
$result .= &Apache::loncommon::start_data_table_header_row(); |
|
$result .= &mt('<b>Results of PDF-Form problems</b>'); |
|
$result .= &Apache::loncommon::end_data_table_header_row(); |
|
|
foreach my $entry (sort(@pdfdata)) { |
foreach my $entry (sort(@pdfdata)) { |
if ($entry =~ /^meta.*/) { |
if ($entry =~ /^meta.*/) { |
$debug .= 'found: metadata -> '.$entry . "<br />"; |
$debug .= 'found: metadata -> '.$entry . "<br />"; |
my ($label, $value) = ($entry =~ /^([^?]*)\?(.*)/); |
my ($label, $value) = ($entry =~ /^([^?]*)\?(.*)/); |
my ($domain, $user) = split('&', $value); |
my ($domain, $user) = split('&', $value); |
$user =~ s/(.*)\n/$1/; #TODO find an other way |
$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 "<pre>".&mt('Wrong username in PDF-File').": $user $domain -> $env{'user.domain'} $env{'user.name'} </pre>"; |
Line 252 sub grade_pdf {
|
Line 250 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' => $symb, |
'symb' => &Apache::lonenc::encrypted($symb), |
'submitted' => $part, |
'submitted' => $part, |
$submit => 'Answer', |
$submit => 'Answer', |
$HWVAL => $value}; |
$HWVAL => $value}; |
Line 262 sub grade_pdf {
|
Line 260 sub grade_pdf {
|
next; |
next; |
} |
} |
} |
} |
$result .= $debug; |
#$result .= $debug; |
|
|
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); |
$result .= "<tr style='background-color: #EEF5F5;'><td>$problemname</td><td style='background-color: "; |
|
|
$problemname =~ s/(.*)\s*-\sPart\s0/$1/; #cut part when there is only one part in problem |
|
|
|
$result .= &Apache::loncommon::start_data_table_row(); |
|
$result .= "<td>$problemname</td><td class='"; |
if($grade eq "EXACT_ANS") { |
if($grade eq "EXACT_ANS") { |
$result .= "#DDFFDD"; |
$result .= "LC_answer_correct"; |
} else { |
} else { |
$result .= "#DD5555"; |
$result .= "LC_answer_charged_try"; |
} |
} |
$result .= "'>$grade</td></tr>"; |
$result .= "'>$grade</span></td>"; |
|
$result .= &Apache::loncommon::end_data_table_row(); |
} |
} |
$result .= "\n</table>"; |
#$result .= "\n</table>"; |
|
$result .= &Apache::loncommon::end_data_table(); |
|
|
|
|
return $result; |
return $result; |
} |
} |
Line 286 sub grade_problem {
|
Line 290 sub grade_problem {
|
|
|
my ($content) = &Apache::loncommon::ssi_with_retries('/res/'. |
my ($content) = &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 =~ s/.*class="LC_current_location".*>(.*)<\/td>.*/$1/g; |
$content = $1; |
$content = $1; |
|
|