|
version 1.25, 2007/12/07 22:31:08
|
version 1.26, 2009/04/21 15:38:05
|
|
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) { |
| |
$comments = '<div class="LCevalcomments">' |
| |
.$comments |
| |
.'</div>'; |
| |
} |
| $data{'comments'} = $comments; |
$data{'comments'} = $comments; |
| # |
# |
| if (exists($resdata->{'stats'})) { |
if (exists($resdata->{'stats'})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmetadata.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / metadata_database / LONCAPA