version 1.176, 2005/10/18 21:46:42
|
version 1.179, 2005/11/10 22:19:27
|
Line 36 BEGIN {
|
Line 36 BEGIN {
|
&Apache::lonxml::register('Apache::inputtags',('hiddenline','textfield','textline')); |
&Apache::lonxml::register('Apache::inputtags',('hiddenline','textfield','textline')); |
} |
} |
|
|
|
# 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. |
|
|
sub initialize_inputtags { |
sub initialize_inputtags { |
# list of current input ids |
|
@Apache::inputtags::input=(); |
@Apache::inputtags::input=(); |
# list of all input ids seen in this problem |
|
@Apache::inputtags::inputlist=(); |
@Apache::inputtags::inputlist=(); |
# list of all current response ids |
|
@Apache::inputtags::response=(); |
@Apache::inputtags::response=(); |
# list of all response ids seen in this problem |
|
@Apache::inputtags::responselist=(); |
@Apache::inputtags::responselist=(); |
# list of all current hint ids |
|
@Apache::inputtags::hint=(); |
@Apache::inputtags::hint=(); |
# list of all hint ids seen in this problem |
|
@Apache::inputtags::hintlist=(); |
@Apache::inputtags::hintlist=(); |
# list of whether or not a specific response was previously used |
|
@Apache::inputtags::previous=(); |
@Apache::inputtags::previous=(); |
# submission it was used in |
|
@Apache::inputtags::previous_version=(); |
@Apache::inputtags::previous_version=(); |
# id of current part, 0 means that no part is current |
|
# (inside <problem> only |
|
$Apache::inputtags::part=''; |
$Apache::inputtags::part=''; |
# list of all part ids seen |
|
@Apache::inputtags::partlist=(); |
@Apache::inputtags::partlist=(); |
# list of problem date statuses, the first element is for <problem> |
|
# if there is a second element it is for the current <part> |
|
@Apache::inputtags::status=(); |
@Apache::inputtags::status=(); |
# hash of defined params for the current response |
|
%Apache::inputtags::params=(); |
%Apache::inputtags::params=(); |
# list of all ids, for <import>, these get join()ed and prepended |
|
@Apache::inputtags::import=(); |
@Apache::inputtags::import=(); |
# list of all import ids seen |
|
@Apache::inputtags::importlist=(); |
@Apache::inputtags::importlist=(); |
# just used to note whether we have seen a response that isn't in a part |
|
$Apache::inputtags::response_with_no_part=0; |
$Apache::inputtags::response_with_no_part=0; |
# storage location so the begin <*response> tag can generate the correct |
|
# answer string for display by the <textline /> |
|
%Apache::inputtags::answertxt=(); |
%Apache::inputtags::answertxt=(); |
} |
} |
|
|
Line 374 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; |