loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.194, 2006/06/05 18:53:03	version 1.196, 2006/06/12 22:03:44
Line 284 sub start_textline {	Line 284 sub start_textline {
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER'	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER'
\|\| $Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {	\|\| ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER' &&
	$Apache::lonhomework::history{"resource.$partid.solved"} !~ /^correct/ )) {
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);	my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
my $maxlength;	my $maxlength;
if ($size eq '') { $size=20; } else {	if ($size eq '') { $size=20; } else {
Line 454 sub file_selector {	Line 455 sub file_selector {
}	}
$result.=&mt("Portfolio files previously selected: <strong>[_1]</strong>",join(', ',@filelist));	$result.=&mt("Portfolio files previously selected: <strong>[_1]</strong>",join(', ',@filelist));
if (@bad_file_list) {	if (@bad_file_list) {
$result.='<br />'.&mt('<font color="red">These file(s) don\'t exist:</font> <strong>[_1]</strong>',join(', ',@bad_file_list));	$result.='<br />'.&mt('<span class="LC_error">These file(s) don\'t exist:</span> <span class="LC_filename">[_1]</span>',join(', ',@bad_file_list));
}	}
}	}
}	}