version 1.646, 2015/06/04 12:51:37
|
version 1.648, 2016/01/28 19:37:42
|
Line 740 sub master_seq_to_person_seq {
|
Line 740 sub master_seq_to_person_seq {
|
my @output_seq; |
my @output_seq; |
|
|
my $unhidden; |
my $unhidden; |
if ($perm{'pav'} && $perm{'vgr'} && $nohidemap) { |
if ($nohidemap) { |
$unhidden = &Apache::lonnet::clutter($map); |
$unhidden = &Apache::lonnet::clutter($map); |
} |
} |
|
|
Line 3181 ENDPART
|
Line 3181 ENDPART
|
my $student_counter=-1; |
my $student_counter=-1; |
my $i = 0; |
my $i = 0; |
my $last_section = (split(/:/,$students[0]))[2]; |
my $last_section = (split(/:/,$students[0]))[2]; |
|
my $nohidemap; |
|
if ($perm{'pav'} && $perm{'vgr'}) { |
|
$nohidemap = 1; |
|
} |
foreach my $person (@students) { |
foreach my $person (@students) { |
my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due"; |
my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due"; |
if (-e $duefile) { |
if (-e $duefile) { |
Line 3198 ENDPART
|
Line 3202 ENDPART
|
$i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'}); |
$i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'}); |
} |
} |
my $actual_seq = master_seq_to_person_seq($map, \@master_seq, |
my $actual_seq = master_seq_to_person_seq($map, \@master_seq, |
$person, undef, 1); |
$person, undef, $nohidemap); |
my ($output,$fullname, $printed)=&print_resources($r,$helper, |
my ($output,$fullname, $printed)=&print_resources($r,$helper, |
$person,$type, |
$person,$type, |
\%moreenv, $actual_seq, |
\%moreenv, $actual_seq, |
Line 3309 ENDPART
|
Line 3313 ENDPART
|
my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$num_todo); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$num_todo); |
my $count=0; |
my $count=0; |
|
my $nohidemap; |
|
if ($perm{'pav'} && $perm{'vgr'}) { |
|
$nohidemap = 1; |
|
} |
foreach my $code (sort(@allcodes)) { |
foreach my $code (sort(@allcodes)) { |
my $file_num=int($count/$number_per_page); |
my $file_num=int($count/$number_per_page); |
if ($code_type eq 'number') { |
if ($code_type eq 'number') { |
Line 3321 ENDPART
|
Line 3329 ENDPART
|
$env{'form.CODE'} = $moreenv{'CODE'}; |
$env{'form.CODE'} = $moreenv{'CODE'}; |
$actual_seq = master_seq_to_person_seq($map, \@master_seq, |
$actual_seq = master_seq_to_person_seq($map, \@master_seq, |
undef, |
undef, |
$moreenv{'CODE'}, 1); |
$moreenv{'CODE'}, $nohidemap); |
delete($env{'form.CODE'}); |
delete($env{'form.CODE'}); |
} |
} |
my ($output,$fullname, $printed)= |
my ($output,$fullname, $printed)= |
Line 3430 ENDPART
|
Line 3438 ENDPART
|
#} |
#} |
} |
} |
|
|
# Set URLback if this is a construction space print so we can provide |
# Set URLback so we can provide a link back to the resource and to change options. |
# a link to the resource being edited. |
# (Since the browser back button does not currently work with https, |
# |
# the back link is useful even when there is an easy-to-miss LON-CAPA back button.) |
|
|
my $URLback=''; #link to original document |
my $URLback=''; #link to original document |
if ($helper->{'VARS'}->{'construction'} eq '1') { |
if ($helper->{'VARS'}->{'construction'} eq '1') { |
$URLback=$helper->{'VARS'}->{'filename'}; |
$URLback=$helper->{'VARS'}->{'filename'}; |
|
} elsif ($helper->{VARS}{'symb'}) { |
|
my ($map, $id, $url) = &Apache::lonnet::decode_symb($helper->{VARS}{'symb'}); |
|
$URLback = &Apache::lonnet::clutter($url); |
} |
} |
# |
# |
# Final adjustment of the font size: |
# Final adjustment of the font size: |