--- loncom/lonenc.pm 2004/11/14 07:54:41 1.6 +++ loncom/lonenc.pm 2004/12/17 21:44:19 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for encrypted filenames # -# $Id: lonenc.pm,v 1.6 2004/11/14 07:54:41 albertel Exp $ +# $Id: lonenc.pm,v 1.8 2004/12/17 21:44:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,9 +49,9 @@ sub handler { # Initialize Environment &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); # Decrypt URL and redirect - &Apache::lonnet::logthis("args ".$r->args); - &Apache::lonnet::logthis("uri ".$r->uri); - $r->internal_redirect(&unencrypted($r->uri).'?'.$r->args); + my $redirect=&unencrypted($r->uri); + if ($r->args) { $redirect.='?'.$r->args; } + $r->internal_redirect($redirect); return OK; } } @@ -112,7 +112,12 @@ sub check_encrypt { sub check_decrypt { my ($str)=@_; - if ($$str=~m|^/enc/|) { $$str=&Apache::lonenc::unencrypted($$str); } + if (ref($str)) { + if ($$str=~m|^/enc/|) { $$str=&Apache::lonenc::unencrypted($$str); } + return; + } + if ($str=~m|^/enc/|) { return &Apache::lonenc::unencrypted($str); } + return $str; } 1;