rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.89 and 1.92

version 1.89, 2005/04/07 06:56:27	version 1.92, 2005/06/08 18:49:38
Line 138 sub loadmap {	Line 138 sub loadmap {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
if ($token->[1] eq 'resource') {	if ($token->[1] eq 'resource') {
# -------------------------------------------------------------------- Resource	# -------------------------------------------------------------------- Resource
	if ($token->[2]->{'type'} eq 'zombie') { next; }
my $rid=$lpc.'.'.$token->[2]->{'id'};	my $rid=$lpc.'.'.$token->[2]->{'id'};

$hash{'kind_'.$rid}='res';	$hash{'kind_'.$rid}='res';
Line 338 sub traceroute {	Line 338 sub traceroute {
my ($mapid,$resid)=split(/\./,$rid);	my ($mapid,$resid)=split(/\./,$rid);
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});	my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
my $hidden=&Apache::lonnet::EXT('resource.0.hiddenresource',$symb);	my $hidden=&Apache::lonnet::EXT('resource.0.hiddenresource',$symb);
if ($hdnflag \|\| lc($hidden) eq 'yes') { $hiddenurl{$rid}=1; }
	if ($hdnflag \|\| lc($hidden) eq 'yes') {
	$hiddenurl{$rid}=1;
	}
	if (!$hdnflag && lc($hidden) eq 'no') {
	delete($hiddenurl{$rid});
	}

my $encrypt=&Apache::lonnet::EXT('resource.0.encrypturl',$symb);	my $encrypt=&Apache::lonnet::EXT('resource.0.encrypturl',$symb);
if ($encflag \|\| lc($encrypt) eq 'yes') { $encurl{$rid}=1; }	if ($encflag \|\| lc($encrypt) eq 'yes') { $encurl{$rid}=1; }
if (($retfurl eq '') && ($hash{'src_'.$rid})	if (($retfurl eq '') && ($hash{'src_'.$rid})

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.89
changed lines
	Added in v.1.92