version 1.3, 2009/04/04 21:47:41
|
version 1.4, 2009/05/15 17:53:06
|
Line 139 END
|
Line 139 END
|
|
|
|
|
sub get_uploadform() { |
sub get_uploadform() { |
|
|
|
#TODO use LON-CAPA routines like pick_box or like that |
|
my %lt = &Apache::lonlocal::texthash( |
|
'title'=>'Submit a PDF-Form with problems', |
|
'chFile' => 'Choose file:', |
|
'submit'=>'Submit' |
|
); |
|
|
my $result = <<END |
my $result = <<END |
<p height='25'> |
|
</p> |
|
<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);"> |
<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);"> |
<input type="hidden" name="type" value="upload" /> |
<input type="hidden" name="type" value="upload" /> |
<div align="center"> |
<br /> |
<table bgcolor="#000000" width="450" cellspacing="0" cellpadding="0" border="0"> |
<b>$lt{'title'}</b> |
<tr> |
<table class="LC_pick_box"> |
<td> |
<tbody> |
<table cellspacing="1" cellpadding="2" border="0" width="100%"> |
<tr class="LC_pick_box_row"> |
<tr> |
<td class="LC_pick_box_title"> |
<td colspan="2" bgcolor="#99EEEE"> |
$lt{'chFile'} |
<b>PDF-Formular einsenden</b> |
</td> |
</td> |
<td class="LC_pick_box_value LC_odd_row"> |
</tr> |
<input type="file" name="file" id="filename" /> |
<tr> |
</td> |
<td bgcolor="#F8F8F8"> |
</tr> |
Datei auswählen |
</tbody> |
</td> |
</table> |
<td bgcolor="#F8F8F8"> |
<br /> |
<input type="file" name="file" id="filename" /> |
<input type="submit" name="Uploaded" value="$lt{'submit'}" /> |
</td> |
</form> |
</tr> |
<br /> |
<tr> |
<hr /> |
<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 |
END |
; |
; |
return $result; |
return $result; |
Line 222 sub grade_pdf {
|
Line 218 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 253 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 263 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 293 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; |
|
|