version 1.160, 2021/01/02 21:07:36
|
version 1.162, 2022/10/27 20:33:31
|
Line 84 use Apache::lonlocal;
|
Line 84 use Apache::lonlocal;
|
use Apache::lonmsgdisplay(); |
use Apache::lonmsgdisplay(); |
use Apache::lontemplate; |
use Apache::lontemplate; |
use Apache::longroup; |
use Apache::longroup; |
|
use Apache::lonhtmlcommon(); |
use HTML::Entities(); |
use HTML::Entities(); |
use Image::Magick; |
use Image::Magick; |
|
|
Line 108 sub handler {
|
Line 109 sub handler {
|
$is_course = &Apache::lonnet::is_course($cdom,$cnum); |
$is_course = &Apache::lonnet::is_course($cdom,$cnum); |
} |
} |
|
|
|
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
my $candisplay = 1; |
my $candisplay = 1; |
if (!$is_course) { |
if (!$is_course) { |
if ($action ne 'portfolio') { |
if ($action ne 'portfolio') { |
Line 153 sub handler {
|
Line 155 sub handler {
|
'</ul>'); |
'</ul>'); |
} else { |
} else { |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('port',$cnum,$cdom); |
&Apache::loncommon::blocking_status('port',$clientip,$cnum,$cdom); |
if (!$blocked) { |
if (!$blocked) { |
&display_portfolio_files($r,$is_course); |
&display_portfolio_files($r,$is_course); |
} else { |
} else { |
Line 221 sub handler {
|
Line 223 sub handler {
|
$args->{'no_nav_bar'} = 1; |
$args->{'no_nav_bar'} = 1; |
} elsif (!$env{'form.register'}) { #Don't show breadcrumbs twice, when this page is part of course content and you call it |
} elsif (!$env{'form.register'}) { #Don't show breadcrumbs twice, when this page is part of course content and you call it |
if (($env{'request.course.id'}) && |
if (($env{'request.course.id'}) && |
($env{'form.folderpath'} =~ /^supplemental/)) { |
($env{'form.folderpath'} =~ /^supplemental/)) { |
|
&Apache::loncommon::validate_folderpath(1,'',$coursenum,$coursedomain); |
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
my $title = $env{'form.title'}; |
my $title = $env{'form.title'}; |
if ($title eq '') { |
if ($title eq '') { |
Line 241 sub handler {
|
Line 244 sub handler {
|
$r->print($start_page); |
$r->print($start_page); |
} |
} |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('about',$cnum,$cdom); |
&Apache::loncommon::blocking_status('about',$clientip,$cnum,$cdom); |
if ($blocked) { |
if ($blocked) { |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
$r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\'); |
$r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\'); |