--- loncom/interface/lonprintout.pm 2025/01/15 23:10:25 1.706 +++ loncom/interface/lonprintout.pm 2025/01/15 23:19:30 1.707 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.706 2025/01/15 23:10:25 raeburn Exp $ +# $Id: lonprintout.pm,v 1.707 2025/01/15 23:19:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4785,15 +4785,15 @@ CHOOSE_ANON2 } # FIXME: That RE should come from a library somewhere. - if (($perm{'pav'} - && ($subdir ne '') + if (($perm{'pav'} + && ($subdir ne '') && $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/' && (defined($helper->{'VARS'}->{'construction'}) || (&Apache::lonnet::allowed('bre',$subdir) eq 'F' - && + && $helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/) - )) + )) && $helper->{VARS}->{'assignment'} eq "" ) { my $pretty_dir = &Apache::lonnet::hreflocation($subdir); @@ -5048,7 +5048,7 @@ CHOOSE_FROM_ANY_SEQUENCE my $startedTable = 0; # have we started an HTML table yet? (need # to close it later) - if (($perm{'pav'} and $perm{'vgr'}) or + if (($perm{'pav'} and $perm{'vgr'}) or ($helper->{VARS}->{'construction'} eq '1')) { &addMessage('
' .'

'.&mt('Print Options').'

'