version 1.12, 2004/06/04 21:42:18
|
version 1.14, 2004/06/15 14:26:10
|
Line 109 all option response and radiobutton prob
|
Line 109 all option response and radiobutton prob
|
|
|
Returns: A string containing html for a table which lists the sequences |
Returns: A string containing html for a table which lists the sequences |
and their contents. A radiobutton is provided for each problem. |
and their contents. A radiobutton is provided for each problem. |
|
Skips 'survey' problems. |
|
|
=cut |
=cut |
|
|
Line 125 sub ProblemSelector {
|
Line 126 sub ProblemSelector {
|
next if ($res->{'type'} ne 'assessment'); |
next if ($res->{'type'} ne 'assessment'); |
foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
my $partdata = $res->{'partdata'}->{$part}; |
my $partdata = $res->{'partdata'}->{$part}; |
|
next if ($partdata->{'Survey'}); |
for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){ |
for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){ |
my $respid = $partdata->{'ResponseIds'}->[$i]; |
my $respid = $partdata->{'ResponseIds'}->[$i]; |
my $resptype = $partdata->{'ResponseTypes'}->[$i]; |
my $resptype = $partdata->{'ResponseTypes'}->[$i]; |
Line 224 sub get_target_from_id {
|
Line 226 sub get_target_from_id {
|
|
|
=pod |
=pod |
|
|
=item &get_prev_curr_next($target) |
=item &get_prev_curr_next($target,$AcceptableResponseTypes,$granularity) |
|
|
Determine the problem parts or responses preceeding and following the |
Determine the problem parts or responses preceeding and following the |
current resource. |
current resource. |
Line 232 current resource.
|
Line 234 current resource.
|
Inputs: $target (see &Apache::lonstathelpers::get_target_from_id()) |
Inputs: $target (see &Apache::lonstathelpers::get_target_from_id()) |
$AcceptableResponseTypes, regular expression matching acceptable |
$AcceptableResponseTypes, regular expression matching acceptable |
response types, |
response types, |
$granularity, either 'part' or 'response' |
$granularity, either 'part', 'response', or 'part_survey' |
|
|
Returns: three hash references, $prev, $curr, $next, which refer to the |
Returns: three hash references, $prev, $curr, $next, which refer to the |
preceeding, current, or following problem parts or responses, depending |
preceeding, current, or following problem parts or responses, depending |
Line 260 sub get_prev_curr_next {
|
Line 262 sub get_prev_curr_next {
|
next if ($res->{'type'} ne 'assessment'); |
next if ($res->{'type'} ne 'assessment'); |
foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
my $partdata = $res->{'partdata'}->{$part}; |
my $partdata = $res->{'partdata'}->{$part}; |
if ($granularity eq 'part') { |
if ($granularity eq 'part_survey' && $partdata->{'Survey'}){ |
|
push (@Resource, |
|
{ symb => $res->{symb}, |
|
part => $part, |
|
resource => $res, |
|
} ); |
|
} elsif ($granularity eq 'part') { |
push (@Resource, |
push (@Resource, |
{ symb => $res->{symb}, |
{ symb => $res->{symb}, |
part => $part, |
part => $part, |
Line 290 sub get_prev_curr_next {
|
Line 298 sub get_prev_curr_next {
|
my $curr_idx; |
my $curr_idx; |
for ($curr_idx=0;$curr_idx<$#Resource;$curr_idx++) { |
for ($curr_idx=0;$curr_idx<$#Resource;$curr_idx++) { |
my $curr_item = $Resource[$curr_idx]; |
my $curr_item = $Resource[$curr_idx]; |
if ($granularity eq 'part') { |
if ($granularity eq 'part' || $granularity eq 'part_survey') { |
if ($curr_item->{'symb'} eq $target->{'symb'} && |
if ($curr_item->{'symb'} eq $target->{'symb'} && |
$curr_item->{'part'} eq $target->{'part'}) { |
$curr_item->{'part'} eq $target->{'part'}) { |
last; |
last; |
Line 305 sub get_prev_curr_next {
|
Line 313 sub get_prev_curr_next {
|
} |
} |
} |
} |
my $curr_item = $Resource[$curr_idx]; |
my $curr_item = $Resource[$curr_idx]; |
if ($granularity eq 'part') { |
if ($granularity eq 'part' || $granularity eq 'part_survey') { |
if ($curr_item->{'symb'} ne $target->{'symb'} || |
if ($curr_item->{'symb'} ne $target->{'symb'} || |
$curr_item->{'part'} ne $target->{'part'}) { |
$curr_item->{'part'} ne $target->{'part'}) { |
# bogus symb - return nothing |
# bogus symb - return nothing |