--- loncom/lonnet/perl/lonnet.pm	2001/10/11 17:56:46	1.163
+++ loncom/lonnet/perl/lonnet.pm	2001/10/16 08:53:19	1.164
@@ -131,6 +131,7 @@
 # 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21,9/26,
 # 10/2 Gerd Kortemeyer
 # 10/5,10/10 Scott Harrison
+# 10/15 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -1910,10 +1911,6 @@ sub EXT {
                               $spacequalifierrest};
     } elsif ($realm eq 'resource') {
        if ($ENV{'request.course.id'}) {
-
-#	   print '<br>'.$space.' - '.$qualifier.' - '.$spacequalifierrest;
-
-
 # ----------------------------------------------------- Cascading lookup scheme
          my $symbp;
          if ($symbparm) {
@@ -2011,7 +2008,7 @@ sub EXT {
 # ------------------------------------------------------------------ Cascade up
 
       unless ($space eq '0') {
-          my ($part,$id)=split(/\_/,$space);
+          my ($part,$id)=split(/(\.|\_)/,$space);
           if ($id) {
 	      my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest,
                                    $symbparm);
@@ -2060,7 +2057,7 @@ sub metadata {
                  $keyroot.='_'.$token->[2]->{'part'}; 
 	      }
               if (defined($token->[2]->{'id'})) { 
-                 $keyroot.='_'.$token->[2]->{'id'}; 
+                 $keyroot.='.'.$token->[2]->{'id'}; 
 	      }
               if ($metacache{$uri.':packages'}) {
                  $metacache{$uri.':packages'}.=','.$package.$keyroot;
@@ -2073,6 +2070,7 @@ sub metadata {
                       my $value=$packagetab{$_};
 		      my $part=$keyroot;
                       $part=~s/^\_//;
+                      $part=~s/\./\_/g;
                       if ($subp eq 'display') {
 			  $value.=' [Part: '.$part.']';
                       }
@@ -2092,7 +2090,7 @@ sub metadata {
                  $unikey.='_'.$token->[2]->{'part'}; 
 	      }
               if (defined($token->[2]->{'id'})) { 
-                 $unikey.='_'.$token->[2]->{'id'}; 
+                 $unikey.='.'.$token->[2]->{'id'}; 
 	      }
               if (defined($token->[2]->{'name'})) { 
                  $unikey.='_'.$token->[2]->{'name'};