version 1.19, 2006/12/24 21:22:33
|
version 1.21, 2007/07/20 19:07:25
|
Line 47 sub encryptseed {
|
Line 47 sub encryptseed {
|
my %descargs = ( 'one_time' => 1); |
my %descargs = ( 'one_time' => 1); |
my %course = |
my %course = |
&Apache::lonnet::coursedescription($cid,\%descargs); |
&Apache::lonnet::coursedescription($cid,\%descargs); |
my %seedhash = |
$seed = $course{'internal.encseed'}; |
&Apache::lonnet::get('environment',['internal.encseed'], |
|
$course{'domain'},$course{'num'}); |
|
$seed = $seedhash{'internal.encseed'}; |
|
} |
} |
} |
} |
if (defined($seed)) { |
if (defined($seed)) { |
Line 59 sub encryptseed {
|
Line 56 sub encryptseed {
|
$seed=substr($seed.$seed,0,32); |
$seed=substr($seed.$seed,0,32); |
return pack("H32",$seed); |
return pack("H32",$seed); |
} else { |
} else { |
return; |
return pack("H32",1); |
} |
} |
} |
} |
|
|