[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[raeburn]

raeburn		Sun Apr 16 21:22:47 2023 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - Printout generation via print icon in "Tools" on Course Contents page.
    For these two items available to privileged users:
    (a) Selected Resources from selected folder in course for selected people
    (b) Selected Resources from selected folder in course for CODEd assignments
    need to pass URL of sequence being printed to &master_seq_to_person_seq()
    otherwise response is: "There are no unhidden resources to print".
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.691 loncom/interface/lonprintout.pm:1.692
--- loncom/interface/lonprintout.pm:1.691	Sun Apr 16 01:33:04 2023
+++ loncom/interface/lonprintout.pm	Sun Apr 16 21:22:47 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.691 2023/04/16 01:33:04 raeburn Exp $
+# $Id: lonprintout.pm,v 1.692 2023/04/16 21:22:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3310,6 +3310,8 @@
                  ($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,6 +3401,8 @@
          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'};