loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.16, 2006/05/30 19:47:28	version 1.17, 2006/09/28 20:47:13
Line 46 sub unencrypted {	Line 46 sub unencrypted {
my $uri=shift;	my $uri=shift;
$uri=~s/^\/enc\/(\d+)\///;	$uri=~s/^\/enc\/(\d+)\///;
my $cmdlength=$1;	my $cmdlength=$1;
	# strip any added extension
	$uri=~s/\.[^.]*//;
my $seed=&encryptseed();	my $seed=&encryptseed();
unless ($seed) {	unless ($seed) {
return '/'.$uri;	return '/'.$uri;
Line 129 sub encrypt_ref {	Line 131 sub encrypt_ref {
if (!$value) { next; }	if (!$value) { next; }
my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value);	my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value);
if ($href !~ /^http:/) {	if ($href !~ /^http:/) {
	# IE really wants an extension
	my ($extension) = ($href =~ m/(\.[^.]*)$/);
$href = &Apache::lonenc::encrypted($href,$force_enc);	$href = &Apache::lonenc::encrypted($href,$force_enc);
	$href .= $extension;
}	}
$token->[2]->{$name}=$href;	$token->[2]->{$name}=$href;
}	}