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

Diff for /loncom/interface/loncreateuser.pm between versions 1.295.2.32 and 1.295.2.35

version 1.295.2.32, 2010/04/14 19:46:56 version 1.295.2.35, 2010/08/20 04:19:38
Line 1613  sub display_existing_roles { Line 1613  sub display_existing_roles {
             $plaintext=&Apache::lonnet::plaintext($role_code,$class)              $plaintext=&Apache::lonnet::plaintext($role_code,$class)
         } else {          } else {
             $plaintext=              $plaintext=
         "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";                  &mt('Customrole [_1][_2]defined by [_3]',
                           '"'.$croletitle.'"',
                           '<br />',
                           $croleuname.':'.$croleudom);
         }          }
         $row.= '</td><td>'.$plaintext.          $row.= '</td><td>'.$plaintext.
                '</td><td>'.$area.                 '</td><td>'.$area.
Line 2297  sub update_user_data { Line 2300  sub update_user_data {
   
     $r->print('<h3>'.&mt('User [_1] in domain [_2]',      $r->print('<h3>'.&mt('User [_1] in domain [_2]',
  $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');   $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');
       $r->print('<p class="LC_info">'.&mt('Please be patient').'</p>');
     my (%alerts,%rulematch,%inst_results,%curr_rules);      my (%alerts,%rulematch,%inst_results,%curr_rules);
     my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');      my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');
     my @usertools = ('aboutme','blog','portfolio');      my @usertools = ('aboutme','blog','portfolio');
Line 2385  sub update_user_data { Line 2389  sub update_user_data {
                     }                      }
                 }                  }
                 foreach my $item (@requestcourses) {                  foreach my $item (@requestcourses) {
                     $newcustom{$item} = $env{'form.crsreq_'.$item};                      if ($env{'form.custom'.$item} == 1) {
                     if ($env{'form.crsreq_'.$item} eq 'autolimit') {                          $newcustom{$item} = $env{'form.crsreq_'.$item};
                         $newcustom{$item} .= '=';                          if ($env{'form.crsreq_'.$item} eq 'autolimit') {
                         unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {                              $newcustom{$item} .= '=';
                             $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};                              unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
                                   $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
                               }
                         }                          }
                           $changed{$item} = &tool_admin($item,$newcustom{$item},
                                                         \%changeHash,'requestcourses');
                     }                      }
                     $changed{$item} = &tool_admin($item,$newcustom{$item},  
                                               \%changeHash,'requestcourses');  
                 }                  }
             }              }
             if ($canmodify_status{'inststatus'}) {              if ($canmodify_status{'inststatus'}) {
Line 2436  sub update_user_data { Line 2442  sub update_user_data {
     $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);          $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);    
  }   }
     }      }
   
       $r->rflush(); # Finish display of header before time consuming actions start
   
     ##      ##
     my (@userroles,%userupdate,$cnum,$cdom,$crstype,%namechanged);      my (@userroles,%userupdate,$cnum,$cdom,%namechanged);
     if ($context eq 'course') {      if ($context eq 'course') {
         ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();          ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
         $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);          $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
Line 4865  ENDSCRIPT Line 4874  ENDSCRIPT
                                    '<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'.                                     '<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'.
                                    &Apache::loncommon::plainname($ccuname,$ccudom).                                     &Apache::loncommon::plainname($ccuname,$ccudom).
                                    '</label></span></td>';                                     '</label></span></td>';
                         $count;                          $count ++;
                     }                      }
                     my $rem = $count%$numcols;                      my $rem = $count%$numcols;
                     if ($rem) {                      if ($rem) {
Line 4882  ENDSCRIPT Line 4891  ENDSCRIPT
                 my $cid = $env{'request.course.id'};                  my $cid = $env{'request.course.id'};
                 my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'};                  my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'};
                 my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'};                  my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'};
                 my $nolimit = ' checked="checked" ';                  $nolimit = ' checked="checked" ';
                 if ($currlim eq 'allstudents') {                  if ($currlim eq 'allstudents') {
                     $crslimit = ' checked="checked" ';                      $crslimit = ' checked="checked" ';
                     $selflimit = ' ';                      $selflimit = ' ';
Removed from v.1.295.2.32  
changed lines
  Added in v.1.295.2.35

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