[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.10 and 1.272

version 1.271.2.10, 2013/04/30 21:45:47 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) {  
             if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||  
                 (($env{'form.grade_username'} eq $env{'user.name'}) &&  
                  ($env{'form.grade_domain'} eq $env{'user.domain'}))) {  
                 $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};  
             } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||  
                     ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {  
                 $oldresponse = '* '.&mt('only shown to submitter').' *';  
             } else {  
                 $oldresponse = $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 209  sub start_textfield { Line 189  sub start_textfield {
             my $textareaclass = 'class="LC_richDetectHtml"';              my $textareaclass = 'class="LC_richDetectHtml"';
     $result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.      $result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.
       'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.        'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.
                       &HTML::Entities::encode($oldresponse,'<>&"');                        $oldresponse;
     if ($oldresponse ne '') {      if ($oldresponse ne '') {
   
  #get rid of any startup text if the user has already responded   #get rid of any startup text if the user has already responded
Line 351  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;
                 if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||  
                     (($env{'form.grade_username'} eq $env{'user.name'}) &&  
                      ($env{'form.grade_domain'} eq $env{'user.domain'}))) {  
                     $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};  
                 } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||  
                         ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') ||  
                         ($Apache::lonhomework::type eq 'anonsurvey') ||  
                         ($Apache::lonhomework::type eq 'anonsurveycred')) {  
                         $oldresponse = '* '.&mt('only shown to submitter').' *';  
                 } else {  
                     $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 498  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 657  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 676  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 685  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 695  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 747  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 765  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 863  sub finalizeawards { Line 776  sub finalizeawards {
 }  }
   
 sub decideoutput {  sub decideoutput {
     my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect)=@_;      my ($award,$awarded,$awardmsg,$solved,$previous,$target)=@_;
   
     my $message='';      my $message='';
     my $button=0;      my $button=0;
Line 881  sub decideoutput { Line 794  sub decideoutput {
     my $part = $Apache::inputtags::part;      my $part = $Apache::inputtags::part;
     my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade");      my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade");
     my $handgrade = ('yes' eq lc($tohandgrade));       my $handgrade = ('yes' eq lc($tohandgrade)); 
        
 #      my $computer = ($handgrade)? ''
 # Should "Computer's Answer" be displayed?  
 # Should not be displayed if still answerable,  
 # if the problem is handgraded,  
 # or if the problem does not give a correct answer  
 #  
     my $computer = ($handgrade || $nocorrect)? ''  
                        : " ".&mt("Computer's answer now shown above.");                         : " ".&mt("Computer's answer now shown above.");
     &Apache::lonxml::debug("handgrade has :$handgrade:");      &Apache::lonxml::debug("handgrade has :$handgrade:");
   
Line 904  sub decideoutput { Line 811  sub decideoutput {
     $message=&mt('Incorrect.');      $message=&mt('Incorrect.');
     $css_class=$possible_class{'charged_try'};      $css_class=$possible_class{'charged_try'};
  }   }
  if ($handgrade ||    if ($env{'request.filename'} =~ 
             ($env{'request.filename'}=~ m{/res/lib/templates/(examupload|DropBox)\.problem$})) {      m|/res/lib/templates/examupload.problem$|) {
     $message = &mt("A score has been assigned.");      $message = &mt("A score has been assigned.");
     $added_computer_text=1;      $added_computer_text=1;
  } else {   } else {
Line 1066  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 1343  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 1429  sub grade { Line 1332  sub grade {
 }  }
   
 sub get_grade_messages {  sub get_grade_messages {
     my ($id,$prefix,$target,$status,$nocorrect) = @_;      my ($id,$prefix,$target,$status) = @_;
 # nocorrect suppresses "Computer's answer now shown above"  
     my ($message,$latemessage,$trystr,$previousmsg);      my ($message,$latemessage,$trystr,$previousmsg);
     my $showbutton = 1;      my $showbutton = 1;
   
Line 1444  sub get_grade_messages { Line 1347  sub get_grade_messages {
  &Apache::lonxml::debug('Getting message');   &Apache::lonxml::debug('Getting message');
  ($showbutton,my $css_class,$message,$previousmsg) =   ($showbutton,my $css_class,$message,$previousmsg) =
     &decideoutput($award,$awarded,$awardmsg,$solved,$previous,      &decideoutput($award,$awarded,$awardmsg,$solved,$previous,
   $target,(($status eq 'CAN_ANSWER') || $nocorrect));    $target);
  if ($target eq 'tex') {   if ($target eq 'tex') {
     $message='\vskip 2 mm '.$message.' ';      $message='\vskip 2 mm '.$message.' ';
  } else {   } else {
Line 1462  sub get_grade_messages { Line 1365  sub get_grade_messages {
     if ( $tries eq '' ) { $tries = '0'; }      if ( $tries eq '' ) { $tries = '0'; }
     if ( $maxtries eq '' ) { $maxtries = '2'; }       if ( $maxtries eq '' ) { $maxtries = '2'; } 
     if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; }       if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; } 
     my $tries_text= &get_tries_text();      my $tries_text= &get_tries_text();;
     if ($showbutton) {      if ($showbutton) {
  if ($target eq 'tex') {   if ($target eq 'tex') {
     if ($env{'request.state'} ne "construct"      if ($env{'request.state'} ne "construct"
  && $Apache::lonhomework::type ne 'exam'   && $Apache::lonhomework::type ne 'exam'
  && $env{'form.suppress_tries'} ne 'yes') {   && $env{'form.suppress_tries'} ne 'yes') {
                 $trystr ='{\vskip 1 mm \small '   $trystr = ' {\vskip 1 mm \small \textit{'.$tries_text.'} '.
                         .&mt('[_1]'.$tries_text.'[_2] [_3]'      $tries.'/'.$maxtries.'} \vskip 2 mm ';
                                 ,'\textit{','}',$tries.'/'.$maxtries )  
                         .'} \vskip 2 mm';  
     } else {      } else {
  $trystr = '\vskip 0 mm ';   $trystr = '\vskip 0 mm ';
     }      }
  } else {   } else {
             my $trial = $tries;      $trystr = '<td><span class="LC_nobreak">'.&mt($tries_text)." $tries";
     if ($Apache::lonhomework::parsing_a_task) {      if ($Apache::lonhomework::parsing_a_task) {
     } elsif($env{'request.state'} ne 'construct') {      } elsif($env{'request.state'} ne 'construct') {
  $trial.="/$maxtries";   $trystr.="/$maxtries";
     } else {      } else {
  if (defined($Apache::inputtags::params{'maxtries'})) {   if (defined($Apache::inputtags::params{'maxtries'})) {
     $trial.="/".$Apache::inputtags::params{'maxtries'};      $trystr.="/".$Apache::inputtags::params{'maxtries'};
  }   }
     }      }
     $trystr.='<td><span class="LC_nobreak">'.&mt("$tries_text [_1]",$trial).'</span></td>';      $trystr.="</span></td>";
  }   }
     }      }
   
Line 1560  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 1574  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 1593  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) && ($i > 1)) {  
                 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 1641  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.10  
changed lines
  Added in v.1.272

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