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

Diff for /loncom/homework/inputtags.pm between versions 1.271.2.7 and 1.272

version 1.271.2.7, 2011/05/16 01:02:57 version 1.272, 2010/10/31 12:33:02
Line 60  use LONCAPA; Line 60  use LONCAPA;
     
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::inputtags',('hiddensubmission','hiddenline','textfield','textline'));      &Apache::lonxml::register('Apache::inputtags',('hiddenline','textfield','textline'));
 }  }
   
 =pod  =pod
Line 175  sub start_textfield { Line 175  sub start_textfield {
     if ($target eq 'web') {      if ($target eq 'web') {
  $Apache::lonxml::evaluate--;   $Apache::lonxml::evaluate--;
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
         my ($oldresponse,$newvariation);   my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');
         if ((($Apache::lonhomework::history{"resource.$partid.type"} eq 'randomizetry') ||  
              ($Apache::lonhomework::type eq 'randomizetry')) &&  
              ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {  
             if ($env{'form.'.$partid.'.rndseed'} ne  
                 $Apache::lonhomework::history{"resource.$partid.rndseed"}) {  
                 $newvariation = 1;  
             }  
         }  
         unless ($newvariation) {  
     $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');  
         }  
  if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {   if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
     my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);      my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
     if ( $cols eq '') { $cols = 80; }      if ( $cols eq '') { $cols = 80; }
Line 342  sub start_textline { Line 331  sub start_textline {
     $maxlength = ' maxlength="'.$size.'"';      $maxlength = ' maxlength="'.$size.'"';
  }   }
     }      }
             my ($oldresponse,$newvariation);      my $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
             if ((($Apache::lonhomework::history{"resource.$partid.type"} eq 'randomizetry') ||      &Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));
                  ($Apache::lonhomework::type eq 'randomizetry')) &&  
                  ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {      if (ref($oldresponse) eq 'ARRAY') {
                 if ($env{'form.'.$partid.'.rndseed'} ne   $oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
                     $Apache::lonhomework::history{"resource.$partid.rndseed"}) {      }
                     $newvariation = 1;      $oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');
                 }              $oldresponse =~ s/^\s+//;
             }              $oldresponse =~ s/\s+$//;
             unless ($newvariation) {              $oldresponse =~ s/\s+/ /g;
         $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};  
         &Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));  
   
         if (ref($oldresponse) eq 'ARRAY') {  
     $oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];  
         }  
         $oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');  
                 $oldresponse =~ s/^\s+//;  
                 $oldresponse =~ s/\s+$//;  
                 $oldresponse =~ s/\s+/ /g;  
             }  
     if ($Apache::lonhomework::type ne 'exam') {      if ($Apache::lonhomework::type ne 'exam') {
  my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);   my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
  $result='';   $result='';
Line 479  sub end_hiddenline { Line 457  sub end_hiddenline {
     return "";      return "";
 }  }
   
 sub start_hiddensubmission {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;  
     my $result = "";  
     my $input_id = &start_input($parstack,$safeeval);  
     if ($target eq 'web') {  
         $Apache::lonxml::evaluate--;  
         if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {  
             my $partid=$Apache::inputtags::part;  
             my $id=$Apache::inputtags::response[-1];  
             if ($Apache::lonhomework::type ne 'exam') {  
                 my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);  
                 $value = &HTML::Entities::encode($value,'<>&"');  
                 $result= '<input type="hidden" name="HWVAL_'.$id.'" value="'.$value.'" />';  
             }  
         }  
     } elsif ($target eq 'edit') {  
         $result=&Apache::edit::tag_start($target,$token);  
         $result.=&Apache::edit::text_arg('Value:','value',$token,'15');  
         $result.=&Apache::edit::end_row();  
         $result.=&Apache::edit::end_table();  
     } elsif ($target eq 'modified') {  
         my $constructtag=&Apache::edit::get_new_args($token,$parstack,  
                                                      $safeeval,'value');  
         if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }  
     }  
   
     if ( ($target eq 'web' || $target eq 'tex')  
          && $Apache::lonhomework::type eq 'exam'  
          && &needs_exam_box($tagstack)) {  
         $result.=&exam_box($target);  
     }  
     return $result;  
 }  
   
 sub end_hiddensubmission {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;  
     if    ($target eq 'web') { $Apache::lonxml::evaluate++; }  
     elsif ($target eq 'edit') { return ('','no'); }  
     &end_input();  
     return "";  
 }  
   
 =pod  =pod
   
 =item file_selector()  =item file_selector()
