version 1.627.2.31, 2021/12/14 01:30:48
|
version 1.627.2.34, 2024/07/01 19:14:14
|
Line 3170 ENDPART
|
Line 3170 ENDPART
|
|
|
my $map; |
my $map; |
if ($helper->{VARS}->{'symb'}) { |
if ($helper->{VARS}->{'symb'}) { |
($map, my $id, my $resource) = |
unless ((($print_type eq 'all_problems_students') || |
&Apache::lonnet::decode_symb($helper->{VARS}->{'symb'}); |
($print_type eq 'incomplete_problems_selpeople_course')) && |
|
$perm{'pfo'}) { |
|
($map, my $id, my $resource) = |
|
&Apache::lonnet::decode_symb($helper->{VARS}->{'symb'}); |
|
} |
} |
} |
|
|
#loop over students |
#loop over students |
Line 3255 ENDPART
|
Line 3259 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 3335 ENDPART
|
Line 3331 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 3776 sub print_resources {
|
Line 3769 sub print_resources {
|
$rendered =~ s/\\end\{document}//; |
$rendered =~ s/\\end\{document}//; |
} |
} |
$current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut '; |
$current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut '; |
} elsif($res_url = ~/\.pdf$/) { |
} elsif($res_url =~ /\.pdf$/) { |
my $url = &Apache::lonnet::clutter($res_url); |
my $url = &Apache::lonnet::clutter($res_url); |
my $rendered = &include_pdf($url); |
my $rendered = &include_pdf($url); |
if ($remove_latex_header ne 'NO') { |
if ($remove_latex_header ne 'NO') { |