|
version 1.438, 2008/12/11 11:02:21
|
version 1.439, 2009/03/09 21:24:12
|
|
Line 1599 sub start_randomlist {
|
Line 1599 sub start_randomlist {
|
| my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval); |
my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval); |
| $showarg--; |
$showarg--; |
| if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; } |
if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; } |
| |
if (($target eq 'analyze') && ($env{'form.check_parts_withrandomlist'})) { |
| |
my @currlist; |
| |
my $part = $Apache::inputtags::part; |
| |
if ($part ne '') { |
| |
if (ref($Apache::lonhomework::analyze{'parts_withrandomlist'}) eq 'ARRAY') { |
| |
my @currlist = @{$Apache::lonhomework::analyze{'parts_withrandomlist'}}; |
| |
if (!(grep(/^\Q$part\E$/,@currlist))) { |
| |
push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part); |
| |
} |
| |
} else { |
| |
push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part); |
| |
} |
| |
} |
| |
} |
| for(0 .. $show) { |
for(0 .. $show) { |
| $bodytext .= "$randomlist[ $idx_arr[$_] ]"; |
$bodytext .= "$randomlist[ $idx_arr[$_] ]"; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework