loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.420, 2025/03/06 16:42:40	version 1.421, 2025/03/06 16:51:36
Line 2463 sub docs_breadcrumbs {	Line 2463 sub docs_breadcrumbs {
my @row_count;	my @row_count;

sub start_pick_box {	sub start_pick_box {
my ($css_class,$id) = @_;	my ($css_class,$id,$caption,$caption_class) = @_;
if (defined($css_class)) {	if (defined($css_class)) {
$css_class = 'class="'.$css_class.'"';	$css_class = 'class="'.$css_class.'"';
} else {	} else {
Line 2477 sub start_pick_box {	Line 2477 sub start_pick_box {
my $output = <<"END";	my $output = <<"END";
<table $css_class $table_id>	<table $css_class $table_id>
END	END
	if (defined($caption)) {
	if (defined($caption_class)) {
	$caption_class = 'class="'.$caption_class.'"';
	} else {
	$caption_class = 'class="LC_caption"';
	}
	$output .= <<"END";
	<caption $caption_class>$caption</caption>
	END
	}
return $output;	return $output;
}	}