loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.763, 2006/07/20 01:18:46
+version 1.764, 2006/07/20 03:00:45
  Line 5155  sub devalidatecourseresdata {
      &devalidate_cache_new('courseres',$hashid);
  }
- # ------------------------------------------------------ Devalidate title cache
- sub devalidate_title_cache {
-     my ($url)=@_;
-     if (!$env{'request.course.id'}) { return; }
-     my $symb=&symbread($url);
-     if (!$symb) { return; }
-     my $key=$env{'request.course.id'}."\0".$symb;
-     &devalidate_cache_new('title',$key);
- }
  # --------------------------------------------------- Course Resourcedata Query
- Line 5887  sub metadata_generate_part0 {
+ Line 5877  sub metadata_generate_part0 {
      }
  }
+ # ------------------------------------------------------ Devalidate title cache
+ sub devalidate_title_cache {
+     my ($url)=@_;
+     if (!$env{'request.course.id'}) { return; }
+     my $symb=&symbread($url);
+     if (!$symb) { return; }
+     my $key=$env{'request.course.id'}."\0".$symb;
+     &devalidate_cache_new('title',$key);
+ }
  # ------------------------------------------------- Get the title of a resource
  sub gettitle {