--- loncom/interface/lonmanagekeys.pm 2003/09/23 00:26:10 1.13 +++ loncom/interface/lonmanagekeys.pm 2004/05/08 02:07:16 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to manage course access keys # -# $Id: lonmanagekeys.pm,v 1.13 2003/09/23 00:26:10 www Exp $ +# $Id: lonmanagekeys.pm,v 1.14 2004/05/08 02:07:16 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -191,8 +191,18 @@ sub handler { return HTTP_NOT_ACCEPTABLE; } if ($ENV{'form.cid'}) { - my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'}); - if ($ENV{'form.listkeyscsv'}) { + my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'}); + my $keytype=''; + if ($cenv{'url'} eq '/res/') { + ($cenv{'num'},$cenv{'domain'})=split(/\_/,$ENV{'form.cid'}); + $keytype='auth'; + } elsif ($cenv{'keyauth'}) { + ($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'}); + $keytype='auth'; + } else { + $keytype='course'; + } + if ($ENV{'form.listkeyscsv'}) { # # CSV Output # @@ -233,12 +243,17 @@ sub handler { &addcom(%cenv); } # --- Menu - $r->print('