[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'})) {