version 1.164, 2006/06/09 23:09:01
|
version 1.165, 2006/06/12 18:45:35
|
Line 618 DONESCREEN
|
Line 618 DONESCREEN
|
$result.='<b>'. |
$result.='<b>'. |
&mt("Requested user has never accessed the task."). |
&mt("Requested user has never accessed the task."). |
'</b>'.$back; |
'</b>'.$back; |
|
} elsif ($status_code =~ /still_open:(.*)/) { |
|
my $date = &Apache::lonlocal::locallocaltime($1); |
|
$result.='<b>'. |
|
&mt("Task is still open, will close at [_1].",$date). |
|
'</b>'.$back; |
} elsif ($status_code eq 'lock_failed') { |
} elsif ($status_code eq 'lock_failed') { |
$result.='<b>'.&mt("Failed to lock the requested record.") |
$result.='<b>'.&mt("Failed to lock the requested record.") |
.'</b>'.$back; |
.'</b>'.$back; |
Line 682 DONESCREEN
|
Line 687 DONESCREEN
|
return $result; |
return $result; |
} |
} |
|
|
|
sub get_task_end_time { |
|
my ($queue_entry,$symb,$udom,$uname) = @_; |
|
|
|
my $end_time; |
|
if (my $slot = &slotted_access($queue_entry)) { |
|
my %slot_data=&Apache::lonnet::get_slot($slot); |
|
$end_time = $slot_data{'endtime'}; |
|
} else { |
|
$end_time = &Apache::lonhomework::due_date('0',$symb, |
|
$udom,$uname); |
|
} |
|
return $end_time; |
|
} |
|
|
sub get_key_todo { |
sub get_key_todo { |
my ($target)=@_; |
my ($target)=@_; |
my $todo; |
my $todo; |
Line 737 sub get_key_todo {
|
Line 756 sub get_key_todo {
|
return ($gradingkey); |
return ($gradingkey); |
} |
} |
|
|
|
if ($queue) { |
|
my $queue_entry = &get_queue_data($queue,$udom,$uname); |
|
|
|
my $end_time = &get_task_end_time($queue_entry,$symb, |
|
$udom,$uname); |
|
if ($end_time > time) { |
|
return (undef,"still_open:$end_time"); |
|
} |
|
} |
|
|
my $who=&queue_key_locked($queue,$gradingkey); |
my $who=&queue_key_locked($queue,$gradingkey); |
if ($who eq $me) { |
if ($who eq $me) { |
#already have the lock |
#already have the lock |
Line 1190 sub setup_env_for_other_user {
|
Line 1219 sub setup_env_for_other_user {
|
} |
} |
|
|
sub get_queue_data { |
sub get_queue_data { |
my ($queue)=@_; |
my ($queue,$udom,$uname)=@_; |
my ($symb,$cid,$udom,$uname)=&Apache::lonxml::whichuser(); |
my ($symb,$cid,$other_udom,$other_uname)=&Apache::lonxml::whichuser(); |
|
if (!$uname || !$udom) { |
|
$uname=$other_uname; |
|
$udom =$other_udom; |
|
} |
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $todo="$symb\0queue\0$uname:$udom"; |
my $todo="$symb\0queue\0$uname:$udom"; |