loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2004/04/14 18:30:36	version 1.69, 2004/04/14 18:56:36
Line 549 ENDHEAD	Line 549 ENDHEAD
sub print_dynamic_metadata {	sub print_dynamic_metadata {
my ($r,$uri,$content) = @_;	my ($r,$uri,$content) = @_;
#	#
my %content = \$content;	my %content = %$content;
my %lt=&fieldnames();	my %lt=&fieldnames();
#	#
my $description = 'Dynamic Metadata (updated periodically)';	my $description = 'Dynamic Metadata (updated periodically)';
Line 572 sub print_dynamic_metadata {	Line 572 sub print_dynamic_metadata {
&prettyprint($_,$dynmeta{$_})."</td></tr>\n");	&prettyprint($_,$dynmeta{$_})."</td></tr>\n");
}	}
$r->print('</table>');	$r->print('</table>');
	#
	# Assessment statistics
if ($uri=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($uri=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
# This is an assessment, print assessment data	# This is an assessment, print assessment data
$r->print(	$r->print(
Line 605 sub print_dynamic_metadata {	Line 607 sub print_dynamic_metadata {
'</h4>'.	'</h4>'.
&Apache::lonmsg::retrieve_author_res_msg($uri));	&Apache::lonmsg::retrieve_author_res_msg($uri));
}	}
	#
# All other stuff	# All other stuff
$r->print('<h3>'.	$r->print('<h3>'.
&mt('Additional Metadata (non-standard, parameters, exports)').	&mt('Additional Metadata (non-standard, parameters, exports)').