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

Diff for /loncom/interface/loncreateuser.pm between versions 1.202 and 1.204

version 1.202, 2007/12/05 21:23:14 version 1.204, 2007/12/07 23:09:30
Line 787  ENDCHANGEUSER Line 787  ENDCHANGEUSER
                   &personal_data_display($ccuname,$ccdomain,$newuser,                    &personal_data_display($ccuname,$ccdomain,$newuser,
                                          %inst_results));                                           %inst_results));
         if ($context eq 'domain') {          if ($context eq 'domain') {
             $r->print(&Apache::lonuserutils::forceid_change());              $r->print(&Apache::lonuserutils::forceid_change($context));
         }          }
         $r->print('</div>');          $r->print('</div>');
         my $user_auth_text =           my $user_auth_text = 
Line 1591  sub update_user_data { Line 1591  sub update_user_data {
         # Check to see if we need to change user information          # Check to see if we need to change user information
         foreach my $item ('firstname','middlename','lastname','generation','permanentemail','id') {          foreach my $item ('firstname','middlename','lastname','generation','permanentemail','id') {
             # Strip leading and trailing whitespace              # Strip leading and trailing whitespace
             $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g;               $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g;
         }          }
         # Check to see if we can change the ID/student number          # Check to see if we can change the ID/student number
         my $forceid = $env{'form.forceid'};          my $forceid = $env{'form.forceid'};
         my $recurseid = $env{'form.recurseid'};          my $recurseid = $env{'form.recurseid'};
         my $newuser = 0;          my $newuser = 0;
         my $disallowed_id = 0;  
         my (%alerts,%rulematch,%idinst_results,%curr_rules,%got_rules);          my (%alerts,%rulematch,%idinst_results,%curr_rules,%got_rules);
         if (!$forceid) {          my %uidhash = &Apache::lonnet::idrget($env{'form.ccdomain'},
             $env{'form.cid'} = $userenv{'id'};                                              $env{'form.ccuname'});
         } elsif ($env{'form.cid'} ne $userenv{'id'}) {          if (($uidhash{$env{'form.ccuname'}}) && 
               ($uidhash{$env{'form.ccuname'}}!~/error\:/) && 
               (!$forceid)) {
               if ($env{'form.cid'} ne $uidhash{$env{'form.ccuname'}}) {
                   $env{'form.cid'} = $userenv{'id'};
               }
           }
           if ($env{'form.cid'} ne $userenv{'id'}) {
             my $checkhash;              my $checkhash;
             my $checks = { 'id' => 1 };              my $checks = { 'id' => 1 };
             $checkhash->{$env{'form.ccuname'}.':'.$env{'form.ccdomain'}} =               $checkhash->{$env{'form.ccuname'}.':'.$env{'form.ccdomain'}} = 
Line 1612  sub update_user_data { Line 1618  sub update_user_data {
                 \%alerts,\%rulematch,\%idinst_results,\%curr_rules,\%got_rules);                  \%alerts,\%rulematch,\%idinst_results,\%curr_rules,\%got_rules);
             if (ref($alerts{'id'}) eq 'HASH') {              if (ref($alerts{'id'}) eq 'HASH') {
                 if (ref($alerts{'id'}{$env{'form.ccdomain'}}) eq 'HASH') {                  if (ref($alerts{'id'}{$env{'form.ccdomain'}}) eq 'HASH') {
                    $disallowed_id = 1;                     $env{'form.cid'} = $userenv{'id'};
                 }                  }
             }              }
         }          }
         my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,          my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,
             $inststatus,$isdefault,$defquotatext);              $inststatus,$oldisdefault,$newisdefault,$olddefquotatext,
               $newdefquotatext);
         my ($defquota,$settingstatus) =           my ($defquota,$settingstatus) = 
             &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);              &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
         my %changeHash;          my %changeHash;
           $changeHash{'portfolioquota'} = $userenv{'portfolioquota'};
         if ($userenv{'portfolioquota'} ne '') {          if ($userenv{'portfolioquota'} ne '') {
             $oldportfolioquota = $userenv{'portfolioquota'};              $oldportfolioquota = $userenv{'portfolioquota'};
             if ($env{'form.customquota'} == 1) {              if ($env{'form.customquota'} == 1) {
Line 1630  sub update_user_data { Line 1638  sub update_user_data {
                     $newportfolioquota = $env{'form.portfolioquota'};                      $newportfolioquota = $env{'form.portfolioquota'};
                     $newportfolioquota =~ s/[^\d\.]//g;                      $newportfolioquota =~ s/[^\d\.]//g;
                 }                  }
                 if ($newportfolioquota != $userenv{'portfolioquota'}) {                  if ($newportfolioquota != $oldportfolioquota) {
                     $quotachanged = &quota_admin($newportfolioquota,\%changeHash);                      $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
                 }                  }
             } else {              } else {
                 $quotachanged = &quota_admin('',\%changeHash);                  $quotachanged = &quota_admin('',\%changeHash);
                 $newportfolioquota = $defquota;                  $newportfolioquota = $defquota;
                 $isdefault = 1;                   $newisdefault = 1; 
             }              }
         } else {          } else {
               $oldisdefault = 1;
             $oldportfolioquota = $defquota;              $oldportfolioquota = $defquota;
             if ($env{'form.customquota'} == 1) {              if ($env{'form.customquota'} == 1) {
                 if ($env{'form.portfolioquota'} eq '') {                  if ($env{'form.portfolioquota'} eq '') {
Line 1650  sub update_user_data { Line 1659  sub update_user_data {
                 $quotachanged = &quota_admin($newportfolioquota,\%changeHash);                  $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
             } else {              } else {
                 $newportfolioquota = $defquota;                  $newportfolioquota = $defquota;
                 $isdefault = 1;                  $newisdefault = 1;
             }              }
         }          }
         if ($isdefault) {          if ($oldisdefault) {
             if ($settingstatus eq '') {              $olddefquotatext = &get_defaultquota_text($settingstatus);
                 $defquotatext = &mt('(default)');          }
             } else {          if ($newisdefault) {
                 my ($usertypes,$order) =               $newdefquotatext = &get_defaultquota_text($settingstatus);
                     &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});  
                 if ($usertypes->{$settingstatus} eq '') {  
                     $defquotatext = &mt('(default)');  
                 } else {   
                     $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});  
                 }  
             }  
         }          }
         if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) &&           if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) && 
             ($env{'form.cfirstname'}  ne $userenv{'firstname'}  ||              ($env{'form.cfirstname'}  ne $userenv{'firstname'}  ||
Line 1675  sub update_user_data { Line 1677  sub update_user_data {
              $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) {               $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) {
             $namechanged = 1;              $namechanged = 1;
         }          }
         if ($namechanged) {          if ($namechanged || $quotachanged) {
             # Make the change  
             $changeHash{'firstname'}  = $env{'form.cfirstname'};              $changeHash{'firstname'}  = $env{'form.cfirstname'};
             $changeHash{'middlename'} = $env{'form.cmiddlename'};              $changeHash{'middlename'} = $env{'form.cmiddlename'};
             $changeHash{'lastname'}   = $env{'form.clastname'};              $changeHash{'lastname'}   = $env{'form.clastname'};
             $changeHash{'generation'} = $env{'form.cgeneration'};              $changeHash{'generation'} = $env{'form.cgeneration'};
             $changeHash{'id'}         = $env{'form.cid'};              $changeHash{'id'}         = $env{'form.cid'};
             $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};              $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
             my $putresult = &Apache::lonnet::put              my ($quotachgresult,$namechgresult);
                 ('environment',\%changeHash,              if ($quotachanged) {
                  $env{'form.ccdomain'},$env{'form.ccuname'});                  $quotachgresult = 
             if ($putresult eq 'ok') {                      &Apache::lonnet::put('environment',\%changeHash,
                                     $env{'form.ccdomain'},$env{'form.ccuname'});
               }
               if ($namechanged) {
               # Make the change
                   $namechgresult =
                       &Apache::lonnet::modifyuser($env{'form.ccdomain'},
                           $env{'form.ccuname'},$changeHash{'id'},undef,undef,
                           $changeHash{'firstname'},$changeHash{'middlename'},
                           $changeHash{'lastname'},$changeHash{'generation'},
                           $changeHash{'id'},undef,$changeHash{'permanentemail'});
               }
               if (($namechanged && $namechgresult eq 'ok') || 
                   ($quotachanged && $quotachgresult eq 'ok')) {
             # Tell the user we changed the name              # Tell the user we changed the name
  my %lt=&Apache::lonlocal::texthash(   my %lt=&Apache::lonlocal::texthash(
                              'uic'  => "User Information Changed",                                            'uic'  => "User Information Changed",             
Line 1723  END Line 1737  END
     <td>$userenv{'generation'} </td>      <td>$userenv{'generation'} </td>
     <td>$userenv{'id'}</td>      <td>$userenv{'id'}</td>
     <td>$userenv{'permanentemail'} </td>      <td>$userenv{'permanentemail'} </td>
     <td>$oldportfolioquota Mb</td>      <td>$oldportfolioquota Mb $olddefquotatext </td>
 END  END
                 $r->print(&Apache::loncommon::end_data_table_row().                  $r->print(&Apache::loncommon::end_data_table_row().
                           &Apache::loncommon::start_data_table_row());                            &Apache::loncommon::start_data_table_row());
Line 1735  END Line 1749  END
     <td>$env{'form.cgeneration'} </td>      <td>$env{'form.cgeneration'} </td>
     <td>$env{'form.cid'} </td>      <td>$env{'form.cid'} </td>
     <td>$env{'form.cpermanentemail'} </td>      <td>$env{'form.cpermanentemail'} </td>
     <td>$newportfolioquota Mb $defquotatext </td>      <td>$newportfolioquota Mb $newdefquotatext </td>
 END  END
                 $r->print(&Apache::loncommon::end_data_table_row().                  $r->print(&Apache::loncommon::end_data_table_row().
                           &Apache::loncommon::end_data_table());                            &Apache::loncommon::end_data_table());
                 if (($forceid) && ($recurseid) && (!$disallowed_id) &&                  if ($env{'form.cid'} ne $userenv{'id'}) {
                     (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {                      &Apache::lonnet::idput($env{'form.ccdomain'},
                     my %userupdate = (                           ($env{'form.ccuname'} => $env{'form.cid'}));
                       if (($recurseid) &&
                           (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {
                           my %userupdate = (
                                   lastname   => $env{'form.clasaname'},                                    lastname   => $env{'form.clasaname'},
                                   middlename => $env{'form.cmiddlename'},                                    middlename => $env{'form.cmiddlename'},
                                   firstname  => $env{'form.cfirstname'},                                    firstname  => $env{'form.cfirstname'},
                                   generation => $env{'fora.cgeneration'},                                    generation => $env{'fora.cgeneration'},
                                   id         => $env{'form.cid'},                                    id         => $env{'form.cid'},
                              );                               );
                     my $idresult = &propagate_id_change($env{'form.ccname'},                          my $idresult = 
                                     $env{'form.ccdomain'},\%userupdate);                              &Apache::lonuserutils::propagate_id_change(
                     $r->print('<br />'.$idresult.'<br />');                                  $env{'form.ccuname'},$env{'form.ccdomain'},
                                   \%userupdate);
                           $r->print('<br />'.$idresult.'<br />');
                       }
                 }                  }
                 if (($env{'form.ccdomain'} eq $env{'user.domain'}) &&                   if (($env{'form.ccdomain'} eq $env{'user.domain'}) && 
                     ($env{'form.ccuname'} eq $env{'user.name'})) {                      ($env{'form.ccuname'} eq $env{'user.name'})) {
Line 1766  END Line 1786  END
                       $env{'form.ccdomain'}.'</span>');                        $env{'form.ccdomain'}.'</span>');
             }              }
         }  else { # End of if ($env ... ) logic          }  else { # End of if ($env ... ) logic
             my $putresult;              # They did not want to change the users name or quota but we can
             if ($quotachanged) {              # still tell them what the name and quota are 
                 $putresult = &Apache::lonnet::put  
                                  ('environment',\%changeHash,  
                                   $env{'form.ccdomain'},$env{'form.ccuname'});  
             }  
             # They did not want to change the users name but we can  
             # still tell them what the name is  
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                            'id'   => "ID/Student number",                             'id'   => "ID/Student number",
                            'mail' => "Permanent e-mail",                             'mail' => "Permanent e-mail",
Line 1782  END Line 1796  END
             $r->print(<<"END");              $r->print(<<"END");
 <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}  <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}
 END  END
             if ($userenv{'permanentemail'} eq '') {              if ($userenv{'permanentemail'} ne '') {
                 $r->print('</h4>');                  $r->print('<br />['.$lt{'mail'}.': '.
             } else {                            $userenv{'permanentemail'}.']');
                 $r->print('&nbsp;&nbsp;('.$lt{'mail'}.': '.  
                           $userenv{'permanentemail'}.')</h4>');  
             }  
             if ($putresult eq 'ok') {  
                 if ($oldportfolioquota != $newportfolioquota) {  
                     $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '.   
                               $defquotatext.'</h4>');  
                     &Apache::lonnet::appenv('environment.portfolioquota' => $changeHash{'portfolioquota'});  
                 }  
             }              }
               $r->print('<br />['.$lt{'disk'}.': '.$oldportfolioquota.' Mb '. 
                    $olddefquotatext.']</h4>');
         }          }
     }      }
     ##      ##
Line 2023  END Line 2030  END
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
   
   sub get_defaultquota_text {
       my ($settingstatus) = @_;
       my $defquotatext; 
       if ($settingstatus eq '') {
           $defquotatext = &mt('(default)');
       } else {
           my ($usertypes,$order) =
               &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
           if ($usertypes->{$settingstatus} eq '') {
               $defquotatext = &mt('(default)');
           } else {
               $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});
           }
       }
       return $defquotatext;
   }
   
 sub update_result_form {  sub update_result_form {
     my ($uhome) = @_;      my ($uhome) = @_;
     my $outcome =       my $outcome = 
Removed from v.1.202  
changed lines
  Added in v.1.204

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