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

Diff for /loncom/interface/lonuserutils.pm between versions 1.59 and 1.61

version 1.59, 2008/06/24 16:17:05 version 1.61, 2008/08/13 08:17:58
Line 779  sub print_upload_manager_footer { Line 779  sub print_upload_manager_footer {
               'onClick="javascript:verify(this.form,this.form.csec)" '.                'onClick="javascript:verify(this.form,this.form.csec)" '.
         'value="'.&mt('Update Users').'" />'."<br />\n";          'value="'.&mt('Update Users').'" />'."<br />\n";
     if ($context eq 'course') {      if ($context eq 'course') {
         $Str .= &mt('Note: for large courses, this operation may be time '.          $Str .= &mt('Note: for large courses, this operation may be time consuming');
                     'consuming');  
     }      }
     $Str .= '</div>';      $Str .= '</div>';
     $r->print($Str);      $r->print($Str);
Line 790  sub print_upload_manager_footer { Line 789  sub print_upload_manager_footer {
 sub forceid_change {  sub forceid_change {
     my ($context) = @_;      my ($context) = @_;
     my $output =       my $output = 
         "<h3>".&mt('ID/Student Number')."</h3>\n".          "<h3>".&mt('Student/Employee ID')."</h3>\n".
         "<p>\n".'<label><input type="checkbox" name="forceid" value="yes">'.          "<p>\n".'<label><input type="checkbox" name="forceid" value="yes">'.
         &mt('Disable ID/Student Number Safeguard and Force Change '.          &mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs').
         'of Conflicting IDs').'</label><br />'."\n".          '</label><br />'."\n".
         &mt('(only do if you know what you are doing.)')."\n";          &mt('(only do if you know what you are doing.)')."\n";
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $output .= '<br /><label><input type="checkbox" name="recurseid"'.          $output .= '<br /><label><input type="checkbox" name="recurseid"'.
                    ' value="yes">'.                      ' value="yes">'. 
   &mt('Update ID/Student Number in courses in which user is Active/Future student,<br />(if forcing change).').    &mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />').
                    '</label>'."\n";                     '</label>'."\n";
     }      }
     $output .= '</p>';      $output .= '</p>';
Line 865  sub print_upload_manager_form { Line 864  sub print_upload_manager_form {
              ['mname',&mt('Middle Names/Initials'),$env{'form.mname_choice'}],               ['mname',&mt('Middle Names/Initials'),$env{'form.mname_choice'}],
              ['lname',&mt('Last Name'),       $env{'form.lname_choice'}],               ['lname',&mt('Last Name'),       $env{'form.lname_choice'}],
              ['gen',  &mt('Generation'),      $env{'form.gen_choice'}],               ['gen',  &mt('Generation'),      $env{'form.gen_choice'}],
              ['id',   &mt('ID/Student Number'),$env{'form.id_choice'}],               ['id',   &mt('Student/Employee ID'),$env{'form.id_choice'}],
              ['sec',  &mt('Section'),          $env{'form.sec_choice'}],               ['sec',  &mt('Section'),          $env{'form.sec_choice'}],
              ['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],               ['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],
              ['email',&mt('E-mail Address'),   $env{'form.email_choice'}],               ['email',&mt('E-mail Address'),   $env{'form.email_choice'}],
Line 4573  sub can_modify_userinfo { Line 4572  sub can_modify_userinfo {
                         if (ref($userroles) eq 'ARRAY') {                          if (ref($userroles) eq 'ARRAY') {
                             foreach my $role (@{$userroles}) {                              foreach my $role (@{$userroles}) {
                                 my $testrole;                                  my $testrole;
                                 if ($role =~ /^cr\//) {                                  if ($context eq 'selfcreate') {
                                     $testrole = 'cr';  
                                 } else {  
                                     $testrole = $role;                                      $testrole = $role;
                                   } else {
                                       if ($role =~ /^cr\//) {
                                           $testrole = 'cr';
                                       } else {
                                           $testrole = $role;
                                       }
                                 }                                  }
                                 if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {                                  if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {
                                     if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {                                      if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {
Removed from v.1.59  
changed lines
  Added in v.1.61

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