loncom/interface/lonmanagekeys.pm - diff

Return to lonmanagekeys.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2004/05/08 02:07:16	version 1.15, 2004/05/09 00:45:01
Line 194 sub handler {	Line 194 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'});