loncom/interface/lonindexcourse.pm - diff

Return to lonindexcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2024/12/31 19:28:29	version 1.6, 2025/02/26 23:04:40
Line 93 sub course_index {	Line 93 sub course_index {
# Output	# Output
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
my $currentchar='';	my $currentchar='';
	&Apache::loncommon::set_data_table_count(1);
foreach my $lword (sort(keys(%indexhash))) {	foreach my $lword (sort(keys(%indexhash))) {
unless ($lword=~/\w/) { next; }	unless ($lword=~/\w/) { next; }
if ($lword=~/^\d+$/) { next; }	if ($lword=~/^\d+$/) { next; }
Line 102 sub course_index {	Line 103 sub course_index {
'<th>'.$firstchar.'</th><th> </th>'.&Apache::loncommon::end_data_table_header_row());	'<th>'.$firstchar.'</th><th> </th>'.&Apache::loncommon::end_data_table_header_row());
$currentchar=$firstchar;	$currentchar=$firstchar;
}	}
$r->print("\n".&Apache::loncommon::start_data_table_row()."<td>$lword</td><td>");	$r->print("\n".&Apache::loncommon::continue_data_table_row()."<td>$lword</td><td>");
foreach my $href (split(/\,/,$indexhash{$lword})) {	foreach my $href (split(/\,/,$indexhash{$lword})) {
unless ($href) { next; }	unless ($href) { next; }
$r->print('   <a href="'.$href.'">'.$indextitles{$href}.'</a>');	$r->print('   <a href="'.$href.'">'.$indextitles{$href}.'</a>');
}	}
$r->print("</td>".&Apache::loncommon::start_data_table_row());	$r->print("</td>".&Apache::loncommon::end_data_table_row());
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
}	}