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

[raeburn]

raeburn		Sat Feb  7 02:24:22 2026 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - Bug 6121. PDF Form item in second menu row in header omitted for course
    personnel with pfo priv.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.570 loncom/interface/lonmenu.pm:1.571
--- loncom/interface/lonmenu.pm:1.570	Sat Feb  7 00:00:20 2026
+++ loncom/interface/lonmenu.pm	Sat Feb  7 02:24:22 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.570 2026/02/07 00:00:20 raeburn Exp $
+# $Id: lonmenu.pm,v 1.571 2026/02/07 02:24:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -495,6 +495,7 @@
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);
+    my $canfpfo       = &Apache::lonnet::allowed('pfo', $crs_sec);
     my $author        = &getauthor();
 
     my ($is_author,$is_coauthor);
@@ -531,7 +532,9 @@
                 $showresv = 1;
             }
         }
-        $showform = &Apache::loncommon::pdfforms_allowed();
+        unless ($canfpfo) {
+            $showform = &Apache::loncommon::pdfforms_allowed();
+        }
         if ($env{'request.course.groups'} ne '') {
             foreach my $group (split(/:/,$env{'request.course.groups'})) {
                 next unless ($group =~ /^\w+$/);