--- loncom/lonenc.pm 2008/03/17 09:51:40 1.23 +++ loncom/lonenc.pm 2011/09/30 15:58:05 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for encrypted filenames # -# $Id: lonenc.pm,v 1.23 2008/03/17 09:51:40 foxr Exp $ +# $Id: lonenc.pm,v 1.25 2011/09/30 15:58:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -165,11 +165,13 @@ sub encrypt_ref { next if (!$value); next if ($value =~ /^\w+:/); # explict javascript: or http: link my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value); - if ($href !~ /^http:/) { + if ($href !~ /^https?\:/) { # IE really wants an extension my ($extension) = ($href =~ m/(\.[^.]*)$/); - $href = &Apache::lonenc::encrypted($href,$force_enc); - $href .= $extension; + my $newhref = &Apache::lonenc::encrypted($href,$force_enc); + unless ($newhref eq $href) { + $href = $newhref.$extension; + } } $token->[2]->{$name}=$href; }