--- loncom/interface/lonprintout.pm	2023/04/15 17:53:07	1.688
+++ loncom/interface/lonprintout.pm	2024/10/29 22:00:23	1.697
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.688 2023/04/15 17:53:07 raeburn Exp $
+# $Id: lonprintout.pm,v 1.697 2024/10/29 22:00:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -755,7 +755,7 @@ sub get_print_dates {
 # get_print_dates but namvaps::course_print_dates are gotten...and not converted
 # to times either.
 #
-# @param $res - Reference to a resource has from lonnvampas::resource.
+# @param $res - Reference to a resource hash from lonnavmaps::resource.
 #
 # @return (opendate, closedate)
 #
@@ -897,7 +897,7 @@ sub master_seq_to_person_seq {
 
     #  Iterate on the resource..select the items that are randomly selected
     #  and that are in the seq_hash.  Presumably the iterator will take care
-    # of the random ordering part of the deal.
+    #  of the random ordering part of the deal.
     #
     my $curres;
     while ($curres = $iterator->next()) {
@@ -1155,7 +1155,7 @@ sub printf_style_subst {
 	if ($size ne "") {
 	    $subst = substr($subst, 0, $size);
 	    
-	    #  Here's a nice edge case.. suppose the end of the
+	    #  Here's a nice edge case ... suppose the end of the
 	    #  substring is a \.  In that case may have just
 	    #  chopped off a TeX escape... in that case, we append
 	    #   " " for the trailing character, and let the field 
@@ -2532,7 +2532,7 @@ sub load_skips {
 
     my ($helper)  = @_;
 
-    #  If this is the first time, unwrap the resources and extra spaces:
+    # If this is the first time, unwrap the resources and extra spaces:
 
     if (!$skips_loaded) {
 	@extraspace = (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE'}));
@@ -3310,6 +3310,8 @@ ENDPART
                  ($map, my $id, my $resource) =
                      &Apache::lonnet::decode_symb($helper->{VARS}->{'symb'});
              }
+         } elsif (($helper->{'VARS'}->{'postdata'} eq '/adm/navmaps') && ($perm{'pfo'})) {
+             $map = $helper->{'VARS'}->{'SEQUENCE'};
          }
 
 	 #loop over students
@@ -3399,9 +3401,12 @@ ENDPART
          if ($helper->{VARS}{'symb'}) {
              ($map, my $id, my $resource) =
                  &Apache::lonnet::decode_symb($helper->{VARS}{'symb'});
+         } elsif (($helper->{'VARS'}->{'postdata'} eq '/adm/navmaps') && ($perm{'pfo'})) {
+             $map = $helper->{'VARS'}->{'SEQUENCE'};
          }
 	 my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
 	 $moreenv{'problem_split'}    = $parmhash{'problem_stream_switch'};
+         $moreenv{'suppress_tries'} = $parmhash{'suppress_tries'};
          $moreenv{'instructor_comments'}='hide';
          $moreenv{'bubbles_per_row'} = $bubbles_per_row;
 	 my $seed=time+($$<<16)+($$);
@@ -3797,7 +3802,7 @@ sub print_resources {
     #   nice to put the special in as a postscript comment
     #   e.g. \special{ps:\ENDOFSTUDENTSTAMP}  unfortunately,
     #   The special gets passed the \ and dvips puts it in the output file
-    #   so we will just rely on printout.pl to strip  ENDOFSTUDENTSTAMP from the
+    #   so we will just rely on printout.pl to strip ENDOFSTUDENTSTAMP from the
     #   postscript.  Each ENDOFSTUDENTSTAMP will go on a line by itself.
     #
 
@@ -3906,7 +3911,7 @@ sub print_resources {
 			$rendered =~ s/\\end\{document}//;
 		    }
 		    $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 $rendered  = &include_pdf($url);
 		    if ($remove_latex_header ne 'NO') {
@@ -4821,12 +4826,47 @@ CHOOSE_FROM_SUBDIR
                          '<b>','</b>','<b>','</b>','<b>','</b>'),
                          'select_sequences_resources_for_anon','CHOOSE_SEQUENCE_ANON2']);
                 if ($escapedSequenceName) {
-                    &generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,$isProblem,$symbFilter,$start_new_option);
+                    my ($randomly_ordered_warning,$codechoice,$code_selection,$namechoice) =
+                        &generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,
+                                                  $isProblem,$symbFilter,$start_new_option);
+
+                    my $resource_selector = <<RESOURCE_SELECTOR;
+  <state name="CHOOSE_STUDENTS2" title="Select Students and Resources">
+    <choices variable='student_sort'>
+      <choice computer='0'>Sort by section then student</choice>
+      <choice computer='1'>Sort by students across sections.</choice>
+    </choices>
+    <message><br /><hr /><br /></message>
+    <student multichoice='1' variable="STUDENTS" nextstate="SELECT_RESOURCES" coursepersonnel="1" />
+
+    </state>
+    <state name="SELECT_RESOURCES" title="Select Resources">
+    $randomly_ordered_warning
+    <nextstate>PRINT_FORMATTING</nextstate>
+    <message>(mark desired resources then click "next" button) <br /></message>
+    <resource variable="RESOURCES" multichoice="1" addstatus="1"
+              closeallpages="1" modallink="1" suppressNavmap="1" $nocurrloc>
+      <filterfunc>return $isNotMap;</filterfunc>
+      <mapurl>$escapedSequenceName</mapurl>
+      <valuefunc>return $symbFilter;</valuefunc>
+      $start_new_option
+      </resource>
+    </state>
+RESOURCE_SELECTOR
+
+                    my $anon3 = &generate_code_selector($helper,
+                                                        'CHOOSE_ANON3',
+                                                        'SELECT_RESOURCES',
+                                                        $codechoice,
+                                                        $code_selection,
+                                                        $namechoice) . $resource_selector;
+
+                    &Apache::lonxml::xmlparse($r, 'helper',$anon3);
                 }
             }
         }
         if (($subdir eq '') && ($url eq '/adm/navmaps') && ($perm{'pfo'})) {
-           &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE);
+            &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE);
   <state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From">
     <message>Select the sequence to print resources from:</message>
     <resource variable="SEQUENCE">
@@ -4860,7 +4900,7 @@ CHOOSE_FROM_SUBDIR
   <state name="CHOOSE_SEQUENCE_STUDENTS1" title="Select Sequence To Print From">
     <message>Select the sequence to print resources from:</message>
     <resource variable="SEQUENCE">
-      <nextstate>CHOOSE_STUDENTS</nextstate>
+      <nextstate>CHOOSE_STUDENTS2</nextstate>
       <filterfunc>return &Apache::lonprintout::printable_sequence(\$res);</filterfunc>
       <valuefunc>return $urlValue;</valuefunc>
       <choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);
@@ -4870,7 +4910,7 @@ CHOOSE_FROM_SUBDIR
   <state name="CHOOSE_SEQUENCE_ANON2" title="Select Sequence To Print From">
     <message>Select the sequence to print resources from:</message>
     <resource variable="SEQUENCE">
-      <nextstate>CHOOSE_ANON1</nextstate>
+      <nextstate>CHOOSE_ANON3</nextstate>
       <filterfunc>return &Apache::lonprintout::printable_sequence(\$res);</filterfunc>
       <valuefunc>return $urlValue;</valuefunc>
       <choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);