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

Diff for /loncom/homework/inputtags.pm between versions 1.66 and 1.307

version 1.66, 2002/10/23 17:05:25 version 1.307, 2012/08/21 18:24:28
Line 24 Line 24
 # /home/httpd/html/adm/gpl.txt  # /home/httpd/html/adm/gpl.txt
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  
 # 2/19 Guy   =pod
   
   =head1 NAME
   
   Apache::inputtags
   
   =head1 SYNOPSIS
   
   
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   
   =head1 NOTABLE SUBROUTINES
   
   =over
   
   =item 
   
   =back
   
   =cut
   
 package Apache::inputtags;  package Apache::inputtags;
 use HTML::Entities();  use HTML::Entities();
 use strict;  use strict;
   use Apache::loncommon;
   use Apache::lonhtmlcommon;
   use Apache::lonlocal;
   use Apache::lonnet;
   use LONCAPA;
    
   
 BEGIN {  BEGIN {
   &Apache::lonxml::register('Apache::inputtags',('textfield','textline'));      &Apache::lonxml::register('Apache::inputtags',('hiddensubmission','hiddenline','textfield','textline'));
 }  }
   
   =pod
   
   =item initialize_inputtags()
   
   Initializes a set of global variables used during the parse of the problem.
   
   @Apache::inputtags::input        - List of current input ids.
   @Apache::inputtags::inputlist    - List of all input ids seen this problem.
   @Apache::inputtags::response     - List of all current resopnse ids.
   @Apache::inputtags::responselist - List of all response ids seen this 
                                        problem.
   @Apache::inputtags::hint         - List of all hint ids.
   @Apache::inputtags::hintlist     - List of all hint ids seen this problem.
   @Apache::inputtags::previous     - List describing if specific responseds
                                        have been used
   @Apache::inputtags::previous_version - Submission responses were used in.
   $Apache::inputtags::part         - Current part id (valid only in 
                                        <problem>)
                                      0 if not in a part.
   @Apache::inputtags::partlist     - List of part ids seen in the current
                                        <problem>
   @Apache::inputtags::status       - List of problem  statuses. First 
                                      element is the status of the <problem>
                                      the remainder are for individual <part>s.
   %Apache::inputtags::params       - Hash of defined parameters for the
                                      current response.
   @Apache::inputtags::import       - List of all ids for <import> thes get
                                      join()ed and prepended.
   @Apache::inputtags::importlist   - List of all import ids seen.
   $Apache::inputtags::response_with_no_part
                                    - Flag set true if we have seen a response
                                      that is not inside a <part>
   %Apache::inputtags::answertxt    - <*response> tags store correct
                                      answer strings for display by <textline/>
                                      in this hash.
   %Apache::inputtags::submission_display
                                    - <*response> tags store improved display
                                      of submission strings for display by part
                                      end.
   
   =cut
   
 sub initialize_inputtags {  sub initialize_inputtags {
   # list of current input ids      @Apache::inputtags::input=();
   @Apache::inputtags::input=();      @Apache::inputtags::inputlist=();
   # list of all input ids seen in this problem      @Apache::inputtags::response=();
   @Apache::inputtags::inputlist=();      @Apache::inputtags::responselist=();
   # list of all current response ids      @Apache::inputtags::hint=();
   @Apache::inputtags::response=();      @Apache::inputtags::hintlist=();
   # list of all response ids seen in this problem      @Apache::inputtags::previous=();
   @Apache::inputtags::responselist=();      @Apache::inputtags::previous_version=();
   # list of whether or not a specific response was previously used      $Apache::inputtags::part='';
   @Apache::inputtags::previous=();      @Apache::inputtags::partlist=();
   # id of current part, 0 means that no part is current (inside <problem> only      @Apache::inputtags::status=();
   $Apache::inputtags::part='';      %Apache::inputtags::params=();
   # list of problem date statuses, the first element is for <problem>      @Apache::inputtags::import=();
   # if there is a second element it is for the current <part>      @Apache::inputtags::importlist=();
   @Apache::inputtags::status=();      $Apache::inputtags::response_with_no_part=0;
   # hash of defined params for the current response      %Apache::inputtags::answertxt=();
   %Apache::inputtags::params=();      %Apache::inputtags::submission_display=();
   # list of all ids, for <import>, these get join()ed and prepended  }
   @Apache::inputtags::import=();  
   sub check_for_duplicate_ids {
       my %check;
       foreach my $id (@Apache::inputtags::partlist,
       @Apache::inputtags::responselist,
       @Apache::inputtags::hintlist,
       @Apache::inputtags::importlist) {
    $check{$id}++;
       }
       my @duplicates;
       foreach my $id (sort(keys(%check))) {
    if ($check{$id} > 1) {
       push(@duplicates,$id);
    }
       }
       if (@duplicates) {
    &Apache::lonxml::error("Duplicated ids found, problem will operate incorrectly. Duplicated ids seen: ",join(', ',@duplicates));
       }
 }  }
   
 sub start_input {  sub start_input {
   my ($parstack,$safeeval)=@_;      my ($parstack,$safeeval)=@_;
   my $id = &Apache::lonxml::get_param('id',$parstack,$safeeval);      my $id = &Apache::lonxml::get_id($parstack,$safeeval);
   if ($id eq '') { $id = $Apache::lonxml::curdepth; }      push (@Apache::inputtags::input,$id);
   push (@Apache::inputtags::input,$id);      push (@Apache::inputtags::inputlist,$id);
   push (@Apache::inputtags::inputlist,$id);      return $id;
   return $id;  
 }  }
   
 sub end_input {  sub end_input {
   pop @Apache::inputtags::input;      pop @Apache::inputtags::input;
   return '';      return '';
   }
   
   sub addchars {
       my ($fieldid,$addchars)=@_;
       my $output='';
       foreach (split(/\,/,$addchars)) {
    $output.='<a href="javascript:void(document.forms.lonhomework.'.
       $fieldid.'.value+=\''.$_.'\')">'.$_.'</a> ';
       }
       return $output;
 }  }
   
 sub start_textfield {  sub start_textfield {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result = "";      my $result = "";
   my $id = &start_input($parstack,$safeeval);      my $id = &start_input($parstack,$safeeval);
   my $resid=$Apache::inputtags::response[-1];      my $resid=$Apache::inputtags::response[-1];
   if ($target eq 'web') {      if ($target eq 'web') {
     $Apache::lonxml::evaluate--;   $Apache::lonxml::evaluate--;
     if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {  
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
  my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"});          my ($oldresponse,$newvariation);
  my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);          if ((($Apache::lonhomework::history{"resource.$partid.type"} eq 'randomizetry') ||
  if ( $cols eq '') { $cols = 80; }               ($Apache::lonhomework::type eq 'randomizetry')) &&
  my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);               ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
  if ( $rows eq '') { $rows = 10; }              if ($env{'form.'.$partid.'.rndseed'} ne
  $result= '<textarea name="HWVAL'.$resid.'" '.                  $Apache::lonhomework::history{"resource.$partid.rndseed"}) {
     "rows=\"$rows\" cols=\"$cols\">".$oldresponse;                  $newvariation = 1;
  if ($oldresponse ne '') {              }
     #get rid of any startup text if the user has already responded          }
     &Apache::lonxml::get_all_text("/textfield",$$parser[-1]);          unless ($newvariation) {
       $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
           }
    if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
       my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
       if ( $cols eq '') { $cols = 80; }
       my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
       if ( $rows eq '') { $rows = 16; }
       my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
       $result='';
       if ($addchars) {
    $result.=&addchars('HWVAL_'.$resid,$addchars);
       }
               my $textareaclass = 'class="LC_richDetectHtml"';
       $result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.
         'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.
                         &HTML::Entities::encode($oldresponse,'<>&"');
       if ($oldresponse ne '') {
   
    #get rid of any startup text if the user has already responded
    &Apache::lonxml::get_all_text("/textfield",$parser,$style);
       }
    } else {
       #show past answer in the essayresponse case
       if ($oldresponse =~ /\S/
    && &Apache::londefdef::is_inside_of($tagstack,
       'essayresponse') ) {
    $result='<table class="LC_pastsubmission"><tr><td>'.
       $oldresponse.'</td></tr></table>';
       }
       #get rid of any startup text
       &Apache::lonxml::get_all_text("/textfield",$parser,$style);
    }
       } elsif ($target eq 'grade') {
    my $seedtext=&Apache::lonxml::get_all_text("/textfield",$parser,
      $style);
    if ($seedtext eq $env{'form.HWVAL_'.$resid}) {
       # if the seed text is still there it wasn't a real submission
       $env{'form.HWVAL_'.$resid}='';
    }
       } elsif ($target eq 'edit') {
    $result.=&Apache::edit::tag_start($target,$token);
    $result.=&Apache::edit::text_arg('Rows:','rows',$token,4);
    $result.=&Apache::edit::text_arg('Columns:','cols',$token,4);
    $result.=&Apache::edit::text_arg
       ('Click-On Texts (comma sep):','addchars',$token,10);
    my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
      $style);
    $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);
       } elsif ($target eq 'modified') {
    my $constructtag=&Apache::edit::get_new_args($token,$parstack,
        $safeeval,'rows','cols',
        'addchars');
    if ($constructtag) {
       $result = &Apache::edit::rebuild_tag($token);
    } else {
       $result=$token->[4];
    }
    $result.=&Apache::edit::modifiedfield("/textfield",$parser);
       } elsif ($target eq 'tex') {
    my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
    my $width_of_box = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
    if ($$tagstack[-2] eq 'essayresponse' and $Apache::lonhomework::type eq 'exam') {
       $result = '\fbox{\fbox{\parbox{\textwidth-5mm}{';
       for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
       $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
    } else {
       my $TeXwidth=$width_of_box/80;
       $result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
       for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
       $result.='}}}\vskip 2 mm ';
  }   }
     } else {  
  #right or wrong don't show it  
  #$result='<table border="1"><tr><td><i>'.$oldresponse.'</i></td></tr></table>';  
  $result='';  
  #get rid of any startup text  
  &Apache::lonxml::get_all_text("/textfield",$$parser[-1]);  
     }  
   } elsif ($target eq 'grade') {  
     my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]);  
     if ($seedtext eq $ENV{'form.HWVAL'.$resid}) {  
       # if the seed text is still there it wasn't a real submission  
       $ENV{'form.HWVAL'.$resid}='';  
     }  
   } elsif ($target eq 'edit') {  
     $result.=&Apache::edit::tag_start($target,$token);  
     $result.=&Apache::edit::text_arg('Rows:','rows',$token,4);  
     $result.=&Apache::edit::text_arg('Columns:','cols',$token,4);  
     my $bodytext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]);  
     $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);  
   } elsif ($target eq 'modified') {  
     my $constructtag=&Apache::edit::get_new_args($token,$parstack,  
  $safeeval,'rows','cols');  
     if ($constructtag) {  
       $result = &Apache::edit::rebuild_tag($token);  
     } else {  
       $result=$token->[4];  
     }      }
     $result.=&Apache::edit::modifiedfield();      return $result;
   }  
   return $result;  
 }  }
   
 sub end_textfield {  sub end_textfield {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $result;      my $result;
   if ($target eq 'web') {      if ($target eq 'web') {
     $Apache::lonxml::evaluate++;   $Apache::lonxml::evaluate++;
     if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {   if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
       return "</textarea>";      return "</textarea>";
    }
       } elsif ($target eq 'edit') {
    $result=&Apache::edit::end_table();
       }
       &end_input;
       return $result;
   }
   
   sub exam_score_line {
       my ($target) = @_;
   
       my $result;
       if ($target eq 'tex') {
    my $repetition = &Apache::response::repetition();
    $result.='\begin{enumerate}';
    if ($env{'request.state'} eq "construct" ) {$result.='\item[\strut]';}
    foreach my $i (0..$repetition-1) {
       $result.='\item[\textbf{'.
    ($Apache::lonxml::counter+$i).
    '}.]\textit{Leave blank on scoring form}\vskip 0 mm';
    }
    $result.= '\end{enumerate}';
       }
   
       return $result;
   }
   
   sub exam_box {
       my ($target) = @_;
       my $result;
   
       if ($target eq 'tex') {
    $result .= '\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';
    $result .= &exam_score_line($target);
       } elsif ($target eq 'web') {
    my $id=$Apache::inputtags::response[-1];
    $result.= '<br /><br />
                      <textarea name="HWVAL_'.$id.'" rows="4" cols="50">
                      </textarea> <br /><br />';
     }      }
   } elsif ($target eq 'edit') {      return $result;
     $result=&Apache::edit::end_table();  }
   }  
   &end_input;  sub needs_exam_box {
   return $result;      my ($tagstack) = @_;
       my @tags = ('formularesponse',
    'stringresponse',
    'reactionresponse',
    'organicresponse',
    );
   
       foreach my $tag (@tags) {
    if (grep(/\Q$tag\E/,@$tagstack)) {
       return 1;
    }
       }
       return 0;
 }  }
   
 sub start_textline {  sub start_textline {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $result = "";      my $result = "";
   if ($target eq 'web') {      my $input_id = &start_input($parstack,$safeeval);
     $Apache::lonxml::evaluate--;      if ($target eq 'web') {
    $Apache::lonxml::evaluate--;
    my $partid=$Apache::inputtags::part;
    my $id=$Apache::inputtags::response[-1];
    if (!&Apache::response::show_answer()) {
       my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
       my $maxlength;
       if ($size eq '') { $size=20; } else {
    if ($size < 20) {
       $maxlength = ' maxlength="'.$size.'"';
    }
       }
               my ($oldresponse,$newvariation);
               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 = $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') {
    my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
    $result='';
    if ($addchars) {
       $result.=&addchars('HWVAL_'.$id,$addchars);
    }
    my $readonly=&Apache::lonxml::get_param('readonly',$parstack,
    $safeeval);
    if (lc($readonly) eq 'yes' 
       || $Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
       $readonly=' readonly="readonly" ';
    } else {
       $readonly='';
    }
    my $name = 'HWVAL_'.$id;
    if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
       $name = "none";
    }
    $result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');" type="text" '.$readonly.' name="'.$name.'" value="'.
       $oldresponse.'" size="'.$size.'"'.$maxlength.' />';
       }
       if ($Apache::lonhomework::type eq 'exam'
    && &needs_exam_box($tagstack)) {
    $result.=&exam_box($target);
       }
    } else {
       #right or wrong don't show what was last typed in.
       my $count = scalar(@Apache::inputtags::inputlist)-1;
       $result='<b>'.$Apache::inputtags::answertxt{$id}[$count].'</b>';
       #$result='';
    }
       } elsif ($target eq 'edit') {
    $result=&Apache::edit::tag_start($target,$token);
    $result.=&Apache::edit::text_arg('Size:','size',$token,'5').
       &Apache::edit::text_arg('Click-On Texts (comma sep):',
       'addchars',$token,10);
           $result.=&Apache::edit::select_arg('Readonly:','readonly',
      ['no','yes'],$token);
    $result.=&Apache::edit::end_row();
    $result.=&Apache::edit::end_table();
       } elsif ($target eq 'modified') {
    my $constructtag=&Apache::edit::get_new_args($token,$parstack,
        $safeeval,'size',
        'addchars','readonly');
    if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
       } elsif ($target eq 'tex' 
        && $Apache::lonhomework::type ne 'exam') {
    my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
    if ($size != 0) {$size=$size*2; $size.=' mm';} else {$size='40 mm';}
    if ($env{'form.pdfFormFields'} eq 'yes'
               && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
               my $fieldname = $env{'request.symb'}.
                                    '&part_'. $Apache::inputtags::part.
                                    '&textresponse'.
                                    '&HWVAL_' . $Apache::inputtags::response['-1'];
               $result='\textField{'.$fieldname.'}{'.$size.'}{12 bp}';
           } else {
               $result='\framebox['.$size.'][s]{\tiny\strut}';
           }
       } elsif ($target eq 'tex' 
        && $Apache::lonhomework::type eq 'exam'
        && &needs_exam_box($tagstack)) {
    $result.=&exam_box($target);
       }
       return $result;
   }
   
   sub end_textline {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       if    ($target eq 'web') { $Apache::lonxml::evaluate++; }
       elsif ($target eq 'edit') { return ('','no'); }
       &end_input();
       return "";
   }
   
   sub start_hiddenline {
       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];
       my $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
       if (ref($oldresponse) eq 'ARRAY') {
    $oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
       }
       $oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');
   
       if ($Apache::lonhomework::type ne 'exam') {
    $result= '<input type="hidden" name="HWVAL_'.$id.'" value="'.
       $oldresponse.'" />';
       }
    }
       } elsif ($target eq 'edit') {
    $result=&Apache::edit::tag_start($target,$token);
    $result.=&Apache::edit::end_table;
       }
   
       if ( ($target eq 'web' || $target eq 'tex')
    && $Apache::lonhomework::type eq 'exam'
    && &needs_exam_box($tagstack)) {
    $result.=&exam_box($target);
       }
       return $result;
   }
   
   sub end_hiddenline {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       if    ($target eq 'web') { $Apache::lonxml::evaluate++; }
       elsif ($target eq 'edit') { return ('','no'); }
       &end_input();
       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
   
   =item file_selector()
   
   $part -> partid
   $id -> responseid
   $uploadefiletypes -> comma seperated list of extensions allowed or * for any
   $which -> 'uploadonly'  -> only newly uploaded files
             'portfolioonly' -> only allow files from portfolio
             'both' -> allow files from either location
   $extratext -> additional text to go between the link and the input box
   $maxfilesize -> maximum cumulative filesize for submitted files (in MB).
   returns a table row <tr> 
   
   =cut
   
   sub file_selector {
       my ($part,$id,$uploadedfiletypes,$which,$extratext,$maxfilesize)=@_;
       if (!$uploadedfiletypes) { return ''; }
   
       my $jspart=$part;
       $jspart=~s/\./_/g;
   
       my $result;
       my $current_files_display = &current_file_submissions($part,$id);
       my $addfiles;
       if ($current_files_display) {
           $result .= &Apache::lonhtmlcommon::row_title(&mt('Currently submitted files')).
                      $current_files_display.
                      &Apache::lonhtmlcommon::row_closure();
           $addfiles = &mt('Submit other file(s)');
       } else {
           $addfiles = &mt('Choose file(s) to submit');
       }
       $result .= &Apache::lonhtmlcommon::row_title($addfiles);
       my $constraints;
       if ($uploadedfiletypes ne '*') {
    $constraints =
       &mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';
       }
       if ($maxfilesize) {
           $constraints .= &mt('Combined size of all files not to exceed: [_1] MB[_2].',
                           '<b>'.$maxfilesize.'</b>').'<br />';
       }
       if ($constraints) {
           $result .= $constraints.'<br />';
       }
       if ($which eq 'uploadonly' || $which eq 'both') { 
    $result.=&mt('Submit a file: (only one file per submission)').
       ' <br /><input type="file" size="50" name="HWFILE'.
       $jspart.'_'.$id.'" id="HWFILE'.$jspart.'_'.$id.'" /><br />';
       }
       if ( $which eq 'both') {
    $result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
       }
       if ($which eq 'portfolioonly' || $which eq 'both') {
           my $symb = $env{'request.symb'};
           (undef,undef,my $res)=&Apache::lonnet::decode_symb($symb);
           my $showsymb;
           # If resource is a .task and URL is unencrypted, include symb in query string
           # for url opened in portfolio file selection window. Can be used to override
           # blocking of portfolio access resulting from an exam event in a different course. 
           if ($res =~ /\.task$/i) {
               my $encsymb = &Apache::lonenc::check_encrypt($symb);
               if ($symb eq $encsymb) {
                   $showsymb = $symb;
               }
           }
    $result.=$extratext.'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&amp;fieldname='.$env{'form.request.prefix'}.'HWPORT'.$jspart.'_'.$id.'&amp;symb='.$showsymb.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
       &mt('Select Portfolio Files: (one or more files per submission)').'</a><br />'.
       '<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.
       '<br />';
   
       }
       $result.=&Apache::lonhtmlcommon::row_closure(1);
       return $result;
   }
   
   sub current_file_submissions {
       my ($part,$id) = @_;
       my $jspart=$part;
       $jspart=~s/\./_/g;
       my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"};
       my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"};
       return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/));
       my $header = &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row();
     if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {      if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
       my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);          $header .= '<th>'.&mt('Delete?').'</th>';
       if ($size eq '') { $size=20; }      }
       my $partid=$Apache::inputtags::part;      $header .=   '<th>'.&mt('File').'</th>'.
       my $id=$Apache::inputtags::response[-1];                   '<th>'.&mt('Size (MB)').'</th>'.
       my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"});                   '<th>'.&mt('Last Modified').'</th>'.
       $result= '<input type="text" name="HWVAL'.$id.'" value="'.                   &Apache::loncommon::end_data_table_header_row();
  $oldresponse.'" size="'.$size.'" />';      my (undef,$crsid,$udom,$uname)=&Apache::lonnet::whichuser();
       my ($cdom,$cnum) = ($crsid =~ /^($LONCAPA::match_domain)_($LONCAPA::match_courseid)$/);
       my ($result,$header_shown,%okfiles,%rows,%legacy,@bad_file_list);
       if ($uploadedfile) {
           my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};
           my $link = &HTML::Entities::encode($url,'<>&"');
           my ($path,$name) = ($url =~ m{^(/uploaded/\Q$udom\E/\Q$uname\E/essayresponse.*/)([^/]+)$});
           my ($status,$hashref,$error) =
               &current_file_info($url,$link,$name,$path);
           if ($status eq 'ok') {
               push(@{$okfiles{$name}},$url);
               $rows{$url} = $hashref;
               $legacy{$url} = 1;
               &Apache::lonxml::extlink($url);
               &Apache::lonnet::allowuploaded('/adm/essayresponse',$url);
           } else {
               push(@bad_file_list,$error);
           }
       }
       if ($portfiles =~ /[^\s]/) {
           my $prefix = "/uploaded/$udom/$uname/portfolio";
           foreach my $file (split(/\s*,\s*/,&unescape($portfiles))) {
               my ($path,$name) = ($file =~ m{^(.*/)([^/]+)$});
               my $url = $prefix.$path.$name;
               my $uploadedfile = &HTML::Entities::encode($url,'<>&"');
               my ($status,$hashref,$error) =
                   &current_file_info($url,$uploadedfile,$name,$path);
               if ($status eq 'ok') {
                   push(@{$okfiles{$name}},$url);
                   $rows{$url} = $hashref;
               } else {
                   push(@bad_file_list,$error);
               }
           }
       }
       my $num = 0;
       foreach my $name (sort(keys(%okfiles))) {
           if (ref($okfiles{$name}) eq 'ARRAY') {
               foreach my $url (@{$okfiles{$name}}) {
                   if (ref($rows{$url}) eq 'HASH') {
                       my $link = $rows{$url}{link};
                       my $portfile = $rows{$url}{path}.$rows{$url}{name};
                       $portfile = &HTML::Entities::encode($portfile,'<>&"');
                       if ($link) {
                           my $icon=&Apache::loncommon::icon($url);
                           unless ($header_shown) {
                               $result .= $header;
                               $header_shown = 1;
                           }
                           $result.=
                               &Apache::loncommon::start_data_table_row()."\n";
                           if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
                               $result .=
                                    '<td valign="bottom"><input type="checkbox" name="HWFILE'.$jspart.'_'.$id.'_delete"'.
                                    ' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";
                               $num ++;
                           }
                           my $showname = $rows{$url}{path}.$name;
                           if ($legacy{$url}) {
                               $showname = $name.' '.&mt('not in portfolio');
                           }
                           $result .= 
                               '<td><a href="'.$link.'"><img src="'.$icon.
                               '" border="0" alt="" />'.$showname.'</a></td>'."\n".
                               '<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".
                               '<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".
                               &Apache::loncommon::end_data_table_row();
                       }
                   }
               }
           }
       }
       if ($header_shown) {
           $result .= &Apache::loncommon::end_data_table();
           if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
               $result .= '<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) {
           my $bad_files = '<span class="LC_filename">'.
               join('</span>, <span class="LC_filename">',@bad_file_list).
               '</span>';
           $result.='<p class="LC_error">'.
                    &mt("These file(s) don't exist: [_1]",$bad_files).
                    '</p>';
       }
       return $result;
   }
   
   sub current_file_info {
       my ($url,$uploadedfile,$name,$path) = @_;
       my ($status,$error,%info);
       my @stat = &Apache::lonnet::stat_file($url);
       if ((@stat) && ($stat[0] ne 'no_such_dir')) {
           my ($lastmod,$size);
           if ($stat[9] =~ /^\d+$/) {
               $lastmod = &Apache::lonlocal::locallocaltime($stat[9]);
           }
           $size = $stat[7]/(1024*1024);
           $size = sprintf("%.3f",$size);
           %info = (
                       link         => $uploadedfile,
                       name         => $name,
                       path         => $path,
                       size         => $size,
                       lastmodified => $lastmod,
                   );
           $status = 'ok';
     } else {      } else {
       #right or wrong don't show what was last typed in.          &Apache::lonnet::logthis("bad file is $url");
       #$result='<i>'.$oldresponse.'</i>';          my $icon=&Apache::loncommon::icon($url);
       $result='';          $error = '<a href="'.$url.'"><img src="'.$icon.
     }                   '" border="0" />'.$uploadedfile.'</a>';
   } elsif ($target eq 'edit') {      }
     $result=&Apache::edit::tag_start($target,$token);      return ($status,\%info,$error);
     $result.=&Apache::edit::text_arg('Size:','size',$token,'5')."</td></tr>";  
     $result.=&Apache::edit::end_table;  
   } elsif ($target eq 'modified') {  
     my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'size');  
     if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }  
   }  
   return $result;  
 }  }
   
 sub end_textline {  sub valid_award {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($award) =@_;
   if    ($target eq 'web') { $Apache::lonxml::evaluate++; }      foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR',
   elsif ($target eq 'edit') { return ('','no'); }         'NO_RESPONSE',
   return "";         'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR',
          'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE',
          'UNIT_FAIL', 'NO_UNIT',
          'UNIT_NOTNEEDED', 'WANTED_NUMERIC',
          'BAD_FORMULA', 'NOT_FUNCTION', 'WRONG_FORMAT', 
                                  'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT', 
          'MISORDERED_RANK', 'INVALID_FILETYPE',
                                  'EXCESS_FILESIZE', 'FILENAME_INUSE', 
          'DRAFT', 'SUBMITTED', 'SUBMITTED_CREDIT', 
                                  'ANONYMOUS', 'ANONYMOUS_CREDIT',
                                  'ASSIGNED_SCORE', 'APPROX_ANS',
          'EXACT_ANS','COMMA_FAIL') {
    if ($award eq $possibleaward) { return 1; }
       }
       return 0;
   }
   
   {
       my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',
     'TOO_LONG',
     'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT',
     'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',
     'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',  'NOT_FUNCTION', 
                     'WRONG_FORMAT', 'INTERNAL_ERROR',
     'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',
     'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'FILENAME_INUSE', 
                     'DRAFT', 'SUBMITTED',
                     'SUBMITTED_CREDIT', 'ANONYMOUS', 'ANONYMOUS_CREDIT',
                     'ASSIGNED_SCORE', 'APPROX_ANS', 'EXACT_ANS');
       my $i=0;
       my %fwd_awards = map { ($_,$i++) } @awards;
       my $max=scalar(@awards);
       @awards=reverse(@awards);
       $i=0;
       my %rev_awards = map { ($_,$i++) } @awards;
   
   sub awarddetail_to_awarded {
       my ($awarddetail) = @_;
       if ($awarddetail eq 'EXACT_ANS'
    || $awarddetail eq 'APPROX_ANS') {
    return 1;
       }
       return 0;
   }
   
   sub hide_award {
       my ($award) = @_;
       if (&Apache::lonhomework::show_no_problem_status()) {
    return 1;
       }
       if ($award =~
    /^(?:EXACT_ANS|APPROX_ANS|SUBMITTED|SUBMITTED_CREDIT|ANONYMOUS|ANONYMOUS_CREDIT|ASSIGNED_SCORE|INCORRECT)/) {
    return 1;
       }
       return 0;
 }  }
   
 sub finalizeawards {  sub finalizeawards {
   my $result='';      my ($awardref,$msgref,$nameref,$reverse,$final_scantron)=@_;
   my $award;      my $result;
   if ($#_ == '-1') { $result = "NO_RESPONSE"; }      if ($#$awardref == -1) { $result = "NO_RESPONSE"; }
   if ($result eq '' ) {      if ($result eq '' ) {
     my $blankcount;   my $blankcount;
     foreach $award (@_) {   foreach my $award (@$awardref) {
       if ($award eq '') {      if ($award eq '') {
  $result='MISSING_ANSWER';   $result='MISSING_ANSWER';
  $blankcount++;   $blankcount++;
       }      }
     }   }
     if ($blankcount == ($#_ + 1)) { $result = 'NO_RESPONSE'; }   if ($blankcount == ($#$awardref + 1)) {
   }      return ('NO_RESPONSE');
   if ($result eq '' ) {   }
     foreach $award (@_) { if ($award eq 'MISSING_ANSWER') {$result='MISSING_ANSWER'; last;}}      }
   }  
   if ($result eq '' ) {      if ($Apache::lonxml::internal_error) { $result='INTERNAL_ERROR'; }
     foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}}  
   }      if (!$final_scantron && defined($result)) { return ($result); }
   if ($result eq '' ) {  
     foreach $award (@_) { if ($award eq 'NO_RESPONSE') {$result='NO_RESPONSE'; last;} }      # if in scantron mode, if the award for any response is 
   }      # assigned score, then the part gets an assigned score
       if ($final_scantron 
   if ($result eq '' ) {   && grep {$_ eq 'ASSIGNED_SCORE'} (@$awardref)) {
     foreach $award (@_) {    return ('ASSIGNED_SCORE');
       if ($award eq 'UNIT_FAIL' ||      }
   $award eq 'NO_UNIT' ||  
   $award eq 'UNIT_NOTNEEDED') {      # if in scantron mode, if the award for any response is 
  $result=$award; last;      # correct and there are non-correct responses,
       }      # then the part gets an assigned score
     }      if ($final_scantron 
   }   && (grep { $_ eq 'EXACT_ANS' ||
   if ($result eq '' ) {     $_ eq 'APPROX_ANS'  } (@$awardref))
     foreach $award (@_) {    && (grep { $_ ne 'EXACT_ANS' &&
       if ($award eq 'WANTED_NUMERIC' ||      $_ ne 'APPROX_ANS'  } (@$awardref))) {
   $award eq 'BAD_FORMULA') {$result=$award; last;}   return ('ASSIGNED_SCORE');
     }      }
   }      # these awards are ordered from most important error through best correct
   if ($result eq '' ) {      my $awards = (!$reverse) ? \%fwd_awards : \%rev_awards ;
     foreach $award (@_) { if ($award eq 'SIG_FAIL') {$result=$award; last;} }  
   }      my $best = $max;
   if ($result eq '' ) {      my $j=0;
     foreach $award (@_) { if ($award eq 'INCORRECT') {$result=$award; last;} }      my $which;
   }      foreach my $award (@$awardref) {
   if ($result eq '' ) {   if ($awards->{$award} < $best) {
     foreach $award (@_) { if ($award eq 'DRAFT') {$result=$award; last;} }      $best  = $awards->{$award};
   }      $which = $j;
   if ($result eq '' ) {   }
     foreach $award (@_) { if ($award eq 'SUBMITTED') {$result=$award; last;} }   $j++;
   }      }
   if ($result eq '' ) {  
     foreach $award (@_) { if ($award eq 'APPROX_ANS') {$result=$award; last;} }      if (defined($which)) {
   }   if (ref($nameref)) {
   if ($result eq '' ) { $result='EXACT_ANS'; }      return ($$awardref[$which],$$msgref[$which],$$nameref[$which]);
   return $result   } else {
       return ($$awardref[$which],$$msgref[$which]);
    }
       }
       return ('ERROR',undef);
   }
 }  }
   
 sub decideoutput {  sub decideoutput {
   my ($award,$solved,$previous)=@_;      my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect)=@_;
   my $message='';  
   my $button=0;      my $message='';
   my $previousmsg;      my $button=0;
       my $previousmsg;
   if ($previous) { $previousmsg='You have entered that answer before'; }      my $css_class='orange';
       my $added_computer_text=0;
   if      ($solved =~ /^correct/) {      my %possible_class =
     $message = "<b>You are correct.</b> Your receipt is ".   ( 'correct'         => 'LC_answer_correct',
       &Apache::lonnet::receipt;    'charged_try'     => 'LC_answer_charged_try',
     $button=0;    'not_charged_try' => 'LC_answer_not_charged_try',
     $previousmsg='';    'no_grade'        => 'LC_answer_no_grade',
   } elsif ($solved =~ /^excused/) {    'no_message'      => 'LC_no_message',
     $message = "<b>You are excused from the problem.</b>";    );
     $button=0;  
     $previousmsg='';      my $part = $Apache::inputtags::part;
   } elsif ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) {      my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade");
     if ($solved =~ /^incorrect/ || $solved eq '') {      my $handgrade = ('yes' eq lc($tohandgrade)); 
       $message = "Incorrect";  #
       $button=1;  # 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.");
       &Apache::lonxml::debug("handgrade has :$handgrade:");
   
       if ($previous) { $previousmsg=&mt('You have entered that answer before'); }
       
       if ($solved =~ /^correct/) {
           $css_class=$possible_class{'correct'};
    $message=&mt('You are correct.');
    if ($awarded < 1 && $awarded > 0) {
       $message=&mt('You are partially correct.');
       $css_class=$possible_class{'not_charged_try'};
    } elsif ($awarded < 1) {
       $message=&mt('Incorrect.');
       $css_class=$possible_class{'charged_try'};
    }
    if ($handgrade || 
               ($env{'request.filename'}=~/\/res\/lib\/templates\/(examupload|DropBox).problem$/)) {
       $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.= $computer;
       }
       $added_computer_text=1;
       if ($awarded > 0) {
    my ($symb) = &Apache::lonnet::whichuser();
    if (($symb ne '') 
       &&
       ($env{'course.'.$env{'request.course.id'}.
         '.disable_receipt_display'} ne 'yes') &&
                       ($Apache::lonhomework::type ne 'practice')) { 
       $message.=(($target eq 'web')?'<br />':' ').
    &mt('Your receipt no. is [_1]',
       (&Apache::lonnet::receipt($Apache::inputtags::part).
        (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'')));
    }
       }
    }
           if ($awarded >= 1) {
               $button=0;
           } elsif (&Apache::lonnet::EXT("resource.$part.retrypartial") !~/^1|on|yes$/i) {
               $button=0;
           } else {
               $button=1;
           }
    $previousmsg='';
       } elsif ($solved =~ /^excused/) {
    if ($target eq 'tex') {
       $message = ' \textbf{'.&mt('You are excused from the problem.').'} ';
    } else {
       $message = "<b>".&mt('You are excused from the problem.')."</b>";
    }
    $css_class=$possible_class{'charged_try'};
    $button=0;
    $previousmsg='';
       } elsif ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) {
    if ($solved =~ /^incorrect/ || $solved eq '') {
       $message = &mt("Incorrect").".";
       $css_class=$possible_class{'charged_try'};
       $button=1;
    } else {
       if ($target eq 'tex') {
    $message = '\textbf{'.&mt('You are correct.').'}';
       } else {
    $message = "<b>".&mt('You are correct.')."</b>";
    $message.= $computer;
       }
       $added_computer_text=1;
       if  ($awarded > 0 
    && $env{'course.'.
        $env{'request.course.id'}.
        '.disable_receipt_display'} ne 'yes') { 
    $message.=(($target eq 'web')?'<br />':' ').
       &mt('Your receipt is [_1]',
    (&Apache::lonnet::receipt($Apache::inputtags::part).
    (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'')));
       }
       $css_class=$possible_class{'correct'};
       $button=0;
       $previousmsg='';
    }
       } elsif ($award eq 'NO_RESPONSE') {
    $message = '';
    $css_class=$possible_class{'no_feedback'};
    $button=1;
       } elsif ($award eq 'EXTRA_ANSWER') {
    $message = &mt('Some extra items were submitted.');
    $css_class=$possible_class{'not_charged_try'};
    $button = 1;
       } elsif ($award eq 'MISSING_ANSWER') {
    $message = &mt('Some items were not submitted.');
           if ($target ne 'tex') {
              $message .= &Apache::loncommon::help_open_topic('Some_Items_Were_Not_Submitted');
           }
    $css_class=$possible_class{'not_charged_try'};
    $button = 1;
       } elsif ($award eq 'ERROR') {
    $message = &mt('An error occurred while grading your answer.');
    $css_class=$possible_class{'not_charged_try'};
    $button = 1;
       } elsif ($award eq 'TOO_LONG') {
    $message = &mt("The submitted answer was too long.");
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'WANTED_NUMERIC') {
    $message = &mt("This question expects a numeric answer.");
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'MISORDERED_RANK') {
           $message = &mt('You have provided an invalid ranking.');
           if ($target ne 'tex') {
               $message.=' '.&mt('Please refer to [_1]',&Apache::loncommon::help_open_topic('Ranking_Problems',&mt('help on ranking problems')));
           }
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'EXCESS_FILESIZE') {
           $message = &mt('Submission won\'t be graded. The combined size of submitted files exceeded the amount allowed.');
           $css_class=$possible_class{'not_charged_try'};
           $button=1;
       } elsif ($award eq 'FILENAME_INUSE') {
           $message = &mt('You have already uploaded a file with that filename.');
           if ($target eq 'tex') {
               $message.= "\\\\\n";
           } else {
               $message .= '<br />';
           }
           $message .= &mt('Please use a different file name.');
           $css_class=$possible_class{'not_charged_try'};
           $button=1;
       } elsif ($award eq 'INVALID_FILETYPE') {
    $message = &mt("Submission won't be graded. The type of file submitted is not allowed.");
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'SIG_FAIL') {
    my ($used,$min,$max)=split(':',$awardmsg);
    my $word = ($used < $min) ? 'more' : 'fewer';
    $message = &mt("Submission not graded. Use $word digits.",$used);
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'UNIT_INVALID_INSTRUCTOR') {
    $message = &mt('Error in instructor specifed unit. This error has been reported to the instructor.', $awardmsg);
    if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');} 
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'UNIT_INVALID_STUDENT') {
    $message = &mt('Unable to interpret units. Computer reads units as "[_1]".',&markup_unit($awardmsg,$target));
    if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');} 
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'UNIT_FAIL' || $award eq 'UNIT_IRRECONCIBLE') {
    $message = &mt('Incompatible units. No conversion found between "[_1]" and the required units.',&markup_unit($awardmsg,$target));
    if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');} 
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'UNIT_NOTNEEDED') {
    $message = &mt('Only a number required. Computer reads units of "[_1]".',&markup_unit($awardmsg,$target));
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'NO_UNIT') {
    $message = &mt("Units required").'.';
    if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'COMMA_FAIL') {
    $message = &mt("Proper comma separation is required").'.';
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'BAD_FORMULA') {
    $message = &mt("Unable to understand formula").'.';
           if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Formula_Answers')};
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'NOT_FUNCTION') {
           $message = &mt("Not a function").'.';
           $css_class=$possible_class{'not_charged_try'};
           $button=1;
       } elsif ($award eq 'WRONG_FORMAT') {
           $message = &mt("Wrong format").'.';
           $css_class=$possible_class{'not_charged_try'};
           $button=1;
        } elsif ($award eq 'INTERNAL_ERROR') {
           $message = &mt("An internal error occurred while processing your answer. Please try again later.");
           $css_class=$possible_class{'not_charged_try'};
           $button=1;
       } elsif ($award eq 'INCORRECT') {
    $message = &mt("Incorrect").'.';
    $css_class=$possible_class{'charged_try'};
    $button=1;
       } elsif ($award eq 'SUBMITTED') {
    $message = &mt("Your submission has been recorded.");
    $css_class=$possible_class{'no_grade'};
    $button=1;
       } elsif ($award eq 'SUBMITTED_CREDIT') {
           $message = &mt("Your submission has been recorded, and credit awarded.");
           $css_class=$possible_class{'correct'};
           $button=1;
       } elsif ($award eq 'ANONYMOUS') {
           $message = &mt("Your anonymous submission has been recorded.");
           $css_class=$possible_class{'no_grade'};
           $button=1;
       } elsif ($award eq 'ANONYMOUS_CREDIT') {
           $message = &mt("Your anonymous submission has been recorded, and credit awarded.");
           $css_class=$possible_class{'correct'};
           $button=1;
       } elsif ($award eq 'DRAFT') {
    $message = &mt("Copy saved but not submitted.");
    $css_class=$possible_class{'not_charged_try'};
    $button=1;
       } elsif ($award eq 'ASSIGNED_SCORE') {
    $message = &mt("A score has been assigned.");
    $css_class=$possible_class{'correct'};
    $button=0;
       } elsif ($award eq '') {
    if ($handgrade && $Apache::inputtags::status[-1] eq 'SHOW_ANSWER') {
       $message = &mt("Nothing submitted.");
       $css_class=$possible_class{'charged_try'};
    } else {
       $css_class=$possible_class{'not_charged_try'};
    }
    $button=1;
     } else {      } else {
       $message = "<b>You are correct.</b> Your receipt is ".   $message = &mt("Unknown message").": $award";
  &Apache::lonnet::receipt;   $button=1;
       $button=0;      }
       $previousmsg='';      my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
     }      foreach my $resid(@Apache::inputtags::response){
   } elsif ($award eq 'NO_RESPONSE') {          if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {
     $message = '';              if ($target eq 'tex') {
     $button=1;                  $message.= "\\\\\n";
   } elsif ($award eq 'MISSING_ANSWER') {              } else {
     $message = 'Some parts were not submitted';                  $message.='<br />';
     $button = 1;              }
   } elsif ($award eq 'WANTED_NUMERIC') {      my @files = split(/\s*,\s*/,
     $message = "This question expects a numeric answer";        $Apache::lonhomework::history{"resource.$part.$resid.handback"});
     $button=1;      my $file_msg;
   } elsif ($award eq 'SIG_FAIL') {      foreach my $file (@files) {
     $message = "Please adjust significant figures.";# you provided %s significant figures";                  if ($target eq 'tex') {
     $button=1;                      $file_msg.= "\\\\\n".$file;
   } elsif ($award eq 'UNIT_FAIL') {                  } else {
     $message = "Units incorrect."; #Computer reads units as %s";                      $file_msg.= '<br /><a href="/uploaded/'."$domain/$user".'/'.$file.'">'.$file.'</a>';
     $button=1;                  }
   } elsif ($award eq 'UNIT_NOTNEEDED') {      }
     $message = "Only a number required.";# Computer reads units of %s";      $message .= &mt('Returned file(s): [_1]',$file_msg);
     $button=1;              if ($target eq 'tex') {
   } elsif ($award eq 'NO_UNIT') {                  $message.= "\\\\\n";
     $message = "Units required";              } else {
     $button=1;                  $message.='<br />';
   } elsif ($award eq 'BAD_FORMULA') {              }
     $message = "Unable to understand formula";   }
     $button=1;      }
   } elsif ($award eq 'INCORRECT') {  
     $message = "Incorrect";      if (&Apache::lonhomework::hide_problem_status()
     $button=1;   && $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'
   } elsif ($award eq 'SUBMITTED') {   && &hide_award($award)) {
     $message = "Your submission has been recorded.";          $message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
     $button=1;          my @interval= &Apache::lonnet::EXT("resource.$part.interval");
   } elsif ($award eq 'DRAFT') {          if ($interval[0] =~ /\d+/) {
     $message = "A draft copy has been saved.";              my $first_access=&Apache::lonnet::get_first_access($interval[1]);
     $button=1;              if (defined($first_access)) {
   } else {                  my $due_date= &Apache::lonnet::EXT("resource.$part.duedate");
     $message = "Unknown message: $award";                  unless (($due_date) && ($due_date < $first_access + $interval[0])) { 
     $button=1;                      $message = &mt("Answer Submitted: Your final submission will be graded when the time limit is reached.");
   }                  }
   return ($button,$message,$previousmsg);              }
           }
    $css_class=$possible_class{'no_grade'};
    $button=1;
       }
       if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' && 
    !$added_computer_text && $target ne 'tex') {
    $message.= $computer;
    $added_computer_text=1;
       }
       if ($Apache::lonhomework::type eq 'practice') {
          if ($target eq 'web') {
              $message .= '<br />';
          } else {
              $message .= ' ';      
          }
          $message.=&mt('Submissions to practice problems are not permanently recorded.');
       }
       return ($button,$css_class,$message,$previousmsg);
 }  }
   
 sub setgradedata {  sub markup_unit {
   my ($award,$id,$previously_used) = @_;      my ($unit,$target)=@_;
   # if the student already has it correct, don't modify the status      if ($target eq 'tex') {
   if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER') {   return '\texttt{'.&Apache::lonxml::latex_special_symbols($unit).'}'; 
     $Apache::lonhomework::results{"resource.$id.afterduedate"}=$award;  
     return '';  
   } elsif ( $Apache::lonhomework::history{"resource.$id.solved"} !~  
        /^correct/ ) {  
     #handle assignment of tries and solved status  
     if ($Apache::lonhomework::history{"resource.$id.afterduedate"}) {  
       $Apache::lonhomework::results{"resource.$id.afterduedate"}='';  
     }  
     if ( $award eq 'APPROX_ANS' || $award eq 'EXACT_ANS' ) {  
       $Apache::lonhomework::results{"resource.$id.tries"} =  
  $Apache::lonhomework::history{"resource.$id.tries"} + 1;  
       $Apache::lonhomework::results{"resource.$id.solved"} =  
  'correct_by_student';  
       $Apache::lonhomework::results{"resource.$id.awarded"} = '1';  
     } elsif ( $award eq 'INCORRECT' ) {  
       $Apache::lonhomework::results{"resource.$id.tries"} =  
  $Apache::lonhomework::history{"resource.$id.tries"} + 1;  
       $Apache::lonhomework::results{"resource.$id.solved"} =  
  'incorrect_attempted'  
     } elsif ( $award eq 'SUBMITTED' ) {  
       $Apache::lonhomework::results{"resource.$id.tries"} =  
  $Apache::lonhomework::history{"resource.$id.tries"} + 1;  
       $Apache::lonhomework::results{"resource.$id.solved"} =  
  'ungraded_attempted';  
     } elsif ( $award eq 'DRAFT' ) {  
       $Apache::lonhomework::results{"resource.$id.solved"} = '';  
     } elsif ( $award eq 'NO_RESPONSE' ) {  
       return '';  
     } else {      } else {
       $Apache::lonhomework::results{"resource.$id.solved"} =   return "<tt>".$unit."</tt>";
  'incorrect_attempted';  
     }      }
   }
   
     # check if this was a previous submission if it was delete the  sub removealldata {
     # unneeded data and update the previously_used attribute      my ($id)=@_;
     if ( $previously_used eq 'PREVIOUSLY_USED') {      foreach my $key (keys(%Apache::lonhomework::results)) {
       delete($Apache::lonhomework::results{"resource.$id.tries"});   if (($key =~ /^resource\.\Q$id\E\./) && ($key !~ /\.collaborators$/)) {
       $Apache::lonhomework::results{"resource.$id.previous"} = '1';      &Apache::lonxml::debug("Removing $key");
     } elsif ( $previously_used eq 'PREVIOUSLY_LAST') {      delete($Apache::lonhomework::results{$key});
       #delete all data as they student didn't do anything, but save   }
       #the list of collaborators.      }
       foreach my $key (keys(%Apache::lonhomework::results)) {  }
  if (($key =~ /^resource\.$id\./) && ($key !~ /\.collaborators$/)) {  
   &Apache::lonxml::debug("Removing $key");  sub hidealldata {
   delete($Apache::lonhomework::results{$key});      my ($id)=@_;
  }      foreach my $key (keys(%Apache::lonhomework::results)) {
       }   if (($key =~ /^resource\.\Q$id\E\./) && ($key !~ /\.collaborators$/)) {
       #and since they didn't do anything we were never here      &Apache::lonxml::debug("Hidding $key");
       return '';      my $newkey=$key;
     } else {      $newkey=~s/^(resource\.\Q$id\E\.[^\.]+\.)(.*)$/${1}hidden${2}/;
       $Apache::lonhomework::results{"resource.$id.previous"} = '0';      $Apache::lonhomework::results{$newkey}=
    $Apache::lonhomework::results{$key};
       delete($Apache::lonhomework::results{$key});
    }
     }      }
   }  }
   $Apache::lonhomework::results{"resource.$id.award"} = $award;  
   sub setgradedata {
       my ($award,$msg,$id,$previously_used) = @_;
       if ($Apache::lonhomework::scantronmode && 
    &Apache::lonnet::validCODE($env{'form.CODE'})) {
    $Apache::lonhomework::results{"resource.CODE"}=$env{'form.CODE'};
       } elsif ($Apache::lonhomework::scantronmode && 
        $env{'form.CODE'} eq '' &&
        $Apache::lonhomework::history{"resource.CODE"} ne '') {
    $Apache::lonhomework::results{"resource.CODE"}='';
       }
   
       if (!$Apache::lonhomework::scantronmode &&
    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
    $Apache::lonhomework::results{"resource.$id.afterduedate"}=$award;
    return '';
       } elsif ( $Apache::lonhomework::history{"resource.$id.awarded"} < 1
         || $Apache::lonhomework::scantronmode 
         || &Apache::lonhomework::hide_problem_status()  ) {
           # the student doesn't already have it correct,
    # or we are in a mode (scantron orno problem status) where a correct 
           # can become incorrect
    # handle assignment of tries and solved status
    my $solvemsg;
    if ($Apache::lonhomework::scantronmode) {
       $solvemsg='correct_by_scantron';
    } else {
       $solvemsg='correct_by_student';
    }
    if ($Apache::lonhomework::history{"resource.$id.afterduedate"}) {
       $Apache::lonhomework::results{"resource.$id.afterduedate"}='';
    }
    if ( $award eq 'ASSIGNED_SCORE') {
       $Apache::lonhomework::results{"resource.$id.tries"} =
    $Apache::lonhomework::history{"resource.$id.tries"} + 1;
       $Apache::lonhomework::results{"resource.$id.solved"} =
    $solvemsg;
       my $numawards=scalar(@Apache::inputtags::response);
       $Apache::lonhomework::results{"resource.$id.awarded"} = 0;
       foreach my $res (@Apache::inputtags::response) {
    if (defined($Apache::lonhomework::results{"resource.$id.$res.awarded"})) {
       $Apache::lonhomework::results{"resource.$id.awarded"}+=
    $Apache::lonhomework::results{"resource.$id.$res.awarded"};
    } else {
       $Apache::lonhomework::results{"resource.$id.awarded"}+=
    &awarddetail_to_awarded($Apache::lonhomework::results{"resource.$id.$res.awarddetail"});
    }
       }
       if ($numawards > 0) {
    $Apache::lonhomework::results{"resource.$id.awarded"}/=
       $numawards;
       }
    } elsif ( $award eq 'APPROX_ANS' || $award eq 'EXACT_ANS' ) {
       $Apache::lonhomework::results{"resource.$id.tries"} =
    $Apache::lonhomework::history{"resource.$id.tries"} + 1;
       $Apache::lonhomework::results{"resource.$id.solved"} =
    $solvemsg;
       $Apache::lonhomework::results{"resource.$id.awarded"} = '1';
           } elsif ( $award eq 'SUBMITTED_CREDIT' ) {
               $Apache::lonhomework::results{"resource.$id.tries"} =
                   $Apache::lonhomework::history{"resource.$id.tries"} + 1;
               $Apache::lonhomework::results{"resource.$id.solved"} =
                   'credit_attempted';
               $Apache::lonhomework::results{"resource.$id.awarded"} = '1';
           }  elsif ( $award eq 'ANONYMOUS_CREDIT' ) {
               $Apache::lonhomework::results{"resource.$id.tries"} =
                   $Apache::lonhomework::history{"resource.$id.tries"} + 1;
               $Apache::lonhomework::results{"resource.$id.solved"} =
                   'credit_attempted';
               $Apache::lonhomework::results{"resource.$id.awarded"} = '1';
    } elsif ( $award eq 'INCORRECT' ) {
       $Apache::lonhomework::results{"resource.$id.tries"} =
    $Apache::lonhomework::history{"resource.$id.tries"} + 1;
       if (&Apache::lonhomework::hide_problem_status()
    || $Apache::lonhomework::scantronmode) {
    $Apache::lonhomework::results{"resource.$id.awarded"} = 0;
       }
       $Apache::lonhomework::results{"resource.$id.solved"} =
    'incorrect_attempted';
    } elsif ( $award eq 'SUBMITTED' ) {
       $Apache::lonhomework::results{"resource.$id.tries"} =
    $Apache::lonhomework::history{"resource.$id.tries"} + 1;
       $Apache::lonhomework::results{"resource.$id.solved"} =
    'ungraded_attempted';
           }  elsif ( $award eq 'ANONYMOUS' ) {
               $Apache::lonhomework::results{"resource.$id.tries"} =
                   $Apache::lonhomework::history{"resource.$id.tries"} + 1;
               $Apache::lonhomework::results{"resource.$id.solved"} =
                   'ungraded_attempted';
    } elsif ( $award eq 'DRAFT' ) {
       $Apache::lonhomework::results{"resource.$id.solved"} = '';
    } elsif ( $award eq 'NO_RESPONSE' ) {
       #no real response so delete any data that got stored
       &removealldata($id);
       return '';
    } else {
       $Apache::lonhomework::results{"resource.$id.solved"} =
    'incorrect_attempted';
       if (&Apache::lonhomework::show_no_problem_status()
    || $Apache::lonhomework::scantronmode) {
    $Apache::lonhomework::results{"resource.$id.tries"} =
       $Apache::lonhomework::history{"resource.$id.tries"} + 1;
    $Apache::lonhomework::results{"resource.$id.awarded"} = 0;
       }
   
       if (&Apache::lonhomework::show_some_problem_status()) {
    # clear out the awarded if they had gotten it wrong/right
    # and are now in an error mode
    $Apache::lonhomework::results{"resource.$id.awarded"} = '';
       }
    }
    if (defined($msg)) {
       $Apache::lonhomework::results{"resource.$id.awardmsg"} = $msg;
    }
    # did either of the overall awards chage? If so ignore the 
    # previous check
    if (($Apache::lonhomework::results{"resource.$id.awarded"} eq
        $Apache::lonhomework::history{"resource.$id.awarded"}) &&
       ($Apache::lonhomework::results{"resource.$id.solved"} eq
        $Apache::lonhomework::history{"resource.$id.solved"})) {
       # check if this was a previous submission if it was delete the
       # unneeded data and update the previously_used attribute
       if ( $previously_used eq 'PREVIOUSLY_USED') {
    if (&Apache::lonhomework::show_problem_status()) {
       delete($Apache::lonhomework::results{"resource.$id.tries"});
       $Apache::lonhomework::results{"resource.$id.previous"} = '1';
    }
       } elsif ( $previously_used eq 'PREVIOUSLY_LAST') {
    #delete all data as they student didn't do anything, but save
    #the list of collaborators.
    &removealldata($id);
    #and since they didn't do anything we were never here
    return '';
       } else {
    $Apache::lonhomework::results{"resource.$id.previous"} = '0';
       }
    }
       } elsif ( $Apache::lonhomework::history{"resource.$id.awarded"} == 1 ) {
    #delete all data as they student already has it correct
    &removealldata($id);
    #and since they didn't do anything we were never here
    return '';
       }
       $Apache::lonhomework::results{"resource.$id.award"} = $award;
       if ($award eq 'SUBMITTED') {
    &Apache::response::add_to_gradingqueue();
       }
       $Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;
       $Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate");
       $Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries");
       $Apache::lonhomework::results{"resourse.$id.version"} = &Apache::lonnet::usedversion(); 
   }
   
   sub find_which_previous {
       my ($version) = @_;
       my $part = $Apache::inputtags::part;
       my (@previous_version);
       foreach my $resp (@Apache::inputtags::response) {
    my $key = "$version:resource.$part.$resp.submission";
    my $submission = $Apache::lonhomework::history{$key};
    my %previous = &Apache::response::check_for_previous($submission,
        $part,$resp,
        $version);
    push(@previous_version,$previous{'version'});
       }
       return &previous_match(\@previous_version,
      scalar(@Apache::inputtags::response));
   }
   
   sub previous_match {
       my ($previous_array,$count) = @_;
       my $match = 0;
       my @matches;
       foreach my $versionar (@$previous_array) {
    foreach my $version (@$versionar) {
       $matches[$version]++;
    }
       }
       my $which=0;
       foreach my $elem (@matches) {
    if ($elem eq $count) {
       $match=1;
       last;
    }
    $which++;
       }
       return ($match,$which);
 }  }
   
 sub grade {  sub grade {
   my ($target) = @_;      my ($target) = @_;
   my $id = $Apache::inputtags::part;      my $id = $Apache::inputtags::part;
   my $response='';      my $response='';
   if ( defined $ENV{'form.submitted'}) {      if ( defined $env{'form.submitted'}) {
     my @awards = ();   my (@awards,@msgs);
     foreach $response (@Apache::inputtags::responselist) {   foreach $response (@Apache::inputtags::response) {
       &Apache::lonxml::debug("looking for response.$id.$response.awarddetail");      &Apache::lonxml::debug("looking for response.$id.$response.awarddetail");
       my $value=$Apache::lonhomework::results{"resource.$id.$response.awarddetail"};      my $value=$Apache::lonhomework::results{"resource.$id.$response.awarddetail"};
       &Apache::lonxml::debug("keeping $value from $response for $id");      &Apache::lonxml::debug("keeping $value from $response for $id");
       push (@awards,$value);      push (@awards,$value);
     }      $value=$Apache::lonhomework::results{"resource.$id.$response.awardmsg"};
     my $finalaward = &finalizeawards(@awards);      &Apache::lonxml::debug("got message $value from $response for $id");
     my $previously_used;      push (@msgs,$value);
     if ( $#Apache::inputtags::previous eq $#awards ) {   }
       $previously_used = 'PREVIOUSLY_LAST';   my ($finalaward,$msg) = 
       foreach my $value (@Apache::inputtags::previous) {      &finalizeawards(\@awards,\@msgs,undef,undef,
  if ($value eq 'PREVIOUSLY_USED' ) {      $Apache::lonhomework::scantronmode);
   $previously_used = $value;   my $previously_used;
   last;   if ( $#Apache::inputtags::previous eq $#awards ) {
  }      my ($match) =
       }   &previous_match(\@Apache::inputtags::previous_version,
     }   scalar(@Apache::inputtags::response));
     &Apache::lonxml::debug("final award $finalaward, $previously_used");  
     &setgradedata($finalaward,$id,$previously_used);      if ($match) {
   }   $previously_used = 'PREVIOUSLY_LAST';
   return '';   foreach my $value (@Apache::inputtags::previous) {
       if ($value eq 'PREVIOUSLY_USED' ) {
    $previously_used = $value;
    last;
       }
    }
       }
    }
    &Apache::lonxml::debug("final award $finalaward, $previously_used, message $msg");
    &setgradedata($finalaward,$msg,$id,$previously_used);
       }
       return '';
 }  }
   
 sub gradestatus {  sub get_grade_messages {
   my ($id,$target) = @_;      my ($id,$prefix,$target,$status,$nocorrect) = @_;
   my $showbutton = 1;  # nocorrect suppresses "Computer's answer now shown above"
   my $message = '';      my ($message,$latemessage,$trystr,$previousmsg);
   my $latemessage = '';      my $showbutton = 1;
   my $trystr='';  
   my $button='';      my $award = $Apache::lonhomework::history{"$prefix.award"};
   my $previousmsg='';      my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};
       my $solved = $Apache::lonhomework::history{"$prefix.solved"};
   my $status = $Apache::inputtags::status['-1'];      my $previous = $Apache::lonhomework::history{"$prefix.previous"};
   &Apache::lonxml::debug("gradestatus has :$status:");      my $awardmsg = $Apache::lonhomework::history{"$prefix.awardmsg"};
   if ( $status ne 'CLOSED' ) {        &Apache::lonxml::debug("Found Award |$award|$solved|$awardmsg");
     my $award = $Apache::lonhomework::history{"resource.$id.award"};      if ( $award ne '' || $solved ne '' || $status eq 'SHOW_ANSWER') {
     my $solved = $Apache::lonhomework::history{"resource.$id.solved"};   &Apache::lonxml::debug('Getting message');
     my $previous = $Apache::lonhomework::history{"resource.$id.previous"};   ($showbutton,my $css_class,$message,$previousmsg) =
     &Apache::lonxml::debug("Found Award |$award|$solved|");      &decideoutput($award,$awarded,$awardmsg,$solved,$previous,
     if ( $award ne '' ) {    $target,(($status eq 'CAN_ANSWER') || $nocorrect));
       &Apache::lonxml::debug('Getting message');   if ($target eq 'tex') {
       ($showbutton,$message,$previousmsg) =      $message='\vskip 2 mm '.$message.' ';
  &decideoutput($award,$solved,$previous);   } else {
       if ($target eq 'tex') {      $message="<td class=\"$css_class\">$message</td>";
  $message=' '.$message.' ';      if ($previousmsg) {
       } else {   $previousmsg="<td class=\"LC_answer_previous\">$previousmsg</td>";
  $message="<td bgcolor=\"#aaffaa\">$message</td>";      }
  if ($previousmsg) {  
   $previousmsg="<td bgcolor=\"#ffaaaa\">$previousmsg</td>";  
  }   }
       }  
     }      }
     my $tries = $Apache::lonhomework::history{"resource.$id.tries"};      my $tries = $Apache::lonhomework::history{"$prefix.tries"};
     my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");      my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
     &Apache::lonxml::debug("got maxtries of :$maxtries:");      &Apache::lonxml::debug("got maxtries of :$maxtries:");
       #if tries are set to negative turn off the Tries/Button and messages
       if (defined($maxtries) && $maxtries < 0) { return ''; }
     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'; } 
     if ( $showbutton ) {      my $tries_text= &get_tries_text();
       if ($target eq 'tex') {      if ($showbutton) {
  $trystr = ' {\small Tries '.$tries.'/'.$maxtries.'} ';   if ($target eq 'tex') {
       } else {      if ($env{'request.state'} ne "construct"
          $trystr = "<td>Tries $tries/$maxtries</td>";   && $Apache::lonhomework::type ne 'exam'
       }   && $env{'form.suppress_tries'} ne 'yes') {
     }   $trystr ='{\vskip 1 mm \small '
     if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;}                          .&mt('[_1]'.$tries_text.'[_2] [_3]'
     if ( $showbutton ) {    ,'\textit{','}',$tries.'/'.$maxtries ) 
       if ($target ne 'tex') {                          .'} \vskip 2 mm';
         $button = '<br /><input type="submit" name="submit" value="Submit Answer" />';      } else {
       }   $trystr = '\vskip 0 mm ';
     }      }
     if ($Apache::lonhomework::history{"resource.$id.afterduedate"}) {   } else {
       #last submissions was after due date      my $trial =$tries;
       if ($target eq 'tex') {      if ($Apache::lonhomework::parsing_a_task) {
   $latemessage=' The last submission was after the Due Date ';      } elsif($env{'request.state'} ne 'construct') {
       } else {   $trial.="/".&Apache::lonhtmlcommon::direct_parm_link($maxtries,$env{'request.symb'},'maxtries',$id,$target);
         $latemessage="<td bgcolor=\"#ffaaaa\">The last submission was after the Due Date</td>";      } else {
       }   if (defined($Apache::inputtags::params{'maxtries'})) {
     }      $trial.="/".$Apache::inputtags::params{'maxtries'};
   }   }
   my $output= $previousmsg.$latemessage.$message.$trystr;      }
   if ($output =~ /^\s*$/) {      $trystr = '<td><span class="LC_nobreak">'.&mt($tries_text.' [_1]',$trial).'</span></td>';
     return $button;   }
   } else {      }
     if ($target eq 'tex') {  
       return $button.' \vskip 0 mm '.$output.' ';      if ($Apache::lonhomework::history{"$prefix.afterduedate"}) {
    #last submissions was after due date
    $latemessage=&mt(' The last submission was after the Due Date ');;
    if ($target eq 'web') {
       $latemessage='<td class="LC_answer_late">'.$latemessage.'</td>';
    }
       }
       return ($previousmsg,$latemessage,$message,$trystr,$showbutton);
   }
   
   sub gradestatus {
       my ($id,$target,$no_previous) = @_;
       my $showbutton = 1;
       my $message = '';
       my $latemessage = '';
       my $trystr='';
       my $button='';
       my $previousmsg='';
   
       my $status = $Apache::inputtags::status['-1'];
       &Apache::lonxml::debug("gradestatus has :$status:");
       if ( $status ne 'CLOSED' 
    && $status ne 'UNAVAILABLE' 
    && $status ne 'INVALID_ACCESS' 
    && $status ne 'NEEDS_CHECKIN' 
    && $status ne 'NOT_IN_A_SLOT'
            && $status ne 'RESERVABLE'
            && $status ne 'RESERVABLE_LATER'
            && $status ne 'NOTRESERVABLE') {
   
    if ($status eq 'SHOW_ANSWER') {
               $showbutton = 0;
           }
   
    ($previousmsg,$latemessage,$message,$trystr) =
       &get_grade_messages($id,"resource.$id",$target,$status,
    $showbutton);
    if ($status eq 'CANNOT_ANSWER') {
       $showbutton = 0;
    }
    if ( $status eq 'SHOW_ANSWER') {
       undef($previousmsg);
    }
    if ( $showbutton ) { 
       if ($target ne 'tex') {
    $button = 
               '<input onmouseup="javascript:setSubmittedPart(\''.$id.'\');this.form.action+=\'#'.&escape($id).'\';"
                       type="submit" name="submit_'.$id.'"
                       value="'.&mt('Submit Answer').'" />';
       }
    }
   
       }
       my $output= $previousmsg.$latemessage.$message.$trystr;
       if ($output =~ /^\s*$/) {
    return $button;
       } else {
    if ($target eq 'tex') {
       return $button.' \vskip 0 mm '.$output.' ';
    } else {
       $output =
    '<table><tr><td>'.$button.'</td>'.$output;
       if (!$no_previous) {
    $output.='<td>'.&previous_tries($id,$target).'</td>';
       }
       $output.= '</tr></table>';
       return $output;
    }
       }
   }
   
   sub previous_tries {
       my ($id,$target) = @_;
       my $output;
       my $status = $Apache::inputtags::status['-1'];
   
       my $count;
       my %count_lookup;
       my $lastrndseed;
   
       foreach my $i (1..$Apache::lonhomework::history{'version'}) {
    my $prefix = $i.":resource.$id";
           my $is_anon; 
           if (defined($env{'form.grade_symb'})) {
               if (($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurvey') || 
                   ($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurveycred')) {
                   $is_anon = 1;
               }
           }
    next if (!exists($Apache::lonhomework::history{"$prefix.award"}));
    $count++;
    $count_lookup{$i} = $count;
           my $curr_rndseed = $Apache::lonhomework::history{"$prefix.rndseed"};
    my ($previousmsg,$latemessage,$message,$trystr);
   
    ($previousmsg,$latemessage,$message,$trystr) =
       &get_grade_messages($id,"$prefix",$target,$status);
   
    if ($previousmsg ne '') {
       my ($match,$which) = &find_which_previous($i);
       $message=$previousmsg;
       my $previous = $count_lookup{$which};
       $message =~ s{(</td>)}{ as submission \# $previous $1};
    } elsif ($Apache::lonhomework::history{"$prefix.tries"}) {
       if (!(&Apache::lonhomework::hide_problem_status()
     && $Apache::inputtags::status[-1] ne 'SHOW_ANSWER')
    && $Apache::lonhomework::history{"$prefix.solved"} =~/^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>)}
                                {$1 <strong>$txt_correct</strong>. $3}s;
       }
               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};
    }
    my ($class) = ($message =~ m{<td.*class="([^"]*)"}); #"
    $message =~ s{(<td.*?>)}{<td>};
   
   
    $output.='<tr class="'.$class.'">';
    $output.='<td align="center">'.$count.'</td>';
    $output.=$message;
   
    foreach my $resid (@Apache::inputtags::response) {
       my $prefix = $prefix.".$resid";
       if (exists($Apache::lonhomework::history{"$prefix.submission"})) {
    my $submission =
       $Apache::inputtags::submission_display{"$prefix.submission"};
    if (!defined($submission)) {
       $submission = 
    $Apache::lonhomework::history{"$prefix.submission"};
    }
                   if ($is_anon) {
                       $output.='<td>'.&mt('(only shown to submitter)').'</td>';
                   } else {
       $output.='<td>'.$submission.'</td>';
                   }
       } else {
    $output.='<td></td>';
       }
    }
    $output.=&Apache::loncommon::end_data_table_row()."\n";
           $lastrndseed = $curr_rndseed;
       }
       return if ($output eq '');
       my $headers = 
    '<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').
    '</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.
    &mt('Submitted Answer').'</th>';
       $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';
   
       my $tries_text = &get_tries_text('link');
       my $prefix = $env{'form.request.prefix'};
       $prefix =~ tr{.}{_};
       my $function_name = "LONCAPA_previous_tries_".$prefix.
    $Apache::lonxml::curdepth.'_'.$env{'form.counter'};
       my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,&mt($tries_text))."<br />";
       return $result;
   }
   
   sub get_tries_text {
       my ($context) = @_;
       my $tries_text;
       if ($context eq 'link') {
           $tries_text = 'Previous Tries';
     } else {      } else {
       return $button.'<table><tr>'.$output.'</tr></table>';          $tries_text = 'Tries';
     }      }
   }      if ( $Apache::lonhomework::type eq 'survey' ||
            $Apache::lonhomework::type eq 'surveycred' ||
            $Apache::lonhomework::type eq 'anonsurvey' ||
            $Apache::lonhomework::type eq 'anonsurveycred' ||
            $Apache::lonhomework::parsing_a_task) {
           if ($context eq 'link') {
               $tries_text = 'Previous Submissions';
           } else {
               $tries_text = 'Submissions';
           }
       }
       return $tries_text;
 }  }
   
 1;  1;
 __END__  __END__
   
   =pod
   
   =back
   
   =cut
     
Removed from v.1.66  
changed lines
  Added in v.1.307

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.