loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.340, 2013/08/21 16:07:49	version 1.341, 2014/01/10 17:03:30
Line 1133 sub get_template_list {	Line 1133 sub get_template_list {
&mt(&Apache::lonnet::metadata($_, 'help'))]} (@files);	&mt(&Apache::lonnet::metadata($_, 'help'))]} (@files);
@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files);	@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files);
my ($midpoint,$seconddiv,$numfiles);	my ($midpoint,$seconddiv,$numfiles);
	my @noexamplelink = ('blank.problem','blank.library','script.library');
$numfiles = 0;	$numfiles = 0;
foreach my $file (@files) {	foreach my $file (@files) {
next if ($file->[1] !~ /\S/);	next if ($file->[1] !~ /\S/);
Line 1171 sub get_template_list {	Line 1172 sub get_template_list {
if ($file->[3]) {	if ($file->[3]) {
$result.=&Apache::loncommon::help_open_topic($file->[3]);	$result.=&Apache::loncommon::help_open_topic($file->[3]);
}	}
	# Provide example link
my $filename=$file->[0];	my $filename=$file->[0];
$filename=~s{^\Q$londocroot\E}{};	$filename=~s{^\Q$londocroot\E}{};
$result.=' <span class="LC_fontsize_small">'	if (!(grep $filename =~ $_, @noexamplelink)) {
.&Apache::loncommon::modal_link($filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')	$result .= ' <span class="LC_fontsize_small">'
.'</span><br />'."\n";	.&Apache::loncommon::modal_link(
	$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
	.'</span>';
	};
	$result .= '<br />'."\n";
$count ++;	$count ++;
}	}
if ($numfiles > 0) {	if ($numfiles > 0) {