--- loncom/lonenc.pm 2006/12/24 21:22:33 1.19 +++ loncom/lonenc.pm 2007/07/20 19:07:25 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for encrypted filenames # -# $Id: lonenc.pm,v 1.19 2006/12/24 21:22:33 raeburn Exp $ +# $Id: lonenc.pm,v 1.21 2007/07/20 19:07:25 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -47,10 +47,7 @@ sub encryptseed { my %descargs = ( 'one_time' => 1); my %course = &Apache::lonnet::coursedescription($cid,\%descargs); - my %seedhash = - &Apache::lonnet::get('environment',['internal.encseed'], - $course{'domain'},$course{'num'}); - $seed = $seedhash{'internal.encseed'}; + $seed = $course{'internal.encseed'}; } } if (defined($seed)) { @@ -59,7 +56,7 @@ sub encryptseed { $seed=substr($seed.$seed,0,32); return pack("H32",$seed); } else { - return; + return pack("H32",1); } }