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

Diff for /loncom/interface/loncreateuser.pm between versions 1.229 and 1.233

version 1.229, 2008/01/06 04:38:57 version 1.233, 2008/01/20 22:25:05
Line 156  END_SCRIPT Line 156  END_SCRIPT
         $custom_off = ' ';          $custom_off = ' ';
         $showquota = $currquota;          $showquota = $currquota;
         if ($longinsttype eq '') {          if ($longinsttype eq '') {
             $defaultinfo = &mt('For this user, the default quota would be [_1]              $defaultinfo = &mt('For this user, the default quota would be [_1]'
                             Mb.',$defquota);                              .' Mb.',$defquota);
         } else {          } else {
             $defaultinfo = &mt("For this user, the default quota would be [_1]               $defaultinfo = &mt("For this user, the default quota would be [_1]".
                             Mb, as determined by the user's institutional                                 " Mb, as determined by the user's institutional".
                            affiliation ([_2]).",$defquota,$longinsttype);                                 " affiliation ([_2]).",$defquota,$longinsttype);
         }          }
     } else {      } else {
         if ($longinsttype eq '') {          if ($longinsttype eq '') {
             $defaultinfo = &mt('For this user, the default quota is [_1]              $defaultinfo = &mt('For this user, the default quota is [_1]'
                             Mb.',$defquota);                              .' Mb.',$defquota);
         } else {          } else {
             $defaultinfo = &mt("For this user, the default quota of [_1]              $defaultinfo = &mt("For this user, the default quota of [_1]".
                             Mb, is determined by the user's institutional                                 " Mb, is determined by the user's institutional".
                             affiliation ([_2]).",$defquota,$longinsttype);                                 " affiliation ([_2]).",$defquota,$longinsttype);
         }          }
     }      }
     my $output = $quota_javascript.      my $output = $quota_javascript.
Line 355  ENDBLOCK Line 355  ENDBLOCK
 <input type="hidden" name="action" value="$env{'form.action'}" />  <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="createnewuser" />  <input type="hidden" name="phase" value="createnewuser" />
 <input type="hidden" name="srchtype" value="exact" />  <input type="hidden" name="srchtype" value="exact" />
 <input type="hidden" name="srchby" value="username" />  <input type="hidden" name="srchby" value="uname" />
 <input type="hidden" name="srchin" value="dom" />  <input type="hidden" name="srchin" value="dom" />
 <input type="hidden" name="forcenewuser" value="1" />  <input type="hidden" name="forcenewuser" value="1" />
 <input type="hidden" name="origform" value="crtusername" />  <input type="hidden" name="origform" value="crtusername" />
Line 603  sub print_user_modification_page { Line 603  sub print_user_modification_page {
   
     my $js = &validation_javascript($context,$ccdomain,$pjump_def,      my $js = &validation_javascript($context,$ccdomain,$pjump_def,
                                $groupslist,$newuser,$formname,\%loaditem);                                 $groupslist,$newuser,$formname,\%loaditem);
       my $args = {'add_entries' => \%loaditem};  
       if ($env{'form.popup'}) {
          $args->{'no_nav_bar'} = 1; 
       }
     my $start_page =       my $start_page = 
  &Apache::loncommon::start_page('User Management',   &Apache::loncommon::start_page('User Management',$js,$args);
        $js,{'add_entries' => \%loaditem,});  
     my %breadcrumb_text = &singleuser_breadcrumb();      my %breadcrumb_text = &singleuser_breadcrumb();
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
      ({href=>"javascript:backPage($form)",       ({href=>"javascript:backPage($form)",
Line 1486  sub update_user_data { Line 1489  sub update_user_data {
     my $jscript = '<script type="text/javascript">'."\n".      my $jscript = '<script type="text/javascript">'."\n".
                   $jsback."\n".'</script>'."\n";                    $jsback."\n".'</script>'."\n";
     my %breadcrumb_text = &singleuser_breadcrumb();      my %breadcrumb_text = &singleuser_breadcrumb();
     $r->print(&Apache::loncommon::start_page($title,$jscript));      my $args;
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
       } else {
           $args = undef;
       }
       $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.userupdate)",         ({href=>"javascript:backPage(document.userupdate)",
          text=>$breadcrumb_text{'search'},           text=>$breadcrumb_text{'search'},
Line 1636  sub update_user_data { Line 1645  sub update_user_data {
  $r->print(&mt('Generating user').': '.$result);   $r->print(&mt('Generating user').': '.$result);
         $uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},          $uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},
                                                $env{'form.ccdomain'});                                                 $env{'form.ccdomain'});
           if (($uhome ne 'no_host') && ($env{'form.customquota'} == 1)) {
               my (%changeHash,$newportfolioquota);
               if ($env{'form.portfolioquota'} eq '') {
                   $newportfolioquota = 0;
               } else {
                   $newportfolioquota = $env{'form.portfolioquota'};
                   $newportfolioquota =~ s/[^\d\.]//g;
               }
               my $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
               if ($quotachanged) {
                   $changeHash{'firstname'}  = $env{'form.cfirstname'};
                   $changeHash{'middlename'} = $env{'form.cmiddlename'};
                   $changeHash{'lastname'}   = $env{'form.clastname'};
                   $changeHash{'generation'} = $env{'form.cgeneration'};
                   $changeHash{'id'}         = $env{'form.cid'};
                   $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
                   my $quotachgresult =
                       &Apache::lonnet::put('environment',\%changeHash,
                                            $env{'form.ccdomain'},$env{'form.ccuname'});
               }
           }
         $r->print('<br />'.&mt('Home server').': '.$uhome.' '.          $r->print('<br />'.&mt('Home server').': '.$uhome.' '.
                   &Apache::lonnet::hostname($uhome));                    &Apache::lonnet::hostname($uhome));
     } elsif (($env{'form.login'} ne 'nochange') &&      } elsif (($env{'form.login'} ne 'nochange') &&
Line 2033  END Line 2063  END
             }              }
         }          }
         my $userinfo = &Apache::loncommon::plainname($env{'form.ccuname'},          my $userinfo = &Apache::loncommon::plainname($env{'form.ccuname'},
                                                      $env{'form.ccdomain'});                                                        $env{'form.ccdomain'});
         $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'.&mt('Modify this user: <span class="LC_cusr_emph">([_1])</span>',$userinfo).'</a>'.('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a></p>');          if ($env{'form.popup'}) {
               $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
           } else {
               $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'.&mt('Modify this user: <span class="LC_cusr_emph">([_1])</span>',$userinfo).'</a>'.('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a></p>');
           }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
Line 2731  sub handler { Line 2765  sub handler {
         $context = 'domain';          $context = 'domain';
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         ['action','state','callingform','roletype','showrole','bulkaction']);          ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',
            'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     if ($env{'form.action'} ne 'dateselect') {      if ($env{'form.action'} ne 'dateselect') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
Removed from v.1.229  
changed lines
  Added in v.1.233

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