version 1.33, 2005/05/27 21:13:46
|
version 1.34, 2005/05/31 16:27:43
|
Line 146 sub add_grading_button {
|
Line 146 sub add_grading_button {
|
$result.='<input type="hidden" name="grade_target" value="webgrade" />'; |
$result.='<input type="hidden" name="grade_target" value="webgrade" />'; |
if ( 1) { |
if ( 1) { |
#need a permissions for limitng this to 'powerful users' |
#need a permissions for limitng this to 'powerful users' |
#check if review queue has items |
|
$result.=' <input type="submit" name="reviewasubmission" value="'. |
my ($entries,$ready,$locks)=&get_queue_counts('gradingqueue'); |
&mt("Select an entry from the review queue").'" />'."\n"; |
$result.='<p>'.&mt("Grading Queue has [_1] entries. [_2] of them are ready to be graded and [_3] of them are currently being graded",$entries,$ready,$locks); |
|
|
$result.=' <input type="submit" name="reviewagrading" value="'. |
$result.=' <input type="submit" name="reviewagrading" value="'. |
&mt("Select an entry from the grading queue").'" />'."\n"; |
&mt("Select an entry from the grading queue").'" /> </p>'."\n"; |
|
|
|
($entries,$ready,$locks)=&get_queue_counts('reviewqueue'); |
|
$result.='<p>'.&mt("Review Queue has [_1] entries. [_2] of them are ready to be graded and [_3] of them are currently being graded",$entries,$ready,$locks); |
|
$result.=' <input type="submit" name="reviewasubmission" value="'. |
|
&mt("Select an entry from the review queue").'" /> </p>'."\n"; |
} |
} |
return $result; |
return $result; |
} |
} |
Line 691 FORM
|
Line 697 FORM
|
return $result; |
return $result; |
} |
} |
|
|
|
sub get_queue_counts { |
|
my ($queue)=@_; |
|
my $result; |
|
my ($symb,$cid,$udom,$uname)=&Apache::lonxml::whichuser(); |
|
my $cnum=$env{'course.'.$cid.'.num'}; |
|
my $cdom=$env{'course.'.$cid.'.domain'}; |
|
my $regexp="^$symb\0"; |
|
my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp); |
|
my ($tmp)=%queue; |
|
if ($tmp=~/^error: 2 /) { |
|
return (0,0,0); |
|
} |
|
my ($entries,$ready_to_grade,$locks)=(0,0,0); |
|
foreach my $key (sort(keys(%queue))) { |
|
if ($key=~/locked$/) { |
|
$locks++; |
|
} elsif ($key=~/timestamp$/) { |
|
#ignore |
|
} elsif ($key!~/(timestamp|locked)$/) { |
|
my ($symb,$uname,$udom) = &decode_queue_key($key); |
|
$entries++; |
|
my $slot=$queue{$key}->[0]; |
|
my %slot_data=&Apache::lonnet::get_slot($slot); |
|
if (time > $slot_data{'endtime'}) { |
|
$ready_to_grade++; |
|
} |
|
} |
|
} |
|
return ($entries,$ready_to_grade,$locks); |
|
} |
|
|
sub decode_queue_key { |
sub decode_queue_key { |
my ($key)=@_; |
my ($key)=@_; |
my ($symb,undef,$user) = split("\0",$key); |
my ($symb,undef,$user) = split("\0",$key); |