-
-
+
ENDSELECT
my $diropendb =
- "/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_sel_res.db";
+ LONCAPA::tempdir() .
+ "$env{'user.domain'}\_$env{'user.name'}_sel_res.db";
if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
if ($env{'form.launch'} eq '1') {
&start_fresh_session();
@@ -114,62 +122,27 @@ ENDSELECT
$successtied=1;
# - Evaluate actions from previous page (both cumulatively and chronologically)
- if ($env{'form.catalogmode'} eq 'import') {
- my $acts=$env{'form.acts'};
- my @Acts=split(/b/,$acts);
- my %ahash;
- my %achash;
- my $ac=0;
- # some initial hashes for working with data
- foreach (@Acts) {
- my ($state,$ref)=split(/a/);
- $ahash{$ref}=$state;
- $achash{$ref}=$ac;
- $ac++;
- }
- # sorting through the actions and changing the tied database hash
- foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {
- my $key=$_;
- if ($ahash{$key} eq '1') {
- $selhash{'store_'.$selhash{'pre_'.$key.'_link'}}=
- $selhash{'pre_'.$key.'_title'};
- $selhash{'storectr_'.$selhash{'pre_'.$key.'_link'}}=
- $selhash{'storectr'}+0;
- $selhash{'storectr'}++;
- }
- if ($ahash{$key} eq '0') {
- if ($selhash{'store_'.$selhash{'pre_'.$key.'_link'}}) {
- delete $selhash{'store_'.$selhash{'pre_'.$key.'_link'}};
- }
- }
- }
- # deleting the previously cached listing
- foreach (keys %selhash) {
- if ($_ =~ /^pre_/ && $_ =~/link$/) {
- my $key = $_;
- $key =~ s/^pre_//;
- $key =~ s/_[^_]*$//;
- delete $selhash{'pre_'.$key.'_title'};
- delete $selhash{'pre_'.$key.'_link'};
- }
+ if ($env{'form.catalogmode'} eq 'import') {
+ &Apache::groupsort::update_actions_hash(\%selhash);
}
- }
# -
}
}
# ----------------------------- successtied is now '1' if in working selectmode
my ($errtext,$fatal)=&mapread(&Apache::lonnet::filelocation('',$url),'');
if ($fatal==1) {
- $r->print(''.&mt('Map contents are not shown in order.').'
');
+ $r->print(''
+ .&mt('Map contents are not shown in order.')
+ .'
');
}
my $idx=0;
- foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
- if (defined($_)) {
+ foreach my $entry (&attemptread(&Apache::lonnet::filelocation('',$url))) {
+ if (defined($entry)) {
$idx++;
if ($successtied) {
$r->print('');
} else {
- $r->print('
');
+ $r->print('
');
}
}
}
@@ -214,12 +187,12 @@ ENDCHECKBOX
# ----------------------------------------------------------- Clean out selhash
sub start_fresh_session {
- foreach (keys %selhash) {
- if ($_ =~ /^pre_/) {
- delete $selhash{$_};
+ foreach my $item (keys(%selhash)) {
+ if ($item =~ /^pre_/) {
+ delete $selhash{$item};
}
- if ($_ =~ /^store/) {
- delete $selhash{$_};
+ if ($item =~ /^store/) {
+ delete $selhash{$item};
}
}
}
@@ -235,13 +208,135 @@ sub handler {
$r->send_http_header;
return OK;
}
-
+
+ my $requrl=$r->uri;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['forceselect','launch']);
+ ['forceselect','launch','navmap']);
+
+ if (($env{'request.course.fn'}) && ($env{'form.navmap'}) && ($env{'request.course.id'})) {
+ my $crstype = &Apache::loncommon::course_type();
+ unless (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
+
+ # Check for critical messages and redirect if present.
+ my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'contents');
+ if ($redirect) {
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->header_out(Location => $url);
+ return REDIRECT;
+ }
+
+ # Check if course needs to be re-initialized
+ my $loncaparev = $r->dir_config('lonVersion');
+ my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
+
+ if ($result eq 'switch') {
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+ $r->print(&Apache::loncommon::check_release_result(@reinit));
+ return OK;
+ } elsif ($result eq 'update') {
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
+ if ($ferr) {
+ my $requrl = $r->uri;
+ $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
+ $env{'user.reinit'} = 1;
+ return HTTP_NOT_ACCEPTABLE;
+ }
+ }
+
+ &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
+ my $navmap = Apache::lonnavmaps::navmap->new();
+
+ if (ref($navmap)) {
+ # renderer call
+ if (&Apache::lonnet::is_on_map($requrl)) {
+ my ($ltiscope,$ltiuri);
+ if (($env{'request.lti.login'}) && ($env{'request.lti.uri'})) {
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ ($ltiscope,$ltiuri) = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},$cdom,$cnum);
+ }
+ @crumbs = ();
+ unless ($ltiscope eq 'resource') {
+ unless ($ltiscope eq 'map') {
+ @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;
+ }
+ }
+ }
+ push(@crumbs,{text => $maptitle, no_mt => 1});
+ $args = {'bread_crumbs' => \@crumbs,
+ 'bread_crumbs_nomenu' => 1};
+ $r->print(&Apache::loncommon::start_page($maptitle,undef,$args));
+
+ my $renderArgs = { 'cols' => [0,1,2,3],
+ 'url' => $mapurl,
+ 'navmap' => $navmap,
+ 'suppressNavmap' => 1,
+ 'suppressEmptySequences' => 1,
+ 'filterFunc' => undef,
+ 'resource_no_folder_link' => 1,
+ 'r' => $r,
+ 'caller' => 'sequence',
+ 'notools' => 1,
+ 'iterator_map' => $mapurl,
+ };
+
+ my $render = &Apache::lonnavmaps::render($renderArgs);
+
+ # If no resources were found let the user know.
+ if ($renderArgs->{'counter'} == 0) {
+ $r->print(''.
+ &mt('No items found in folder').
+ '
');
+ }
+ $r->print(&Apache::loncommon::end_page());
+ } else {
+ $r->print(&Apache::loncommon::start_page($maptitle,undef,$args).
+ ''.
+ &mt('Folder no longer appears to be a part of the course').
+ '
'.
+ &Apache::loncommon::end_page());
+ }
+ } else {
+ $r->print(&Apache::loncommon::start_page($maptitle,undef,$args).
+ ''.
+ &mt('Error: could not determine contents of folder').
+ '
'.
+ &Apache::loncommon::end_page());
+ }
+ $r->rflush();
+ return OK;
+ }
+ }
my %hash;
my %bighash;
- my $requrl=$r->uri;
$successtied=0;
# ------------------------------------------------------------ Tie symb db file
@@ -249,6 +344,7 @@ sub handler {
my $dismapid='';
my $exitdisid = '';
my $arrow_dir = '';
+ my $is_encrypted = '';
if (($env{'request.course.fn'}) && (!$env{'form.forceselect'})) {
my $last;
@@ -279,6 +375,9 @@ sub handler {
if (!$env{'request.role.adv'}) {
$randomout = $bighash{'randomout_'.$disid};
}
+ if (!$env{'request.role.adv'}) {
+ $is_encrypted = $bighash{'encrypted_'.$disid};
+ }
} elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
&GDBM_READER(),0640)) {
$last=$hash{'last_known'};
@@ -298,6 +397,9 @@ sub handler {
if (!$env{'request.role.adv'}) {
$randomout = $bighash{'randomout_'.$disid};
}
+ if (!$env{'request.role.adv'}) {
+ $is_encrypted = $bighash{'encrypted_'.$disid};
+ }
}
}
$exitdisid = $disid;
@@ -311,29 +413,42 @@ sub handler {
# now either disurl is set (going to first page), or we need another display
if ($disurl) {
# -------------------------------------------------- Has first or last resource
- &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],
- 'last_known' => [$disurl,$dismapid]);
+ my $showdisurl = $disurl;
+ if ($is_encrypted) {
+ $showdisurl = &Apache::lonenc::encrypted($disurl);
+ }
+ if ($disurl =~ m{/adm/navmaps(\?|$)}) {
+ &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid]);
+ } else {
+ &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],
+ 'last_known' => [$disurl,$dismapid]);
+ }
&Apache::loncommon::content_type($r,'text/html');
- $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);
+ $r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}).
+ $showdisurl);
return REDIRECT;
} else {
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
if ($exitdisid eq '' && $arrow_dir ne '') {
my %lt =&Apache::lonlocal::texthash(
- 'back' => 'beginning',
- 'forward' => 'end',
'nere' => 'Next resource could not be displayed',
'goba' => 'Go Back',
- 'nacc' => 'Navigate Course Content',
+ 'nacc' => 'Course Contents',
);
- my $warnmsg = &mt('As all folders and sequences ');
+ if (&Apache::loncommon::course_type() eq 'Community') {
+ $lt{'nav'} = &mt('Community Contents');
+ }
+ my $warnmsg;
if ($arrow_dir eq 'forward') {
- $warnmsg .= &mt('following the current resource were empty').',';
+ $warnmsg = &mt('As all folders and sequences '
+ .'following the current resource were empty, '
+ .'you have now reached the end of the course.');
} elsif ($arrow_dir eq 'back') {
- $warnmsg .= &mt('preceding the current resource were empty').',';
+ $warnmsg = &mt('As all folders and sequences '
+ .'preceding the current resource were empty, '
+ .'you have now reached the beginning of the course.');
}
- $warnmsg .= &mt('you have now reached the').' '.$lt{$arrow_dir}.' '.&mt('of the course.');
my $start_page=
&Apache::loncommon::start_page('Empty Folder/Sequence');
my $end_page=
@@ -358,7 +473,35 @@ ENDNONE
1;
__END__
+=head1 NAME
+
+Apache::lonsequence
+
+=head1 SYNOPSIS
+
+Handler for showing sequence objects of
+educational resources.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 SUBROUTINES
+
+=over
+
+=item handler()
+
+=item viewmap()
+
+=item attemptread()
+
+=item mapread()
+
+=item start_fresh_session()
+
+=back
+=cut
500 Internal Server Error
Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at
root@localhost to inform them of the time this error occurred,
and the actions you performed just before this error.
More information about this error may be available
in the server error log.