--- loncom/interface/lonmeta.pm 2005/12/08 02:17:56 1.135 +++ loncom/interface/lonmeta.pm 2005/12/13 11:52:37 1.137 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.135 2005/12/08 02:17:56 banghart Exp $ +# $Id: lonmeta.pm,v 1.137 2005/12/13 11:52:37 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -291,8 +291,8 @@ sub fieldnames { } sub select_course { - my ($r)=@_; my %courses; + my $output; foreach my $key (keys (%env)) { if ($key =~ m/\.metadata\./) { $key =~ m/^course\.(.+)(\.metadata.+$)/; @@ -302,30 +302,30 @@ sub select_course { $courses{$coursekey} = $value; } } - $r->print('