Return to lonenc.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.5, 2004/11/11 20:05:56 | version 1.7, 2004/11/16 15:26:36 |
---|---|
Line 110 sub check_encrypt { | Line 110 sub check_encrypt { |
return $str; | return $str; |
} | } |
sub check_decrypt { | |
my ($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; | 1; |
__END__ | __END__ |