loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.702, 2006/01/21 08:27:02
+version 1.703, 2006/01/26 07:14:39
  Line 5331  sub get_slot {
  	$cdom=$env{'course.'.$courseid.'.domain'};
  	$cnum=$env{'course.'.$courseid.'.num'};
      }
-     my %slotinfo=&get('slots',[$which],$cdom,$cnum);
+     my $key=join("\0",'slots',$cdom,$cnum,$which);
-     &Apache::lonhomework::showhash(%slotinfo);
+     my %slotinfo;
-     my ($tmp)=keys(%slotinfo);
+     if (exists($remembered{$key})) {
-     if ($tmp=~/^error:/) { return (); }
+ 	$slotinfo{$which} = $remembered{$key};
+     } else {
+ 	%slotinfo=&get('slots',[$which],$cdom,$cnum);
+ 	&Apache::lonhomework::showhash(%slotinfo);
+ 	my ($tmp)=keys(%slotinfo);
+ 	if ($tmp=~/^error:/) { return (); }
+ 	$remembered{$key} = $slotinfo{$which};
+     }
      if (ref($slotinfo{$which}) eq 'HASH') {
  	return %{$slotinfo{$which}};
      }