loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2003/01/09 21:33:07	version 1.67, 2003/01/24 20:40:37
Line 1021 KEYWORDS	Line 1021 KEYWORDS
my ($ressub,$subval) = split(/:/,$_,2);	my ($ressub,$subval) = split(/:/,$_,2);
$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.	$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.
$partid.'</b> <font color="#999999">( ID '.$respid.	$partid.'</b> <font color="#999999">( ID '.$respid.
' )</font>   <b>Answer: </b>'.	' )</font>   '.
	($record{"resource.$partid.$respid.uploadedurl"}?
	'<a href="'.
	&Apache::lonnet::tokenwrapper($record{"resource.$partid.$respid.uploadedurl"}).
	'"><img src="/adm/lonIcons/unknown.gif" border=0"> File uploaded by student</a> <font color="red" size="1">Like all files provided by users, this file may contain virusses</font><br />':'').
	'<b>Answer: </b>'.
&keywords_highlight($subval).'</td></tr>'."\n"	&keywords_highlight($subval).'</td></tr>'."\n"
if ($ENV{'form.lastSub'} eq 'lastonly' \|\|	if ($ENV{'form.lastSub'} eq 'lastonly' \|\|
($ENV{'form.lastSub'} eq 'hdgrade' &&	($ENV{'form.lastSub'} eq 'hdgrade' &&