[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1067 and 1.1068

version 1.1067, 2010/06/03 00:07:17 version 1.1068, 2010/06/03 01:46:43
Line 8240  sub metadata { Line 8240  sub metadata {
 # This is not a package - some other kind of start tag  # This is not a package - some other kind of start tag
 #  #
     my $entry=$token->[1];      my $entry=$token->[1];
     my $unikey;      my $unikey='';
   
     if ($entry eq 'import') {      if ($entry eq 'import') {
 #  #
Line 8251  sub metadata { Line 8251  sub metadata {
                         $dir=~s|[^/]*$||;                          $dir=~s|[^/]*$||;
                         $location=&filelocation($dir,$location);                          $location=&filelocation($dir,$location);
     
                         $unikey=&add_prefix_and_part($prefix,$token->[2]->{'part'});                          my $importmode=$token->[2]->{'importmode'};
                         if (defined($token->[2]->{'id'})) {                          if ($importmode eq 'problem') {
                            $unikey.='_'.$token->[2]->{'id'};  # Import as problem
                              $unikey=&add_prefix_and_part($prefix,$token->[2]->{'part'});
                           } elsif ($importmode eq 'part') {
   # Import as part(s)
                              $unikey=&add_prefix_and_part($prefix,$token->[2]->{'id'});
                           } else {
   # Normal import
                              $unikey=&add_prefix_and_part($prefix,$token->[2]->{'part'});
                              if (defined($token->[2]->{'id'})) {
                                 $unikey.='_'.$token->[2]->{'id'};
                              }
                         }                          }
   
   #&logthis("About to use unikey $unikey");
   
  if ($depthcount<20) {   if ($depthcount<20) {
     my $metadata =       my $metadata = 
  &metadata($uri,'keys', $location,$unikey,   &metadata($uri,'keys', $location,$unikey,
Line 8264  sub metadata { Line 8276  sub metadata {
  $metaentry{':'.$meta}=$metaentry{':'.$meta};   $metaentry{':'.$meta}=$metaentry{':'.$meta};
  $metathesekeys{$meta}=1;   $metathesekeys{$meta}=1;
     }      }
  }  
   #&logthis("Metadata $metadata");
                           }
     } else {      } else {
 #  #
 # Not importing, some other kind of non-package, non-library start tag  # Not importing, some other kind of non-package, non-library start tag
Removed from v.1.1067  
changed lines
  Added in v.1.1068

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>