version 1.172, 2005/07/11 19:45:07
|
version 1.174, 2005/08/02 18:15:27
|
Line 46 sub initialize_inputtags {
|
Line 46 sub initialize_inputtags {
|
@Apache::inputtags::response=(); |
@Apache::inputtags::response=(); |
# 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::hint=(); |
|
# 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}++; |
} |
} |