loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.337, 2003/03/11 03:22:45
+version 1.338, 2003/03/14 02:26:12
  Line 3184  sub metadata {
  # the next is the end of "start tag"
  	 }
         }
-        $metacache{$uri.':keys'}=join(',',keys %metathesekeys);
+ # are there custom rights to evaluate
+ 	if ($metacache{$uri.':copyright'} eq 'custom') {
+     #
+     # Importing a rights file here
+     #
+                  unless ($depthcount) {
+ 		     my $location=$metacache{$uri.':customdistributionfile'};
+ 		     my $dir=$filename;
+ 		     $dir=~s|[^/]*$||;
+ 		     $location=&filelocation($dir,$location);
+ 		     foreach (sort(split(/\,/,&metadata($uri,'keys',
+ 							$location,'_rights',
+ 							$depthcount+1)))) {
+                          $metathesekeys{$_}=1;
+ 		     }
+ 		 }
+ 	     }
+    $metacache{$uri.':keys'}=join(',',keys %metathesekeys);
  	&metadata_generate_part0(\%metathesekeys,\%metacache,$uri);
         $metacache{$uri.':allpossiblekeys'}=join(',',keys %metathesekeys);
         $metacache{$uri.':cachedtimestamp'}=time;