[LON-CAPA-cvs] cvs: loncom /interface lonmodifycourse.pm
raeburn
lon-capa-cvs@mail.lon-capa.org
Thu, 15 Jul 2004 18:58:20 -0000
raeburn Thu Jul 15 14:58:20 2004 EDT
Modified files:
/loncom/interface lonmodifycourse.pm
Log:
Bug #3212 Permit lower case Kerberos domain names.
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.10 loncom/interface/lonmodifycourse.pm:1.11
--- loncom/interface/lonmodifycourse.pm:1.10 Tue Jun 29 10:56:32 2004
+++ loncom/interface/lonmodifycourse.pm Thu Jul 15 14:58:20 2004
@@ -488,7 +488,6 @@
$newattr{'authtype'} = $ENV{'form.login'};
$newattr{'authtype'} .= $ENV{'form.krbver'};
$newattr{'autharg'} = $ENV{'form.krbarg'};
- $newattr{'autharg'} =~ tr/a-z/A-Z/;
} elsif ($ENV{'form.login'} eq 'int') {
$newattr{'authtype'} ='internal';
if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {