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.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'});