version 1.14, 2004/05/08 02:07:16
|
version 1.16, 2005/02/17 08:29:42
|
Line 41 use Apache::lonlocal;
|
Line 41 use Apache::lonlocal;
|
############################################################### |
############################################################### |
############################################################### |
############################################################### |
sub header { |
sub header { |
|
my $html=&Apache::lonxml::xmlbegin(); |
my $bodytag=&Apache::loncommon::bodytag('Access Key Management'); |
my $bodytag=&Apache::loncommon::bodytag('Access Key Management'); |
return(<<ENDHEAD); |
return(<<ENDHEAD); |
<html> |
$html |
<head> |
<head> |
<title>LON-CAPA Access Key Management</title> |
<title>LON-CAPA Access Key Management</title> |
</head> |
</head> |
Line 194 sub handler {
|
Line 195 sub handler {
|
my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'}); |
my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'}); |
my $keytype=''; |
my $keytype=''; |
if ($cenv{'url'} eq '/res/') { |
if ($cenv{'url'} eq '/res/') { |
($cenv{'num'},$cenv{'domain'})=split(/\_/,$ENV{'form.cid'}); |
($cenv{'domain'},$cenv{'num'})=split(/\_/,$ENV{'form.cid'}); |
$keytype='auth'; |
$keytype='auth'; |
} elsif ($cenv{'keyauth'}) { |
} elsif ($cenv{'keyauth'}) { |
($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'}); |
($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'}); |