version 1.1199, 2014/11/08 18:26:06
|
version 1.1200, 2014/11/21 17:59:06
|
Line 3837 sub get_previous_attempt {
|
Line 3837 sub get_previous_attempt {
|
} |
} |
} elsif ($data eq 'regrader') { |
} elsif ($data eq 'regrader') { |
if (($identifier ne '') && (@parts)) { |
if (($identifier ne '') && (@parts)) { |
$regraded{$parts[-1]} = 1; |
my $id = join(',',@parts); |
|
$regraded{$ign.'.'.$id} = 1; |
} |
} |
} |
} |
} else { |
} else { |
Line 3851 sub get_previous_attempt {
|
Line 3852 sub get_previous_attempt {
|
$prevattempts.=&end_data_table_header_row(); |
$prevattempts.=&end_data_table_header_row(); |
if ($getattempt eq '') { |
if ($getattempt eq '') { |
my (%solved,%resets,%probstatus); |
my (%solved,%resets,%probstatus); |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
if (($identifier ne '') && (keys(%regraded) > 0)) { |
if ($identifier ne '') { |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
foreach my $part (keys(%regraded)) { |
foreach my $id (keys(%regraded)) { |
if (($returnhash{$version.':resource.'.$part.'.regrader'}) && |
if (($returnhash{$version.':'.$id.'.regrader'}) && |
($returnhash{$version.':resource.'.$part.'.tries'} eq '') && |
($returnhash{$version.':'.$id.'.tries'} eq '') && |
($returnhash{$version.':resource.'.$part.'.award'} eq '')) { |
($returnhash{$version.':'.$id.'.award'} eq '')) { |
push(@{$resets{$part}},$version); |
push(@{$resets{$id}},$version); |
} |
} |
} |
} |
} |
} |
|
} |
|
for ($version=1;$version<=$returnhash{'version'};$version++) { |
my (@hidden,@unsolved); |
my (@hidden,@unsolved); |
if (%typeparts) { |
if (%typeparts) { |
foreach my $id (keys(%typeparts)) { |
foreach my $id (keys(%typeparts)) { |
Line 3871 sub get_previous_attempt {
|
Line 3874 sub get_previous_attempt {
|
unless (($returnhash{$version.':'.$id.'.type'} eq 'survey') || |
unless (($returnhash{$version.':'.$id.'.type'} eq 'survey') || |
($returnhash{$version.':'.$id.'.type'} eq 'surveycred') || |
($returnhash{$version.':'.$id.'.type'} eq 'surveycred') || |
($hidestatus{$id})) { |
($hidestatus{$id})) { |
next if ((ref($resets{$id}) eq 'ARRAY') && grep(/^\Q$id\E$/,@{$resets{$id}})); |
next if ((ref($resets{$id}) eq 'ARRAY') && grep(/^\Q$version\E$/,@{$resets{$id}})); |
if ($returnhash{$version.':'.$id.'.solved'} eq 'correct_by_student') { |
if ($returnhash{$version.':'.$id.'.solved'} eq 'correct_by_student') { |
push(@{$solved{$id}},$version); |
push(@{$solved{$id}},$version); |
} elsif (($returnhash{$version.':'.$id.'.solved'} ne '') && |
} elsif (($returnhash{$version.':'.$id.'.solved'} ne '') && |
Line 15323 sub search_courses {
|
Line 15326 sub search_courses {
|
return %courses; |
return %courses; |
} |
} |
|
|
|
|
=pod |
=pod |
|
|
=back |
=back |