loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.275, 2010/12/19 21:12:20	version 1.276, 2010/12/31 00:58:10
Line 595 sub current_file_submissions {	Line 595 sub current_file_submissions {
}	}
}	}
}	}
	my $num = 0;
foreach my $name (sort(keys(%okfiles))) {	foreach my $name (sort(keys(%okfiles))) {
if (ref($okfiles{$name}) eq 'ARRAY') {	if (ref($okfiles{$name}) eq 'ARRAY') {
my $num = 0;
foreach my $url (@{$okfiles{$name}}) {	foreach my $url (@{$okfiles{$name}}) {
if (ref($rows{$url}) eq 'HASH') {	if (ref($rows{$url}) eq 'HASH') {
my $link = $rows{$url}{link};	my $link = $rows{$url}{link};
Line 635 sub current_file_submissions {	Line 635 sub current_file_submissions {
if ($header_shown) {	if ($header_shown) {
$result .= &Apache::loncommon::end_data_table().	$result .= &Apache::loncommon::end_data_table().
'<br /><span class="LC_warning">'.	'<br /><span class="LC_warning">'.
&mt('Items checked for deletion will not be included amongst the files evaluated when your submission is graded.').'</span>';	&mt('Exclude existing file(s) from grading by checking the "Delete?" checkbox(es) and clicking "Submit Answer"').'</span>';
}	}
if (@bad_file_list) {	if (@bad_file_list) {
my $bad_files = '<span class="LC_filename">'.	my $bad_files = '<span class="LC_filename">'.