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; |