Diff for /loncom/auth/lonauth.pm between versions 1.37 and 1.39

version 1.37, 2003/02/13 16:31:54 version 1.39, 2003/02/18 21:11:17
Line 118  sub success { Line 118  sub success {
     $userenv.="environment.$key=$userenv{$key}\n";      $userenv.="environment.$key=$userenv{$key}\n";
  }   }
     }      }
       if (($userenv{'interface'}) && (!$FORM{'interface'})) {
    $FORM{'interface'}=$userenv{'interface'};
       }
 # --------------------------------------------------------- Write first profile  # --------------------------------------------------------- Write first profile
   
        {         {
Line 146  sub success { Line 149  sub success {
  $FORM{'interface'}=~s/\W//gs;   $FORM{'interface'}=~s/\W//gs;
                 print $idf "browser.interface=$FORM{'interface'}\n";                  print $idf "browser.interface=$FORM{'interface'}\n";
                 $ENV{'browser.interface'}=$FORM{'interface'};                  $ENV{'browser.interface'}=$FORM{'interface'};
               }
               foreach 
                 ('imagesuppress','appletsuppress',
                  'embedsuppress','fontenhance','blackwhite') {
                   if (($FORM{$_} eq 'on') ||
                       ($userenv{$_} eq 'on')) {
                      print $idf "browser.$_=on\n";
    }
             }               } 
             if ($userroles ne '') { print $idf "$userroles"; }              if ($userroles ne '') { print $idf "$userroles"; }
     $idf->close();      $idf->close();

Removed from v.1.37  
changed lines
  Added in v.1.39


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>