--- loncom/publisher/lonpublisher.pm	2001/06/23 18:26:40	1.31
+++ loncom/publisher/lonpublisher.pm	2001/08/07 12:07:39	1.32
@@ -11,7 +11,7 @@
 # 04/16/2001 Scott Harrison
 # 05/03,05/05,05/07 Gerd Kortemeyer
 # 05/28/2001 Scott Harrison
-# 06/23 Gerd Kortemeyer
+# 06/23,08/07 Gerd Kortemeyer
 
 package Apache::lonpublisher;
 
@@ -49,9 +49,15 @@ sub metaeval {
            if ($token->[0] eq 'S') {
 	      my $entry=$token->[1];
               my $unikey=$entry;
+              if (defined($token->[2]->{'package'})) { 
+                  $unikey.='_package_'.$token->[2]->{'package'};
+              } 
               if (defined($token->[2]->{'part'})) { 
                  $unikey.='_'.$token->[2]->{'part'}; 
 	      }
+              if (defined($token->[2]->{'id'})) { 
+                  $unikey.='_'.$token->[2]->{'id'};
+              } 
               if (defined($token->[2]->{'name'})) { 
                  $unikey.='_'.$token->[2]->{'name'}; 
 	      }
@@ -310,6 +316,7 @@ sub publish {
 # -------------------------------------------------- Parse content for metadata
 
         $allmeta=Apache::lonxml::xmlparse('meta',$content);
+
         &metaeval($allmeta);
 
 # ---------------- Find and document discrepancies in the parameters and stores