version 1.4, 2009/05/15 17:53:06
|
version 1.6, 2009/05/16 00:28:38
|
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')); |
$r->print(&Apache::loncommon::start_page('Upload PDF Form')); |
|
|
#load post data into environment |
#load post data into environment |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
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('<hr />' |
|
.'<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 116 END
|
Line 122 END
|
|
|
sub get_javascripts() { |
sub get_javascripts() { |
|
|
my $message = &mt('Please choose a PDF-File'); |
my $message = &mt('Please choose a PDF-File.'); |
|
|
# simple test if the upload ends with ".pdf" |
# simple test if the upload ends with ".pdf" |
# it's only for giving a message to the user |
# it's only for giving a message to the user |
Line 140 END
|
Line 146 END
|
|
|
sub get_uploadform() { |
sub get_uploadform() { |
|
|
#TODO use LON-CAPA routines like pick_box or like that |
|
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'title'=>'Submit a PDF-Form with problems', |
'title' => 'Upload a PDF Form with filled Form Fields', |
'chFile' => 'Choose file:', |
'chFile' => 'File', |
'submit'=>'Submit' |
'submit' => 'Upload', |
); |
); |
|
|
my $result = <<END |
my $result = |
<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);"> |
'<br />' |
<input type="hidden" name="type" value="upload" /> |
.'<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);">' |
<br /> |
.'<input type="hidden" name="type" value="upload" />' |
<b>$lt{'title'}</b> |
.&Apache::lonhtmlcommon::start_pick_box() |
<table class="LC_pick_box"> |
.&Apache::lonhtmlcommon::row_headline() |
<tbody> |
.'<h2>'.$lt{'title'}.'</h2>' |
<tr class="LC_pick_box_row"> |
.&Apache::lonhtmlcommon::row_closure() |
<td class="LC_pick_box_title"> |
.&Apache::lonhtmlcommon::row_title($lt{'chFile'}) |
$lt{'chFile'} |
.'<input type="file" name="file" id="filename" />' |
</td> |
.&Apache::lonhtmlcommon::row_closure(1) |
<td class="LC_pick_box_value LC_odd_row"> |
.&Apache::lonhtmlcommon::end_pick_box() |
<input type="file" name="file" id="filename" /> |
.'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />' |
</td> |
.'</form>' |
</tr> |
.'<br />'; |
</tbody> |
|
</table> |
|
<br /> |
|
<input type="submit" name="Uploaded" value="$lt{'submit'}" /> |
|
</form> |
|
<br /> |
|
<hr /> |
|
END |
|
; |
|
return $result; |
return $result; |
} |
} |
|
|
Line 183 sub processPDF {
|
Line 180 sub processPDF {
|
if (scalar @pdfdata) { |
if (scalar @pdfdata) { |
&grade_pdf(@pdfdata); |
&grade_pdf(@pdfdata); |
} else { |
} else { |
$result .= "<h2>".&mt("Can't find any valid PDF-formfields")."</h2>"; |
$result .= '<p class="LC_error">' |
|
.&mt("Can't find any valid PDF formfields.") |
|
.'</p>'; |
} |
} |
} |
} |
|
|
Line 218 sub grade_pdf {
|
Line 217 sub grade_pdf {
|
my $debug = (); |
my $debug = (); |
|
|
$debug .= "Found: ". scalar @pdfdata." Entries \n"; |
$debug .= "Found: ". scalar @pdfdata." Entries \n"; |
$result .= '<br />'; |
$result .= '<h2>'.&mt('Results of PDF Form problems').'</h2>'; |
$result .= &Apache::loncommon::start_data_table(); |
$result .= &Apache::loncommon::start_data_table() |
$result .= &Apache::loncommon::start_data_table_header_row(); |
.&Apache::loncommon::start_data_table_header_row() |
$result .= &mt('<b>Results of PDF-Form problems</b>'); |
.'<th>'.&mt('Problem Name').'</th>' |
$result .= &Apache::loncommon::end_data_table_header_row(); |
.'<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 242 sub grade_pdf {
|
Line 243 sub grade_pdf {
|
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb); |
$value =~ s/(.*)\n/$1/; |
$value =~ s/(.*)\n/$1/; |
|
|
#fehlerhafte Radiobuttons rausfiltern (Bug in CABAReT Stage) |
#filter incorrect radiobuttons (Bug in CABAReT Stage) |
if($type eq 'radiobuttonresponse' && $value eq 'Off' ) { |
if($type eq 'radiobuttonresponse' && $value eq 'Off' ) { |
next; |
next; |
} |
} |
Line 281 sub grade_pdf {
|
Line 282 sub grade_pdf {
|
$result .= "'>$grade</span></td>"; |
$result .= "'>$grade</span></td>"; |
$result .= &Apache::loncommon::end_data_table_row(); |
$result .= &Apache::loncommon::end_data_table_row(); |
} |
} |
#$result .= "\n</table>"; |
|
$result .= &Apache::loncommon::end_data_table(); |
$result .= &Apache::loncommon::end_data_table(); |
|
|
|
|