[BACK]Return to lonpdfupload.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpdfupload.pm between versions 1.5 and 1.6

version 1.5, 2009/05/15 23:40:54 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('<p>'."\n"      $r->print('<hr />'
                .'<p>'."\n"
              .'<a href="/adm/navmaps">'."\n"               .'<a href="/adm/navmaps">'."\n"
              .&mt("Navigate Contents")."\n"               .&mt("Navigate Contents")."\n"
              .'</a>'."\n"               .'</a>'."\n"
Line 121  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 146  END Line 147  END
 sub get_uploadform() {  sub get_uploadform() {
           
     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 =       my $result = 
Line 165  sub get_uploadform() { Line 166  sub get_uploadform() {
        .&Apache::lonhtmlcommon::end_pick_box()         .&Apache::lonhtmlcommon::end_pick_box()
        .'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />'         .'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />'
        .'</form>'         .'</form>'
        .'<br />'         .'<br />';
        .'<hr />';  
   
   return $result;    return $result;
 }  }
Line 180  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 215  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 239  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 278  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();
   
   
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>