loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.632, 2005/05/03 19:22:22	version 1.633, 2005/05/05 20:50:38
Line 4145 sub get_courseresdata {	Line 4145 sub get_courseresdata {
return $result;	return $result;
}	}

	sub devalidateuserresdata {
	my ($uname,$udom)=@_;
	my $hashid="$udom:$uname";
	&devalidate_cache_new('userres',$hashid);
	}

sub get_userresdata {	sub get_userresdata {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
#most student don\'t have any data set, check if there is some data	#most student don\'t have any data set, check if there is some data
Line 4168 sub get_userresdata {	Line 4174 sub get_userresdata {
$uname." at ".$udom.": ".	$uname." at ".$udom.": ".
$tmp."</font>");	$tmp."</font>");
} elsif ($tmp=~/error: 2 /) {	} elsif ($tmp=~/error: 2 /) {
&EXT_cache_set($udom,$uname);	#&EXT_cache_set($udom,$uname);
	&do_cache_new('userres',$hashid,undef,600);
}	}
return $tmp;	return $tmp;
}	}
Line 4212 sub EXT_cache_status {	Line 4219 sub EXT_cache_status {
sub EXT_cache_set {	sub EXT_cache_set {
my ($target_domain,$target_user) = @_;	my ($target_domain,$target_user) = @_;
my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;	my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;
&appenv($cachename => time);	#&appenv($cachename => time);
}	}

# --------------------------------------------------------- Value of a Variable	# --------------------------------------------------------- Value of a Variable