loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.250, 2002/07/04 15:47:18
+version 1.251, 2002/07/04 15:56:17
  Line 2278  sub courseresdata {
  	if (time-$courseresdatacache{$hashid.'.time'}>300) { $dodump=1; }
      }
      if ($dodump) {
- 	my $coursehom=&homeserver($coursenum,$coursedomain);
+ 	my %dumpreply=&dump('resourcedata',$coursedomain,$coursenum);
- 	if ($coursehom) {
+ 	my ($tmp) = keys(%dumpreply);
- 	    my $dumpreply=&reply('dump:'.$coursedomain.':'.$coursenum.
+ 	if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
- 				 ':resourcedata:.',$coursehom);
+ 	    $courseresdatacache{$hashid.'.time'}=time;
- 	    if ($dumpreply!~/^error\:/) {
+ 	    $courseresdatacache{$hashid}=\%dumpreply;
- 		$courseresdatacache{$hashid.'.time'}=time;
- 		$courseresdatacache{$hashid}=$dumpreply;
- 	    }
  	}
      }
-     my @pairs=split(/\&/,$courseresdatacache{$hashid});
+     foreach my $item (@which) {
-     my %returnhash=();
+ 	if ($courseresdatacache{$hashid}->{$item}) {
-     foreach (@pairs) {
+ 	    return $courseresdatacache{$hashid}->{$item};
- 	my ($key,$value)=split(/=/,$_);
+ 	}
- 	$returnhash{unescape($key)}=unescape($value);
-     }
-     my $item;
-     foreach $item (@which) {
- 	if ($returnhash{$item}) { return $returnhash{$item}; }
      }
      return '';
  }