version 1.627.2.14, 2015/03/11 04:15:47
|
version 1.627.2.15, 2015/06/04 13:03:36
|
Line 701 sub incomplete {
|
Line 701 sub incomplete {
|
} |
} |
} |
} |
# |
# |
# When printing for students, the resoures and order of the |
# When printing for students, the resources and order of the |
# resources may need to be altered if there are folders with |
# resources may need to be altered if there are folders with |
# random selectiopn or random ordering (or both) enabled. |
# random selectiopn or random ordering (or both) enabled. |
# This sub computes the set of resources to print for a student |
# This sub computes the set of resources to print for a student |
# modified both by random ordering and selection and filtered |
# modified both by random ordering and selection and filtered |
# to only those that are in the original set selcted to be printed. |
# to only those that are in the original set selected to be printed. |
# |
# |
# Parameters: |
# Parameters: |
# $map - The URL of the folder being printed. |
# $map - The URL of the folder being printed. |
Line 717 sub incomplete {
|
Line 717 sub incomplete {
|
# $who - Student/domain for whome the sequence will be generated. |
# $who - Student/domain for whome the sequence will be generated. |
# $code - CODE being printed when printing Problems/Resources |
# $code - CODE being printed when printing Problems/Resources |
# from folder for CODEd assignments |
# from folder for CODEd assignments |
|
# $nohidemap - If true, parameter in map for hiddenresource will be |
|
# ignored. The user calling the routine should have |
|
# both the pav and vgr privileges if this is set to true). |
# |
# |
# Implicit inputs: |
# Implicit inputs: |
# $ |
# $ |
Line 738 sub master_seq_to_person_seq {
|
Line 741 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 3184 ENDPART
|
Line 3187 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 3201 ENDPART
|
Line 3208 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 3312 ENDPART
|
Line 3319 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 3324 ENDPART
|
Line 3335 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)= |