version 1.672, 2020/03/03 01:16:35
|
version 1.675, 2022/02/09 15:46:57
|
Line 3252 ENDPART
|
Line 3252 ENDPART
|
} |
} |
} |
} |
} |
} |
my ($randomorder,$randompick,$map); |
my $map; |
if ($helper->{VARS}{'symb'}) { |
if ($helper->{VARS}{'symb'}) { |
($map, my $id, my $resource) = |
($map, my $id, my $resource) = |
&Apache::lonnet::decode_symb($helper->{VARS}{'symb'}); |
&Apache::lonnet::decode_symb($helper->{VARS}{'symb'}); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
|
if (defined($navmap)) { |
|
if ($map) { |
|
my $mapres = $navmap->getResourceByUrl($map); |
|
$randomorder = $mapres->randomorder(); |
|
$randompick = $mapres->randompick(); |
|
} |
|
} |
|
} |
} |
my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth)); |
my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth)); |
$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'}; |
$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'}; |
Line 3332 ENDPART
|
Line 3324 ENDPART
|
} else { |
} else { |
$moreenv{'CODE'}=&num_to_letters($code); |
$moreenv{'CODE'}=&num_to_letters($code); |
} |
} |
my $actual_seq = \@master_seq; |
$env{'form.CODE'} = $moreenv{'CODE'}; |
if ($randomorder || $randompick) { |
my $actual_seq = master_seq_to_person_seq($map, \@master_seq, |
$env{'form.CODE'} = $moreenv{'CODE'}; |
undef, |
$actual_seq = master_seq_to_person_seq($map, \@master_seq, |
$moreenv{'CODE'}, $nohidemap); |
undef, |
delete($env{'form.CODE'}); |
$moreenv{'CODE'}, $nohidemap); |
|
delete($env{'form.CODE'}); |
|
} |
|
my ($output,$fullname, $printed)= |
my ($output,$fullname, $printed)= |
&print_resources($r,$helper,'anonymous',$type,\%moreenv, |
&print_resources($r,$helper,'anonymous',$type,\%moreenv, |
$actual_seq,$flag_latex_header_remove, |
$actual_seq,$flag_latex_header_remove, |
Line 3463 ENDPART
|
Line 3452 ENDPART
|
if (($ENV{'SERVER_PORT'} == 443) && ($env{'request.course.id'}) && |
if (($ENV{'SERVER_PORT'} == 443) && ($env{'request.course.id'}) && |
(($url =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) || |
(($url =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) || |
($url =~ m{^\Q/adm/wrapper/ext/\E(?!https:)}))) { |
($url =~ m{^\Q/adm/wrapper/ext/\E(?!https:)}))) { |
unless (&Apache::lonnet::uses_sts()) { |
unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl())) { |
$usehttp = 1; |
$usehttp = 1; |
} |
} |
} |
} |
Line 3890 sub handler {
|
Line 3879 sub handler {
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('printout',$cnum,$cdom); |
&Apache::loncommon::blocking_status('printout',$clientip,$cnum,$cdom); |
if ($blocked) { |
if ($blocked) { |
my $checkrole = "cm./$cdom/$cnum"; |
my $checkrole = "cm./$cdom/$cnum"; |
if ($env{'request.course.sec'} ne '') { |
if ($env{'request.course.sec'} ne '') { |