Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.35 and 1.36

version 1.35, 2005/05/31 16:31:01	version 1.36, 2005/05/31 21:11:56
Line 91 sub proctor_check_auth {	Line 91 sub proctor_check_auth {
sub get_version {	sub get_version {
my ($version,$previous);	my ($version,$previous);
if ($env{'form.previousversion'} &&	if ($env{'form.previousversion'} &&
	$env{'form.previousversion'} ne 'current' &&
defined($Apache::lonhomework::history{'resource.'.$env{'form.previousversion'}.'.status'})) {	defined($Apache::lonhomework::history{'resource.'.$env{'form.previousversion'}.'.status'})) {
$version=$env{'form.previousversion'};	$version=$env{'form.previousversion'};
$previous=1;	$previous=1;
Line 129 sub add_previous_version_button {	Line 130 sub add_previous_version_button {
my $list='<option>'.	my $list='<option>'.
join("</option>\n<option>",@to_show).	join("</option>\n<option>",@to_show).
"</option>\n";	"</option>\n";
	$list.='<option value="current">'.&mt('Current').'</option>';
$result.='<form name="getprevious" method="POST" action="';	$result.='<form name="getprevious" method="POST" action="';
my $uri=$env{'request.uri'};	my $uri=$env{'request.uri'};
if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }	if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
Line 163 sub add_grading_button {	Line 165 sub add_grading_button {

sub add_request_another_attempt_button {	sub add_request_another_attempt_button {
my $result;	my $result;
$result.=' <input type="submit" name="requestattempt" value="'.	my $symb=&Apache::lonnet::symbread();
&mt("Request another attempt").'" />';	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;
}	}

Line 264 sub start_Task {	Line 272 sub start_Task {
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
my $name= &Apache::structuretags::get_resource_name($parstack,$safeeval);	my $name= &Apache::structuretags::get_resource_name($parstack,$safeeval);
$result.="$head_tag_start<title>$name</title></head>	$result.="$head_tag_start<title>$name</title></head>
$body_tag_start \n $form_tag_start".	$body_tag_start \n";
'<input type="hidden" name="submitted" value="yes" />';
$result.=&preserve_grade_info();
my ($version,$previous)=&get_version();	my ($version,$previous)=&get_version();
if ($Apache::lonhomework::history{"resource.$version.status"} eq 'fail') {	if ($Apache::lonhomework::history{"resource.$version.status"} eq 'fail') {
$result.='<h1><font color="red">'.&mt('Did not pass').'</font></h1>';	$result.='<h1><font color="red">'.&mt('Did not pass').'</font></h1>';
Line 277 sub start_Task {	Line 284 sub start_Task {
if ($Apache::lonhomework::history{"resource.$version.status"} eq 'pass') {	if ($Apache::lonhomework::history{"resource.$version.status"} eq 'pass') {
$result.='<h1><font color="green">'.&mt('Passed').'</font></h1>';	$result.='<h1><font color="green">'.&mt('Passed').'</font></h1>';
}	}
	$result.=$form_tag_start.
	'<input type="hidden" name="submitted" value="yes" />';
	$result.=&preserve_grade_info();

}	}
} elsif ( ($target eq 'grade' && $env{'form.webgrade'}) \|\|	} elsif ( ($target eq 'grade' && $env{'form.webgrade'}) \|\|
$target eq 'webgrade') {	$target eq 'webgrade') {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.35
changed lines
	Added in v.1.36