--- loncom/interface/lonnavmaps.pm 2025/05/26 19:55:09 1.574
+++ loncom/interface/lonnavmaps.pm 2025/05/27 23:31:49 1.575
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.574 2025/05/26 19:55:09 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.575 2025/05/27 23:31:49 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1380,13 +1380,17 @@ sub cmp_title {
sub render {
my $args = shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
- my $result = '';
# Configure the renderer.
my $cols = $args->{'cols'};
if (!defined($cols)) {
# no columns, no nav maps.
return '';
}
+ my $legend = '';
+ my $tools = '';
+ my $result = '';
+ my $tools_printed = 0;
+ my $tablestarted = 0;
my $navmap;
if (defined($args->{'navmap'})) {
$navmap = $args->{'navmap'};
@@ -1604,15 +1608,15 @@ sub render {
# Print key?
if ($printKey) {
my $location = &Apache::loncommon::lonhttpdurl("/adm/lonMisc");
- $result .= '
'.
- ''."\n";
+ $legend = ''.
+ ''."\n";
}
if ($printCloseAll && !$args->{'resource_no_folder_link'}) {
@@ -1632,9 +1636,9 @@ sub render {
"location.href='$link'",$text);
}
} else {
- $result.= ''.&mt($text).'';
+ $tools = ''.&mt($text).'';
}
- $result .= "\n";
+ $tools .= "\n";
}
# Check for any unread discussions in all resources.
@@ -1646,7 +1650,7 @@ sub render {
my $time=time;
my $submit = &mt($markread);
my $querystr = &HTML::Entities::encode($ENV{'QUERY_STRING'},'<>&"');
- $result .= (<
@@ -1663,12 +1667,12 @@ END
}
if ($totdisc > 0) {
$haveDisc =~ s/:$//;
- $result .= (<
END
}
}
- $result .= <
END
@@ -1693,31 +1697,15 @@ END
}
if ($args->{'caller'} eq 'navmapsdisplay') {
- $result .= &show_linkitems_toolbar($args,$condition);
+ $tools .= &show_linkitems_toolbar($args,$condition);
} elsif ($args->{'sort_html'}) {
- $result.=$args->{'sort_html'};
+ $tools .= $args->{'sort_html'};
}
- #$result .= "
\n";
- if ($r) {
- $r->print($result);
- $r->rflush();
- $result = "";
- }
+ #$tools .= "
\n";
# End parameter setting
-
- $result .= "
\n";
# Data
- if ($counter) {
- $result.=&Apache::loncommon::start_data_table("LC_tableOfContent").
- &Apache::loncommon::start_data_table_header_row('LC_visually_hidden').
- ''.&mt('Resource or Folder').' | '.
- ''.&mt('Alerts').' | '.
- ''.&mt('Status Icon').' | '.
- ''.&mt('Date/Completion Status').' | '.
- &Apache::loncommon::end_data_table_row()."\n";
- }
my $res = "Apache::lonnavmaps::resource";
my %condenseStatuses =
@@ -1956,6 +1944,16 @@ END
}
$args->{'counter'}++;
+ unless ($tablestarted) {
+ $result.=&Apache::loncommon::start_data_table("LC_tableOfContent").
+ &Apache::loncommon::start_data_table_header_row('LC_visually_hidden').
+ ''.&mt('Resource or Folder').' | '.
+ ''.&mt('Alerts').' | '.
+ ''.&mt('Status Icon').' | '.
+ ''.&mt('Date/Completion Status').' | '.
+ &Apache::loncommon::end_data_table_row()."\n";
+ $tablestarted = 1;
+ }
# Does it have multiple parts?
$args->{'multipart'} = 0;
@@ -2106,6 +2104,12 @@ END
}
if ($r && $rownum % 20 == 0) {
+ unless ($tools_printed) {
+ $r->print($legend.$tools);
+ $legend = "";
+ $tools = "";
+ $tools_printed = 1;
+ }
$r->print($result);
$result = "";
$r->rflush();
@@ -2121,8 +2125,8 @@ END
}
}
- if ($counter) {
- $result.=&Apache::loncommon::end_data_table();
+ if ($tablestarted) {
+ $result .= &Apache::loncommon::end_data_table();
}
# Print out the part that jumps to #curloc if it exists
@@ -2141,12 +2145,23 @@ if (location.href.indexOf('#curloc')==-1
}
if ($r) {
+ unless ($tools_printed) {
+ if (($args->{'counter'}) || ($userCanSeeHidden) ||
+ (($args->{'caller'} eq 'navmapsdisplay') &&
+ ($env{'form.showOnlyHomework'} ||
+ $ENV{QUERY_STRING} =~ /^jumpToFirstHomework/))) {
+ $r->print($legend.$tools);
+ }
+ $legend = "";
+ $tools = "";
+ $tools_printed = 1;
+ }
$r->print($result);
$result = "";
$r->rflush();
}
- return $result;
+ return $legend.$tools.$result;
}
sub add_linkitem {