[LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm

banghart lon-capa-cvs@mail.lon-capa.org
Tue, 02 Aug 2005 17:01:23 -0000


banghart		Tue Aug  2 13:01:23 2005 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  	Continuing work, not done, but something before meeting is called
  	to order!
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.100 loncom/interface/lonmeta.pm:1.101
--- loncom/interface/lonmeta.pm:1.100	Fri Jul 15 08:57:53 2005
+++ loncom/interface/lonmeta.pm	Tue Aug  2 13:01:20 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.100 2005/07/15 12:57:53 banghart Exp $
+# $Id: lonmeta.pm,v 1.101 2005/08/02 17:01:20 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -298,9 +298,12 @@
     $r->print('</form>');
     
     foreach my $key (keys %env) {
+        
         if ($key =~ /\.metadata\./) {
+            my $course_key = $key;
+            $course_key =~ s/\.metadata\..*//;
             $r->print('<option>');
-            $r->print($key);
+            $r->print($env{$course_key.'.description'});
             $r->print('</option>');
         }
     }