loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.686, 2013/04/11 14:59:39	version 1.688, 2013/05/30 05:04:31
Line 8214 sub users_order {	Line 8214 sub users_order {
my $actual_seq =	my $actual_seq =
&Apache::lonprintout::master_seq_to_person_seq($mapurl,	&Apache::lonprintout::master_seq_to_person_seq($mapurl,
$master_seq,	$master_seq,
$user,$scancode);	$user,$scancode,1);
if (ref($actual_seq) eq 'ARRAY') {	if (ref($actual_seq) eq 'ARRAY') {
@{$ordered->{$scancode}} =	@{$ordered->{$scancode}} =
map { $symb_to_resource->{$_}; } @{$actual_seq};	map { $symb_to_resource->{$_}; } @{$actual_seq};
Line 8225 sub users_order {	Line 8225 sub users_order {
my $actual_seq =	my $actual_seq =
&Apache::lonprintout::master_seq_to_person_seq($mapurl,	&Apache::lonprintout::master_seq_to_person_seq($mapurl,
$master_seq,	$master_seq,
$user);	$user,undef,1);
if (ref($actual_seq) eq 'ARRAY') {	if (ref($actual_seq) eq 'ARRAY') {
@mapresources =	@mapresources =
map { $symb_to_resource->{$_}; } @{$actual_seq};	map { $symb_to_resource->{$_}; } @{$actual_seq};
Line 9757 sub handler {	Line 9757 sub handler {
}	}
} elsif (!%perm) {	} elsif (!%perm) {
$request->internal_redirect('/adm/quickgrades');	$request->internal_redirect('/adm/quickgrades');
	return OK;
}	}
&Apache::loncommon::content_type($request,'text/html');	&Apache::loncommon::content_type($request,'text/html');
$request->send_http_header;	$request->send_http_header;