Line 638  sub current_file_submissions { Line 574  sub current_file_submissions {
             }              }
         }          }
     }      }
     my $num = 0;  
     foreach my $name (sort(keys(%okfiles))) {      foreach my $name (sort(keys(%okfiles))) {
         if (ref($okfiles{$name}) eq 'ARRAY') {          if (ref($okfiles{$name}) eq 'ARRAY') {
             foreach my $url (@{$okfiles{$name}}) {              foreach my $url (@{$okfiles{$name}}) {
Line 657  sub current_file_submissions { Line 592  sub current_file_submissions {
                         if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {                          if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
                             $result .=                              $result .=
                                  '<td valign="bottom"><input type="checkbox" name="HWFILE'.$jspart.'_'.$id.'_delete"'.                                   '<td valign="bottom"><input type="checkbox" name="HWFILE'.$jspart.'_'.$id.'_delete"'.
                                  ' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";                                   ' value="'.$portfile.'" /></td>'."\n";
                             $num ++;  
                         }                          }
                         my $showname = $rows{$url}{path}.$name;                          my $showname = $rows{$url}{path}.$name;
                         if ($legacy{$url}) {                          if ($legacy{$url}) {
Line 666  sub current_file_submissions { Line 600  sub current_file_submissions {
                         }                          }
                         $result .=                           $result .= 
                             '<td><a href="'.$link.'"><img src="'.$icon.                              '<td><a href="'.$link.'"><img src="'.$icon.
                             '" border="0" alt="" />'.$showname.'</a></td>'."\n".                              '" border="0" />'.$showname.'</a></td>'."\n".
                             '<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".                              '<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".
                             '<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".                              '<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".
                             &Apache::loncommon::end_data_table_row();                              &Apache::loncommon::end_data_table_row();
Line 676  sub current_file_submissions { Line 610  sub current_file_submissions {
         }          }
     }      }
     if ($header_shown) {      if ($header_shown) {
         $result .= &Apache::loncommon::end_data_table().          $result .= &Apache::loncommon::end_data_table();
                    '<br /><span class="LC_warning">'.  
                    &mt('Exclude existing file(s) from grading by checking the "Delete?" checkbox(es) and clicking "Submit Answer"').'</span>';  
     }      }
     if (@bad_file_list) {      if (@bad_file_list) {
         my $bad_files = '<span class="LC_filename">'.          my $bad_files = '<span class="LC_filename">'.
Line 728  sub valid_award { Line 660  sub valid_award {
        'UNIT_FAIL', 'NO_UNIT',         'UNIT_FAIL', 'NO_UNIT',
        'UNIT_NOTNEEDED', 'WANTED_NUMERIC',         'UNIT_NOTNEEDED', 'WANTED_NUMERIC',
        'BAD_FORMULA', 'NOT_FUNCTION', 'WRONG_FORMAT',          'BAD_FORMULA', 'NOT_FUNCTION', 'WRONG_FORMAT', 
        'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT',                                  'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT', 
        'MISORDERED_RANK', 'INVALID_FILETYPE',         'MISORDERED_RANK', 'INVALID_FILETYPE',
                                'EXCESS_FILESIZE', 'FILENAME_INUSE',                                  'EXCESS_FILESIZE', 'FILENAME_INUSE', 
        'DRAFT', 'SUBMITTED', 'SUBMITTED_CREDIT',          'DRAFT', 'SUBMITTED', 'SUBMITTED_CREDIT', 
Line 746  sub valid_award { Line 678  sub valid_award {
   'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT',    'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT',
   'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',    'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',
   'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',  'NOT_FUNCTION',     'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',  'NOT_FUNCTION', 
   'WRONG_FORMAT', 'INTERNAL_ERROR',                    'WRONG_FORMAT', 'INTERNAL_ERROR',
   'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',    'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',
   'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'FILENAME_INUSE',     'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'FILENAME_INUSE', 
                   'DRAFT', 'SUBMITTED',                    'DRAFT', 'SUBMITTED',
Line 1041  sub decideoutput { Line 973  sub decideoutput {
         $message = &mt("Wrong format").'.';          $message = &mt("Wrong format").'.';
         $css_class=$possible_class{'not_charged_try'};          $css_class=$possible_class{'not_charged_try'};
         $button=1;          $button=1;
     } elsif ($award eq 'INTERNAL_ERROR') {       } elsif ($award eq 'INTERNAL_ERROR') {
         $message = &mt("An internal error occurred while processing your answer. Please try again later.");          $message = &mt("An internal error occurred while processing your answer. Please try again later.");
         $css_class=$possible_class{'not_charged_try'};          $css_class=$possible_class{'not_charged_try'};
         $button=1;          $button=1;
Line 1318  sub setgradedata { Line 1250  sub setgradedata {
  &Apache::response::add_to_gradingqueue();   &Apache::response::add_to_gradingqueue();
     }      }
     if (($Apache::lonhomework::type eq 'anonsurvey') ||      if (($Apache::lonhomework::type eq 'anonsurvey') ||
         ($Apache::lonhomework::type eq 'anonsurveycred') ||          ($Apache::lonhomework::type eq 'anonsurveycred')) {
         ($Apache::lonhomework::type eq 'randomizetry')) {  
         $Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;          $Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;
     }      }
     if ($Apache::lonhomework::type eq 'randomizetry') {  
         $Apache::lonhomework::results{"resource.$id.rndseed"} = $env{'form.'.$id.'.rndseed'};  
     }  
 }  }
   
 sub find_which_previous {  sub find_which_previous {
Line 1533  sub previous_tries { Line 1461  sub previous_tries {
   
     my $count;      my $count;
     my %count_lookup;      my %count_lookup;
     my $lastrndseed;  
   
     foreach my $i (1..$Apache::lonhomework::history{'version'}) {      foreach my $i (1..$Apache::lonhomework::history{'version'}) {
  my $prefix = $i.":resource.$id";   my $prefix = $i.":resource.$id";
Line 1547  sub previous_tries { Line 1474  sub previous_tries {
  next if (!exists($Apache::lonhomework::history{"$prefix.award"}));   next if (!exists($Apache::lonhomework::history{"$prefix.award"}));
  $count++;   $count++;
  $count_lookup{$i} = $count;   $count_lookup{$i} = $count;
         my $curr_rndseed = $Apache::lonhomework::history{"$prefix.rndseed"};  
   
  my ($previousmsg,$latemessage,$message,$trystr);   my ($previousmsg,$latemessage,$message,$trystr);
   
  ($previousmsg,$latemessage,$message,$trystr) =   ($previousmsg,$latemessage,$message,$trystr) =
Line 1566  sub previous_tries { Line 1492  sub previous_tries {
  ) {   ) {
   
                 my $txt_correct = &mt('Correct');                  my $txt_correct = &mt('Correct');
                 my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};  
                 if ($awarded < 1 && $awarded > 0) {  
                     $txt_correct=&mt('Partially Correct');  
                 } elsif ($awarded < 1) {  
                     if ($awarded eq '') {  
                         $txt_correct='';  
                     } else {  
                         $txt_correct=&mt('Incorrect');  
                     }  
                 }  
  $message =~ s{(<td.*?>)(.*?)(</td>)}   $message =~ s{(<td.*?>)(.*?)(</td>)}
                              {$1 <strong>$txt_correct</strong>. $3}s;                               {$1 <strong>$txt_correct</strong>. $3}s;
     }      }
             my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";              my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";
             if ($curr_rndseed || $lastrndseed) {  
                 if ($curr_rndseed ne $lastrndseed) {  
                     $trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>';  
                 }  
             }  
     $message =~ s{(</td>)}{ $trystr $1};      $message =~ s{(</td>)}{ $trystr $1};
  }   }
  my ($class) = ($message =~ m{<td.*class="([^"]*)"}); #"   my ($class) = ($message =~ m{<td.*class="([^"]*)"}); #"
Line 1614  sub previous_tries { Line 1525  sub previous_tries {
     }      }
  }   }
  $output.=&Apache::loncommon::end_data_table_row()."\n";   $output.=&Apache::loncommon::end_data_table_row()."\n";
         $lastrndseed = $curr_rndseed;  
     }      }
     return if ($output eq '');      return if ($output eq '');
     my $headers =       my $headers = 
Removed from v.1.271.2.7  
changed lines
  Added in v.1.272

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