version 1.36, 2005/05/31 21:11:56
|
version 1.37, 2005/06/04 08:17:06
|
Line 36 use Apache::File();
|
Line 36 use Apache::File();
|
use Apache::lonmenu; |
use Apache::lonmenu; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonxml; |
use Apache::lonxml; |
|
use Apache::slotrequest(); |
use Time::HiRes qw( gettimeofday tv_interval ); |
use Time::HiRes qw( gettimeofday tv_interval ); |
|
|
BEGIN { |
BEGIN { |
Line 166 sub add_grading_button {
|
Line 167 sub add_grading_button {
|
sub add_request_another_attempt_button { |
sub add_request_another_attempt_button { |
my $result; |
my $result; |
my $symb=&Apache::lonnet::symbread(); |
my $symb=&Apache::lonnet::symbread(); |
if ($env{'request.enc'}) { $symb=&Apache::lonenc::encrypted($symb); } |
my ($slot_name,$slot)=&Apache::slotrequest::check_for_reservation($symb); |
$symb=&Apache::lonnet::escape($symb); |
if ($slot_name) { |
$result.='<form method="POST" action="/adm/slotrequest">'. |
my $description=&Apache::slotrequest::get_description($slot_name, |
'<input type="hidden" name="symb" value="'.$symb.'" />'. |
$slot); |
'<input type="submit" name="requestattempt" value="'. |
$result.=(<<STUFF); |
&mt("Request another attempt").'" />'. |
<p> Will be next available: $description </p> |
'</form>'; |
STUFF |
|
|
|
} else { |
|
if ($env{'request.enc'}) { $symb=&Apache::lonenc::encrypted($symb); } |
|
$symb=&Apache::lonnet::escape($symb); |
|
$result.='<form method="POST" action="/adm/slotrequest">'. |
|
'<input type="hidden" name="symb" value="'.$symb.'" />'. |
|
'<input type="submit" name="requestattempt" value="'. |
|
&mt("Request another attempt").'" />'. |
|
'</form>'; |
|
} |
return $result; |
return $result; |
} |
} |
|
|