loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.443, 2003/11/10 20:27:32	version 1.446, 2003/11/10 23:57:49
Line 247 sub transfer_profile_to_env {	Line 247 sub transfer_profile_to_env {
}	}
}	}
}	}
	$ENV{'user.environment'} = "$lonidsdir/$handle.id";
foreach my $expired_key (keys(%Remove)) {	foreach my $expired_key (keys(%Remove)) {
&delenv($expired_key);	&delenv($expired_key);
}	}
$ENV{'user.environment'} = "$lonidsdir/$handle.id";
}	}

# ---------------------------------------------------------- Append Environment	# ---------------------------------------------------------- Append Environment
Line 895 EVALBLOCK	Line 895 EVALBLOCK
}	}
} else {	} else {
if (-e $filename) {	if (-e $filename) {
&logthis("Unable to tie hash (save cache item): $name");	&logthis("Unable to tie hash (save cache item): $name ($!)");
unlink($filename);	unlink($filename);
}	}
}	}
Line 939 EVALBLOCK	Line 939 EVALBLOCK
}	}
} else {	} else {
if (-e $filename) {	if (-e $filename) {
&logthis("Unable to tie hash (load cache item): $name");	&logthis("Unable to tie hash (load cache item): $name ($!)");
unlink($filename);	unlink($filename);
}	}
}	}
Line 4069 sub fixversion {	Line 4069 sub fixversion {
&GDBM_READER(),0640)) {	&GDBM_READER(),0640)) {
if ($bighash{'version_'.$uri}) {	if ($bighash{'version_'.$uri}) {
my $version=$bighash{'version_'.$uri};	my $version=$bighash{'version_'.$uri};
unless ($version eq 'mostrecent') {	unless (($version eq 'mostrecent') \|\|
	($version==&getversion($uri))) {
$uri=~s/\.(\w+)$/\.$version\.$1/;	$uri=~s/\.(\w+)$/\.$version\.$1/;
}	}
}	}