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

[raeburn]

raeburn		Wed Feb  8 15:15:24 2023 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - Bug 6974
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.686 loncom/interface/lonprintout.pm:1.687
--- loncom/interface/lonprintout.pm:1.686	Tue Jan 17 17:38:20 2023
+++ loncom/interface/lonprintout.pm	Wed Feb  8 15:15:24 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.686 2023/01/17 17:38:20 raeburn Exp $
+# $Id: lonprintout.pm,v 1.687 2023/02/08 15:15:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3304,8 +3304,12 @@
 
          my $map;
          if ($helper->{VARS}->{'symb'}) {
-             ($map, my $id, my $resource) =
-                 &Apache::lonnet::decode_symb($helper->{VARS}->{'symb'});
+             unless ((($print_type eq 'all_problems_students') ||
+                      ($print_type eq 'incomplete_problems_selpeople_course')) &&
+                      $perm{'pfo'}) {
+                 ($map, my $id, my $resource) =
+                     &Apache::lonnet::decode_symb($helper->{VARS}->{'symb'});
+             }
          }
 
 	 #loop over students