[BACK]Return to loncreateuser.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreateuser.pm between versions 1.269 and 1.270

version 1.269, 2008/12/15 00:12:38 version 1.270, 2008/12/18 16:58:26
Line 2125  sub update_user_data { Line 2125  sub update_user_data {
                     &Apache::lonnet::put('environment',\%changeHash,                      &Apache::lonnet::put('environment',\%changeHash,
                                   $env{'form.ccdomain'},$env{'form.ccuname'});                                    $env{'form.ccdomain'},$env{'form.ccuname'});
                 if ($chgresult eq 'ok') {                  if ($chgresult eq 'ok') {
                     my %newenvhash;  
                     my $hashid="$env{'form.ccuname'}:$env{'form.ccdomain'}";  
                     foreach my $key (keys(%changed)) {  
                         if ($key ne 'quota') {  
                             &Apache::lonnet::devalidate_cache_new('usertools.'.$key,$hashid);  
                             $newenvhash{'environment.tools.'.$key} =   
                                 $changeHash{'tools.'.$key};  
                         }  
                     }  
                     if (($env{'user.name'} eq $env{'form.ccuname'}) &&                      if (($env{'user.name'} eq $env{'form.ccuname'}) &&
                         ($env{'user.domain'} eq $env{'form.ccdomain'})) {                          ($env{'user.domain'} eq $env{'form.ccdomain'})) {
                           my %newenvhash;
                           foreach my $key (keys(%changed)) {
                               if ($key ne 'quota') {
                                   $newenvhash{'environment.tools.'.$key} = 
                                       $changeHash{'tools.'.$key};
                                   $newenvhash{'environment.availabletools.'.$key} =
                                       $changeHash{'tools.'.$key};
                               }
                           }
                         &Apache::lonnet::appenv(\%newenvhash);                          &Apache::lonnet::appenv(\%newenvhash);
                     }                      }
                 }                  }
Removed from v.1.269  
changed lines
  Added in v.1.270

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