version 1.48.2.1, 2019/02/06 23:45:14
|
version 1.50, 2018/04/14 17:52:53
|
Line 36 use Apache::lonnet;
|
Line 36 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use LONCAPA::map(); |
use LONCAPA::map(); |
|
use LONCAPA::ltiutils; |
use LONCAPA; |
use LONCAPA; |
use Apache::lonpageflip(); |
use Apache::lonpageflip(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 245 sub handler {
|
Line 246 sub handler {
|
} |
} |
} |
} |
|
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
|
my $mapurl = &Apache::lonnet::declutter($requrl); |
|
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
|
my @crumbs = ({text => $maptitle, no_mt => 1}); |
|
my $args = {'bread_crumbs' => \@crumbs, |
|
'bread_crumbs_nomenu' => 1}; |
|
|
|
# Create the nav map |
# Create the nav map |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
|
|
if (ref($navmap)) { |
if (ref($navmap)) { |
# renderer call |
# renderer call |
if (&Apache::lonnet::is_on_map($requrl)) { |
if (&Apache::lonnet::is_on_map($requrl)) { |
@crumbs = ({text => $crstype.' Contents', |
my ($ltiscope,$ltiuri); |
href => "javascript:gopost('/adm/navmaps','')"}); |
if (($env{'request.lti.login'}) && ($env{'request.lti.uri'})) { |
my $res = $navmap->getResourceByUrl($mapurl); |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
if (ref($res)) { |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $symb = $res->symb(); |
($ltiscope,$ltiuri) = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},$cdom,$cnum); |
if ($symb) { |
} |
my ($parent) = &Apache::lonnet::decode_symb($res->symb()); |
my $mapurl = &Apache::lonnet::declutter($requrl); |
if ($parent ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
my @crumbs; |
my @mapcrumbs = $navmap->recursed_crumbs($parent); |
unless ($ltiscope eq 'resource') { |
if (@mapcrumbs) { |
unless ($ltiscope eq 'map') { |
push(@crumbs,@mapcrumbs); |
@crumbs = ({text => $crstype.' Contents', |
|
href => "javascript:gopost('/adm/navmaps','')"}); |
|
} |
|
my $res = $navmap->getResourceByUrl($mapurl); |
|
if (ref($res)) { |
|
my $symb = $res->symb(); |
|
if ($symb) { |
|
my ($parent) = &Apache::lonnet::decode_symb($res->symb()); |
|
if (($parent ne $env{'course.'.$env{'request.course.id'}.'.url'}) && |
|
!(($ltiscope eq 'map') && ($requrl eq $ltiuri))) { |
|
my @mapcrumbs = $navmap->recursed_crumbs($parent); |
|
if (@mapcrumbs) { |
|
push(@crumbs,@mapcrumbs); |
|
} |
} |
} |
|
$env{'request.symb'} = $symb; |
} |
} |
$env{'request.symb'} = $symb; |
|
} |
} |
} |
} |
|
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
push(@crumbs,{text => $maptitle, no_mt => 1}); |
push(@crumbs,{text => $maptitle, no_mt => 1}); |
$args = {'bread_crumbs' => \@crumbs, |
my $args = {'bread_crumbs' => \@crumbs, |
'bread_crumbs_nomenu' => 1}; |
'bread_crumbs_nomenu' => 1}; |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
$r->print(&Apache::loncommon::start_page($maptitle,undef,$args)); |
$r->print(&Apache::loncommon::start_page($maptitle,undef,$args)); |
|
|
my $renderArgs = { 'cols' => [0,1,2,3], |
my $renderArgs = { 'cols' => [0,1,2,3], |
Line 298 sub handler {
|
Line 307 sub handler {
|
|
|
# If no resources were found let the user know. |
# If no resources were found let the user know. |
if ($renderArgs->{'counter'} == 0) { |
if ($renderArgs->{'counter'} == 0) { |
$r->print('<p class="LC_info">'. |
$r->print("<p><span class=\"LC_info\">". |
&mt('No items found in folder'). |
&mt("This folder is empty.")."</span></p>"); |
'</p>'); |
|
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} else { |
$r->rflush(); |
$r->print(&Apache::loncommon::start_page($maptitle,undef,$args). |
return OK; |
'<p class="LC_info">'. |
|
&mt('Folder no longer appears to be a part of the course'). |
|
'</p>'. |
|
&Apache::loncommon::end_page()); |
|
} |
} |
} else { |
|
$r->print(&Apache::loncommon::start_page($maptitle,undef,$args). |
|
'<p class="LC_warning">'. |
|
&mt('Error: could not determine contents of folder'). |
|
'</p>'. |
|
&Apache::loncommon::end_page()); |
|
} |
} |
$r->rflush(); |
|
return OK; |
|
} |
} |
} |
} |
|
|