--- loncom/interface/lonprintout.pm 2011/10/10 15:34:32 1.599 +++ loncom/interface/lonprintout.pm 2011/10/21 10:13:57 1.600 @@ -2,7 +2,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.599 2011/10/10 15:34:32 raeburn Exp $ +# $Id: lonprintout.pm,v 1.600 2011/10/21 10:13:57 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -471,7 +471,7 @@ sub incomplete { # $helper - The helper we need $helper->{'VARS'}->{'symb'} # to construct the navmap and the iteration. # $seq - The original set of resources to print -# (really an array of resource names +# (really an array of resource names (array of symb's). # $who - Student/domain for whome the sequence will be generated. # # Implicit inputs: @@ -486,6 +486,7 @@ sub master_seq_to_person_seq { my ($username, $userdomain, $usersection) = split(/:/, $who); + # Toss the sequence up into a hash so that we have O(1) lookup time. # on the items that come out of the user's list of resources. # @@ -515,7 +516,8 @@ sub master_seq_to_person_seq { my $curres; while ($curres = $iterator->next()) { # - # Only process resources..that re not removed by randomout... + # Only process resources..that are not removed by randomout... + # and are selected for printint as well. # if (! exists $nonResourceItems{$curres} && ! $curres->randomout()) { my $symb = $curres->symb(); @@ -2047,7 +2049,7 @@ sub recently_generated { # A reference to a page break hash. # # -# use Data::Dumper; +use Data::Dumper; # sub dump_helper_vars { # my ($helper) = @_; # my $helpervars = Dumper($helper->{'VARS'}); @@ -3265,6 +3267,7 @@ sub print_resources { my ($username,$userdomain,$usersection) = split /:/,$person; my $fullname = &get_name($username,$userdomain); my $namepostfix = "\\\\"; # Both anon and not anon should get the same vspace. + # # Figure out if we need to filter the output by # the incomplete problems for that person