[LON-CAPA-cvs] cvs: rat / lonuserstate.pm

[www]

www		Mon Nov 18 10:17:56 2002 EDT

  Modified files:              
    /rat	lonuserstate.pm 
  Log:
  Fill lonnet::titlecache, toward Bug #793.
  
  
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.46 rat/lonuserstate.pm:1.47
--- rat/lonuserstate.pm:1.46	Thu Oct 10 15:05:32 2002
+++ rat/lonuserstate.pm	Mon Nov 18 10:17:56 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user
 #
-# $Id: lonuserstate.pm,v 1.46 2002/10/10 19:05:32 www Exp $
+# $Id: lonuserstate.pm,v 1.47 2002/11/18 15:17:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -120,6 +120,12 @@
                     $hash{'kind_'.$rid}='res';
                     $hash{'title_'.$rid}=$token->[2]->{'title'};
                     my $turi=$token->[2]->{'src'};
+                    $Apache::lonnet::titlecache{
+		     &Apache::lonnet::symbclean(
+                      &Apache::lonnet::declutter($uri).'___'.
+                      $token->[2]->{'id'}.'___'.
+		      &Apache::lonnet::declutter($turi))}=
+                          $token->[2]->{'title'};
                     unless ($ispage) {
                         $turi=~/\.(\w+)$/;
                         my $embstyle=&Apache::loncommon::fileembstyle($1);