--- loncom/interface/lonmeta.pm 2004/06/16 18:33:46 1.80 +++ loncom/interface/lonmeta.pm 2004/06/17 15:05:59 1.81 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.80 2004/06/16 18:33:46 matthew Exp $ +# $Id: lonmeta.pm,v 1.81 2004/06/17 15:05:59 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -61,7 +61,6 @@ use Apache::lonmsg; ############################################################ sub get_dynamic_metadata_from_sql { my ($url) = shift(); - # &Apache::lonnet::logthis('url = '.$url); my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:); if (! defined($authordom)) { $authordom = shift(); @@ -113,7 +112,6 @@ sub get_dynamic_metadata_from_sql { my $url = $Data[0]; for (my $i=0;$i<=$#Fields;$i++) { $ReturnHash{$url}->{$Fields[$i]}=$Data[$i]; - # &Apache::lonnet::logthis(' '.$Fields[$i].' => '.$Data[$i]); } } $finished = 1; @@ -832,7 +830,7 @@ sub print_dynamic_metadata { # All other stuff $r->print('

'. &mt('Additional Metadata (non-standard, parameters, exports)'). - '

'); + ''); foreach (sort(keys(%content))) { my $name=$_; if ($name!~/\.display$/) { @@ -850,13 +848,14 @@ sub print_dynamic_metadata { $name.'.'.$_).'; '; } } - $r->print(''.$display.': '.$content{$name}); + $r->print('\n"); } } + $r->print("
'.$display.''.$content{$name}); if ($otherinfo) { $r->print(' ('.$otherinfo.')'); } - $r->print("
\n"); + $r->print("
"); return; }