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

Diff for /loncom/interface/loncreateuser.pm between versions 1.337 and 1.338

version 1.337, 2010/03/21 21:05:42 version 1.338, 2010/04/02 14:18:50
Line 2582  sub update_user_data { Line 2582  sub update_user_data {
             push(@disporder,'reqcrsotherdom');              push(@disporder,'reqcrsotherdom');
         }          }
         push(@disporder,('quota','tools'));          push(@disporder,('quota','tools'));
         my ($defquota,my $settingstatus) =           $oldinststatus = $userenv{'inststatus'};
           my ($defquota,$settingstatus) = 
             &Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus);              &Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus);
         my %canshow;          my %canshow;
         if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {          if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
Line 2600  sub update_user_data { Line 2601  sub update_user_data {
             $canshow{'inststatus'} = 1;              $canshow{'inststatus'} = 1;
         }          }
         my (%changeHash,%changed);          my (%changeHash,%changed);
         $oldinststatus = $userenv{'inststatus'};  
         if ($oldinststatus eq '') {          if ($oldinststatus eq '') {
             $oldsettings{'inststatus'} = $othertitle;               $oldsettings{'inststatus'} = $othertitle; 
         } else {          } else {
Line 6269  sub update_selfenroll_config { Line 6269  sub update_selfenroll_config {
                             $newnum ++;                              $newnum ++;
                         }                          }
                     }                      }
                     for (my $j=0; $j<$env{'form.selfenroll_types_total'}; $j++) {                        if ((!grep(/^$j$/,@deletedoms)) && (!grep(/^$j$/,@activations))) {                      for (my $j=0; $j<$env{'form.selfenroll_types_total'}; $j++) {
                           if ((!grep(/^$j$/,@deletedoms)) && (!grep(/^$j$/,@activations))) {
                             my @types = &Apache::loncommon::get_env_multiple('form.selfenroll_types_'.$j);                              my @types = &Apache::loncommon::get_env_multiple('form.selfenroll_types_'.$j);
                             if (@types > 0) {                              if (@types > 0) {
                                 @types = sort(@types);                                  @types = sort(@types);
Removed from v.1.337  
changed lines
  Added in v.1.338

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