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

Diff for /loncom/homework/inputtags.pm between versions 1.177 and 1.179

version 1.177, 2005/11/03 11:11:25 version 1.179, 2005/11/10 22:19:27
Line 37  BEGIN { Line 37  BEGIN {
 }  }
   
 #   Initializes a set of global variables used during the parse of the problem.  #   Initializes a set of global variables used during the parse of the problem.
 #   (I like this way of documenting variables better since  
 #    you don't have to rake your eyes over as much code rf).  
 #  
 #    @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::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.
   
 sub initialize_inputtags {  sub initialize_inputtags {
     @Apache::inputtags::input=();      @Apache::inputtags::input=();
     @Apache::inputtags::inputlist=();      @Apache::inputtags::inputlist=();
Line 384  sub checkstatus { Line 386  sub checkstatus {
     return(undef,undef);      return(undef,undef);
 }  }
   
   sub valid_award {
       my ($award) =@_;
       foreach my $possibleaward ('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', 'SIG_FAIL', 'INCORRECT', 
          'MISORDERED_RANK', 'INVALID_FILETYPE',
          'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
          'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') {
    if ($award eq $possibleaward) { return 1; }
       }
       return 0;
   }
   
 sub finalizeawards {  sub finalizeawards {
     my ($awardref,$msgref)=@_;      my ($awardref,$msgref)=@_;
     my $result=undef;      my $result=undef;
Removed from v.1.177  
changed lines
  Added in v.1.179

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