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