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

Diff for /loncom/homework/inputtags.pm between versions 1.171 and 1.173

version 1.171, 2005/07/11 19:41:53 version 1.173, 2005/08/02 18:05:25
Line 43  sub initialize_inputtags { Line 43  sub initialize_inputtags {
     # list of all input ids seen in this problem      # list of all input ids seen in this problem
     @Apache::inputtags::inputlist=();      @Apache::inputtags::inputlist=();
     # list of all current response ids      # list of all current response ids
     @Apache::inputtags::response=();      @Apache::inputtags::hint=();
     # list of all response ids seen in this problem      # list of all response ids seen in this problem
     @Apache::inputtags::responselist=();      @Apache::inputtags::responselist=();
       # list of all current hint ids
       @Apache::inputtags::response=();
       # list of all hint ids seen in this problem
       @Apache::inputtags::hintlist=();
     # list of whether or not a specific response was previously used      # list of whether or not a specific response was previously used
     @Apache::inputtags::previous=();      @Apache::inputtags::previous=();
     # submission it was used in      # submission it was used in
Line 75  sub check_for_duplicate_ids { Line 79  sub check_for_duplicate_ids {
     my %check;      my %check;
     foreach my $id (@Apache::inputtags::partlist,      foreach my $id (@Apache::inputtags::partlist,
     @Apache::inputtags::responselist,      @Apache::inputtags::responselist,
       @Apache::inputtags::hintlist,
     @Apache::inputtags::importlist) {      @Apache::inputtags::importlist) {
  $check{$id}++;   $check{$id}++;
     }      }
Line 426  sub decideoutput { Line 431  sub decideoutput {
     $message=&mt('Incorrect.');      $message=&mt('Incorrect.');
     $bgcolor=$possiblecolors{'charged_try'};      $bgcolor=$possiblecolors{'charged_try'};
  }   }
    if ($env{'request.filename'} =~ 
  if ($target eq 'tex') {  
     $message = '\textbf{'.$message.'}';  
  } else {  
     $message = "<b>".$message."</b>";  
  }  
  $added_computer_text=1;  
   
  if ($env{'request.filename'} !~   
     m|/res/lib/templates/examupload.problem$|) {      m|/res/lib/templates/examupload.problem$|) {
     if ($target ne 'tex') {      $message = &mt("A score has been assigned.");
       $added_computer_text=1;
    } else {
       if ($target eq 'tex') {
    $message = '\textbf{'.$message.'}';
       } else {
    $message = "<b>".$message."</b>";
  $message.=" ".&mt("Computer's answer now shown above.");   $message.=" ".&mt("Computer's answer now shown above.");
     }      }
       $added_computer_text=1;
     unless ($env{'course.'.      unless ($env{'course.'.
      $env{'request.course.id'}.       $env{'request.course.id'}.
      '.disable_receipt_display'} eq 'yes') {        '.disable_receipt_display'} eq 'yes') { 
Removed from v.1.171  
changed lines
  Added in v.1.173

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