loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.23, 2008/03/17 09:51:40	version 1.25, 2011/09/30 15:58:05
Line 165 sub encrypt_ref {	Line 165 sub encrypt_ref {
next if (!$value);	next if (!$value);
next if ($value =~ /^\w+:/); # explict javascript: or http: link	next if ($value =~ /^\w+:/); # explict javascript: or http: link
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 !~ /^https?\:/) {
# IE really wants an extension	# IE really wants an extension
my ($extension) = ($href =~ m/(\.[^.]*)$/);	my ($extension) = ($href =~ m/(\.[^.]*)$/);
$href = &Apache::lonenc::encrypted($href,$force_enc);	my $newhref = &Apache::lonenc::encrypted($href,$force_enc);
$href .= $extension;	unless ($newhref eq $href) {
	$href = $newhref.$extension;
	}
}	}
$token->[2]->{$name}=$href;	$token->[2]->{$name}=$href;
}	}