[LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm /publisher lonrights.pm

[albertel]

albertel		Wed Apr 26 10:53:52 2006 EDT

  Modified files:              
    /loncom/publisher	lonrights.pm 
    /loncom/interface	lonmeta.pm 
  Log:
  - don't cache the coursedescription data to the env cache for one time use data
  
  
Index: loncom/publisher/lonrights.pm
diff -u loncom/publisher/lonrights.pm:1.18 loncom/publisher/lonrights.pm:1.19
--- loncom/publisher/lonrights.pm:1.18	Thu Apr  6 18:15:19 2006
+++ loncom/publisher/lonrights.pm	Wed Apr 26 10:53:48 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show and edit custom distribution rights
 #
-# $Id: lonrights.pm,v 1.18 2006/04/06 22:15:19 albertel Exp $
+# $Id: lonrights.pm,v 1.19 2006/04/26 14:53:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -289,7 +289,8 @@
           $r->print('</td></tr><tr><td colspan="3" align="right">');
           if ($rcourse) {
 	      my %descript=
-                 &Apache::lonnet::coursedescription($rdom.'_'.$rcourse);
+                 &Apache::lonnet::coursedescription($rdom.'_'.$rcourse,
+						    {'one_time' => 1});
               $r->print($descript{'description'}.'&nbsp;&nbsp;&nbsp;');
           }
 	  if ($constructmode) {
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.153 loncom/interface/lonmeta.pm:1.154
--- loncom/interface/lonmeta.pm:1.153	Thu Mar 16 17:12:17 2006
+++ loncom/interface/lonmeta.pm	Wed Apr 26 10:53:52 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.153 2006/03/16 22:12:17 albertel Exp $
+# $Id: lonmeta.pm,v 1.154 2006/04/26 14:53:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -486,7 +486,9 @@
         my @Courses = split(/\s*\,\s*/,$value);
         my $Str='<font size="-1"><ul>';
         foreach my $course (@Courses) {
-            my %courseinfo = &Apache::lonnet::coursedescription($course);
+            my %courseinfo =
+		&Apache::lonnet::coursedescription($course,
+						   {'one_time' => 1});
             if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
                 next;
             }
@@ -944,7 +946,9 @@
             foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
                 my $data = $dynmeta{'stats'}->{$identifier};
                 my $course = $data->{'course'};
-                my %courseinfo = &Apache::lonnet::coursedescription($course);
+                my %courseinfo = 
+		    &Apache::lonnet::coursedescription($course,
+						       {'one_time' => 1});
                 if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
                     &Apache::lonnet::logthis('lookup for '.$course.' failed');
                     next;