version 1.72, 2014/02/03 18:49:30
|
version 1.75, 2017/12/18 23:51:19
|
Line 108 sub render_resource {
|
Line 108 sub render_resource {
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |
sub get_resources { |
sub get_resources { |
my ($navmap,$sequence) = @_; |
my ($navmap,$sequence,$include_tools) = @_; |
my @resources = $navmap->retrieveResources($sequence, |
my @resources; |
sub { shift->is_problem(); }, |
if ($include_tools) { |
0,0,0); |
@resources = $navmap->retrieveResources($sequence, |
|
sub { shift->is_gradable(); }, |
|
0,0,0); |
|
} else { |
|
@resources = $navmap->retrieveResources($sequence, |
|
sub { shift->is_problem(); }, |
|
0,0,0); |
|
} |
return @resources; |
return @resources; |
} |
} |
|
|
Line 135 Skips 'survey' problems.
|
Line 142 Skips 'survey' problems.
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |
sub problem_selector { |
sub problem_selector { |
my ($AcceptedResponseTypes,$sequence_addendum,$symbmode,$all,$prefix,$smallbox,$onclick) = @_; |
my ($AcceptedResponseTypes,$sequence_addendum,$symbmode,$all,$prefix,$smallbox,$onclick, |
|
$include_tools) = @_; |
# all: also make sequences selectable |
# all: also make sequences selectable |
# prefix: prefix for all form names |
# prefix: prefix for all form names |
# smallbox: use smaller box |
# smallbox: use smaller box |
Line 155 sub problem_selector {
|
Line 163 sub problem_selector {
|
return $navmap if (! ref($navmap)); # error |
return $navmap if (! ref($navmap)); # error |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $seq_str = ''; |
my $seq_str = ''; |
foreach my $res (&get_resources($navmap,$seq)) { |
foreach my $res (&get_resources($navmap,$seq,$include_tools)) { |
foreach my $part (@{$res->parts}) { |
foreach my $part (@{$res->parts}) { |
my @response_ids = $res->responseIds($part); |
my (@response_ids,@response_types); |
my @response_types = $res->responseType($part); |
if ($res->is_tool) { |
|
@response_ids = (); |
|
@response_types = ('tool'); |
|
} else { |
|
@response_ids = $res->responseIds($part); |
|
@response_types = $res->responseType($part); |
|
} |
for (my $i=0;$i<scalar(@response_types);$i++){ |
for (my $i=0;$i<scalar(@response_types);$i++){ |
my $respid = $response_ids[$i]; |
my $respid = $response_ids[$i]; |
my $resptype = $response_types[$i]; |
my $resptype = $response_types[$i]; |
Line 286 END
|
Line 300 END
|
END |
END |
if (ref($anoncounter) eq 'HASH') { |
if (ref($anoncounter) eq 'HASH') { |
if (keys(%{$anoncounter}) > 0) { |
if (keys(%{$anoncounter}) > 0) { |
my $anonwarning = &mt('Your selection includes both problems with and without anonymous submissions.').'\n'.&mt('You must select either only anonymous or only named problems.').'\n\n'.&mt('If a selection contains both anonymous and named parts, [_1]use the Anoymous/Named buttons to ensure selections will be either all anonymous [_1]or all named.','\n'); |
my $anonwarning = &mt('Your selection includes both problems with and without anonymous submissions.')."\n".&mt('You must select either only anonymous or only named problems.')."\n\n".&mt('If a selection contains both anonymous and named parts,[_1]use the Anonymous/Named buttons to ensure selections will be either all anonymous[_1]or all named.',"\n"); |
|
&js_escape(\$anonwarning); |
$checkanonjs = <<"END"; |
$checkanonjs = <<"END"; |
|
|
<script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |