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

Diff for /loncom/interface/lonpdfupload.pm between versions 1.7 and 1.13

version 1.7, 2009/05/21 03:09:01 version 1.13, 2009/06/17 13:00:38
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(&mt('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 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);
   
         $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 306  sub grade_problem { Line 322  sub grade_problem {
     return ($title, $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;
   
Removed from v.1.7  
changed lines
  Added in v.1.13

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