--- loncom/interface/loncoursedata.pm	2003/02/14 21:02:05	1.47
+++ loncom/interface/loncoursedata.pm	2003/02/14 21:45:19	1.48
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.47 2003/02/14 21:02:05 matthew Exp $
+# $Id: loncoursedata.pm,v 1.48 2003/02/14 21:45:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1611,13 +1611,13 @@ sub get_current_state {
                 my $value = join(':',map { &Apache::lonnet::escape($_); } 
                                  @Parameters);
                 # Store away the values
-                $cache{$key.&Apache::lonnet::escape($symb)}=$value;
+                $cache{$key.&Apache::lonnet::escape($current_symb)}=$value;
             }
             $cache{$key.'time'}=$time_of_retrieval;
             untie(%cache);
         }
     } else {
-#        &Apache::lonnet::logthis('retrieving cached data ');
+        &Apache::lonnet::logthis('retrieving cached data ');
         if (tie(%cache,'GDBM_File',$cachefilename,&GDBM_READER(),0640)) {
             if (defined($symb)) {
                 my  $searchkey = $key.&Apache::lonnet::escape($symb);
@@ -1628,7 +1628,10 @@ sub get_current_state {
                 my $searchkey = '^'.$key.'(.*)$';#'
                 while (my ($testkey,$params)=each(%cache)) {
                     if ($testkey =~ /$searchkey/) { # \Q \E?  May be necc.
-                        $student_data{&Apache::lonnet::unescape($1)} = 
+                        my $tmpsymb = $1;
+                        next if ($tmpsymb =~ 'time');
+#                        &Apache::lonnet::logthis('found '.$tmpsymb.':');
+                        $student_data{&Apache::lonnet::unescape($tmpsymb)} = 
                             &make_into_hash($params);
                     }
                 }