loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.343, 2014/01/15 14:46:27	version 1.345, 2014/08/07 19:53:19
Line 541 sub due_date {	Line 541 sub due_date {
} else {	} else {
$date = $due_date;	$date = $due_date;
}	}
return $date	return $date;
}	}

sub seconds_to_human_length {	sub seconds_to_human_length {
Line 1176 sub get_template_list {	Line 1176 sub get_template_list {
# Provide example link	# Provide example link
my $filename=$file->[0];	my $filename=$file->[0];
$filename=~s{^\Q$londocroot\E}{};	$filename=~s{^\Q$londocroot\E}{};
if (!(grep $filename =~ $_, @noexamplelink)) {	if (!(grep($filename =~ /\Q$_\E$/,@noexamplelink))) {
$result .= ' <span class="LC_fontsize_small">'	$result .= ' <span class="LC_fontsize_small">'
.&Apache::loncommon::modal_link(	.&Apache::loncommon::modal_link(
$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')	$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
.'</span>';	.'</span>';
};	}
$result .= '<br />'."\n";	$result .= '<br />'."\n";
$count ++;	$count ++;
}	}