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

Diff for /loncom/interface/loncreateuser.pm between versions 1.418 and 1.420

version 1.418, 2016/11/09 16:35:46 version 1.420, 2016/11/11 14:39:23
Line 429  sub build_tools_display { Line 429  sub build_tools_display {
                           '</span>';                            '</span>';
         }          }
         $output .= '  <td'.$colspan.'>'.$custom_access.('&nbsp;'x4).          $output .= '  <td'.$colspan.'>'.$custom_access.('&nbsp;'x4).
                    $lt{'avai'}.': '.$currdisp.'</td>'."\n";                     $lt{'avai'}.': '.$currdisp.'</td>'."\n".
                    &Apache::loncommon::end_data_table_row()."\n";                     &Apache::loncommon::end_data_table_row()."\n";
         unless (&Apache::lonnet::allowed('udp',$ccdomain)) {          unless (&Apache::lonnet::allowed('udp',$ccdomain)) {
             $output .=              $output .=
Line 1899  sub display_existing_roles { Line 1899  sub display_existing_roles {
                 }                  }
             }              }
             if ($area=~m{^/($match_domain/$match_courseid/(\w+))}) {              if ($area=~m{^/($match_domain/$match_courseid/(\w+))}) {
                   
                 $csec = $2;                  $csec = $2;
                 $carea.='<br />'.&mt('Section: [_1]',$csec);                  $carea.='<br />'.&mt('Section: [_1]',$csec);
                 $sortkey.="\0$csec";                  $sortkey.="\0$csec";
Line 2001  sub display_existing_roles { Line 2000  sub display_existing_roles {
             $rolepriv{$envkey}='edit';              $rolepriv{$envkey}='edit';
         } else {          } else {
             if ($context eq 'domain') {              if ($context eq 'domain') {
                 if (&Apache::lonnet::allowed('vur',$ccdomain)) {                  if ((&Apache::lonnet::allowed('vur',$ccdomain)) &&
                       ($area=~m{^/$ccdomain/})) {
                     $rolepriv{$envkey}='view';                      $rolepriv{$envkey}='view';
                 }                  }
             } elsif ($context eq 'course') {              } elsif ($context eq 'course') {
Line 2058  sub display_existing_roles { Line 2058  sub display_existing_roles {
 &Apache::loncommon::start_data_table_header_row());  &Apache::loncommon::start_data_table_header_row());
         if ($showall) {          if ($showall) {
             $r->print(              $r->print(
 '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}  '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.'</th>'
             );              );
         } elsif ($showexpired) {          } elsif ($showexpired) {
             $r->print('<th>'.$lt{'rev'}.'</th>');              $r->print('<th>'.$lt{'rev'}.'</th>');
         }          }
         $r->print(          $r->print(
 '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.  '<th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>'.
 '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.  '<th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
 &Apache::loncommon::end_data_table_header_row());  &Apache::loncommon::end_data_table_header_row());
         foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') {          foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') {
             if ($output{$type}) {              if ($output{$type}) {
Line 6096  ENDSCRIPT Line 6096  ENDSCRIPT
                 }                  }
                 if ($registered) {                  if ($registered) {
                     $regon = ' checked="checked" ';                      $regon = ' checked="checked" ';
                     $regoff = ' ';                      $regoff = '';
                 } else {                  } else {
                     $regon = ' ';                      $regon = '';
                     $regoff = ' checked="checked" ';                      $regoff = ' checked="checked" ';
                 }                  }
                 $output .= '<label>'.                  $output .= '<label>'.
                            '<input type="radio" name="selfenroll_registered" value="1"'.$regon.$disabled.'/>'.                             '<input type="radio" name="selfenroll_registered" value="1"'.$regon.$disabled.' />'.
                            &mt('Yes').'</label>&nbsp;&nbsp;<label>'.                             &mt('Yes').'</label>&nbsp;&nbsp;<label>'.
                            '<input type="radio" name="selfenroll_registered" value="0"'.$regoff.$disabled.'/>'.                             '<input type="radio" name="selfenroll_registered" value="0"'.$regoff.$disabled.' />'.
                            &mt('No').'</label>';                             &mt('No').'</label>';
             } elsif ($item eq 'enroll_dates') {              } elsif ($item eq 'enroll_dates') {
                 my ($starttime,$endtime);                  my ($starttime,$endtime);
Removed from v.1.418  
changed lines
  Added in v.1.420

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