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

Diff for /loncom/interface/lonpdfupload.pm between versions 1.3 and 1.4

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&auml;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;
   
Removed from v.1.3  
changed lines
  Added in v.1.4

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