version 1.128.2.7, 2006/04/10 07:21:14
|
version 1.128.2.9, 2006/04/19 20:36:19
|
Line 349 sub webgrade_standard_info {
|
Line 349 sub webgrade_standard_info {
|
|
|
my %lt=&Apache::lonlocal::texthash('done' => 'Next Item', |
my %lt=&Apache::lonlocal::texthash('done' => 'Next Item', |
'stop' => 'Quit Grading', |
'stop' => 'Quit Grading', |
|
'fail' => 'Fail Rest', |
); |
); |
|
|
my $result=<<INFO; |
my $result=<<INFO; |
<div class="LC_GRADING_maincontrols"> |
<div class="LC_GRADING_maincontrols"> |
<input type="submit" name="next" value="$lt{'done'}" /> |
<input type="submit" name="next" value="$lt{'done'}" /> |
<input type="submit" name="stop" value="$lt{'stop'}" /> |
<input type="submit" name="stop" value="$lt{'stop'}" /> |
|
<input type="button" name="fail" value="$lt{'fail'}" |
|
onclick="javascript:onFailRest()" /> |
</div> |
</div> |
$file_list |
$file_list |
INFO |
INFO |
Line 1317 sub pick_from_queue_data {
|
Line 1320 sub pick_from_queue_data {
|
@possible = sort { $a->[1] <=> $b->[1] } @possible; |
@possible = sort { $a->[1] <=> $b->[1] } @possible; |
# pick one of the entries in the top 10% in small queues and one |
# pick one of the entries in the top 10% in small queues and one |
# of the first ten entries in large queues |
# of the first ten entries in large queues |
my $ten_percent = int($#possible * 0.1); |
#my $ten_percent = int($#possible * 0.1); |
if ($ten_percent < 1 ) { $ten_percent = 1; } |
#if ($ten_percent < 1 ) { $ten_percent = 1; } |
if ($ten_percent > 10) { $ten_percent = 10; } |
#if ($ten_percent > 10) { $ten_percent = 10; } |
my $max=($#possible < $ten_percent) ? $#possible : $ten_percent; |
#my $max=($#possible < $ten_percent) ? $#possible : $ten_percent; |
|
|
return $possible[int(rand($max))][0]; |
#return $possible[int(rand($max))][0]; |
|
return $possible[0][0]; |
} |
} |
return undef; |
return undef; |
} |
} |