|
version 1.706, 2025/01/15 23:10:25
|
version 1.707, 2025/01/15 23:19:30
|
|
Line 4785 CHOOSE_ANON2
|
Line 4785 CHOOSE_ANON2
|
| } |
} |
| |
|
| # FIXME: That RE should come from a library somewhere. |
# FIXME: That RE should come from a library somewhere. |
| if (($perm{'pav'} |
if (($perm{'pav'} |
| && ($subdir ne '') |
&& ($subdir ne '') |
| && $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/' |
&& $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/' |
| && (defined($helper->{'VARS'}->{'construction'}) |
&& (defined($helper->{'VARS'}->{'construction'}) |
| || |
|| |
| (&Apache::lonnet::allowed('bre',$subdir) eq 'F' |
(&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}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/) |
| )) |
)) |
| && $helper->{VARS}->{'assignment'} eq "" |
&& $helper->{VARS}->{'assignment'} eq "" |
| ) { |
) { |
| my $pretty_dir = &Apache::lonnet::hreflocation($subdir); |
my $pretty_dir = &Apache::lonnet::hreflocation($subdir); |
|
Line 5048 CHOOSE_FROM_ANY_SEQUENCE
|
Line 5048 CHOOSE_FROM_ANY_SEQUENCE
|
| my $startedTable = 0; # have we started an HTML table yet? (need |
my $startedTable = 0; # have we started an HTML table yet? (need |
| # to close it later) |
# to close it later) |
| |
|
| if (($perm{'pav'} and $perm{'vgr'}) or |
if (($perm{'pav'} and $perm{'vgr'}) or |
| ($helper->{VARS}->{'construction'} eq '1')) { |
($helper->{VARS}->{'construction'} eq '1')) { |
| &addMessage('<br />' |
&addMessage('<br />' |
| .'<h3>'.&mt('Print Options').'</h3>' |
.'<h3>'.&mt('Print Options').'</h3>' |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface