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)'). |