loncom/metadata_database/LONCAPA/lonmetadata.pm - diff

Return to lonmetadata.pm CVS log

Up to [LON-CAPA] / loncom / metadata_database / LONCAPA

version 1.25, 2007/12/07 22:31:08	version 1.27, 2009/04/29 15:21:00
Line 935 sub process_dynamic_metadata {	Line 935 sub process_dynamic_metadata {
}	}
#	#
# put together comments	# put together comments
my $comments = '<div class="LCevalcomments">';	my $comments = '';
foreach my $evaluator (keys(%{$resdata->{'evaluation'}->{'comments'}})){	foreach my $evaluator (keys(%{$resdata->{'evaluation'}->{'comments'}})){
$comments .=	$comments .=
'<p>'.	'<p>'.
'<b>'.$evaluator.'</b>:'.	'<b>'.$evaluator.'</b>: '.
$resdata->{'evaluation'}->{'comments'}->{$evaluator}.	$resdata->{'evaluation'}->{'comments'}->{$evaluator}.
'</p>';	'</p>';
}	}
$comments .= '</div>';	if ($comments) {
$data{'comments'} = $comments;	$comments = '<div class="LCevalcomments">'
	.$comments
	.'</div>';
	$data{'comments'} = $comments;
	}
#	#
if (exists($resdata->{'stats'})) {	if (exists($resdata->{'stats'})) {
$data{'stats'} = $resdata->{'stats'};	$data{'stats'} = $resdata->{'stats'};