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

Diff for /loncom/interface/loncreateuser.pm between versions 1.115 and 1.116

version 1.115, 2006/05/09 15:09:27 version 1.116, 2006/05/09 17:21:13
Line 235  sub user_modification_js { Line 235  sub user_modification_js {
                         else {                          else {
                             sections = document.cu.elements[i+1].value;                                  sections = document.cu.elements[i+1].value;    
                         }                          }
                         var newsecs = document.cu.elements[i+1].value;                          var newseclist = document.cu.elements[i+1].value;
                         if (newsecs != null && newsecs != "") {                          var newsecs = new Array();
                             var numsplit = newsecs.split(/,/g);                          if (newseclist != null && newseclist != "") {
                             numsec = numsec + numsplit.length;                              newsecs = newseclist.split(/,/g);
                               numsec = numsec + newsecs.length;
                         }                          }
                         if ((role == 'st') && (numsec > 1)) {                          if ((role == 'st') && (numsec > 1)) {
                             alert("In each course, each user may only have one student role at a time. You had selected "+numsec+" sections.\\nPlease modify your selections so they include no more than one section.")                                alert("In each course, each user may only have one student role at a time. You had selected "+numsec+" sections.\\nPlease modify your selections so they include no more than one section.")  
                             return;                              return;
                         }                          }
                         else {                          else {
                             for (var j=0; j<numsplit.length; j++) {                              for (var j=0; j<newsecs.length; j++) {
                                 if ((numsplit[j] == 'all') ||                                   if ((newsecs[j] == 'all') || 
                                     (numsplit[j] == 'none')) {                                      (newsecs[j] == 'none')) {
                                     alert("'"+numsplit[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");                                      alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
                                     return;                                      return;
                                 }                                  }
                                 for (var k=0; k<groups.length; k++) {                                  for (var k=0; k<groups.length; k++) {
                                     if (numsplit[j] == groups[k]) {                                      if (newsecs[j] == groups[k]) {
                                         alert("'"+numsplit[j]+"' may not be used as a section name, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");                                          alert("'"+newsecs[j]+"' may not be used as a section name, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
                                         return;                                          return;
                                     }                                      }
                                 }                                  }
Line 324  sub print_user_modification_page { Line 325  sub print_user_modification_page {
             var userrole = document.cu.role.options[document.cu.role.selectedIndex].value              var userrole = document.cu.role.options[document.cu.role.selectedIndex].value
             var section="";              var section="";
             var numsections = 0;              var numsections = 0;
               var newsecs = new Array();
             for (var i=0; i<document.cu.currsec.length; i++) {              for (var i=0; i<document.cu.currsec.length; i++) {
                 if (document.cu.currsec.options[i].selected == true ) {                  if (document.cu.currsec.options[i].selected == true ) {
                     if (document.cu.currsec.options[i].value != "" && document.cu.currsec.options[i].value != null) {                       if (document.cu.currsec.options[i].value != "" && document.cu.currsec.options[i].value != null) { 
Line 345  sub print_user_modification_page { Line 347  sub print_user_modification_page {
                 else {                  else {
                     section = section + "," +  document.cu.newsec.value                      section = section + "," +  document.cu.newsec.value
                 }                  }
                 var numsplit = document.cu.newsec.value.split(/,/g);                  newsecs = document.cu.newsec.value.split(/,/g);
                 numsections = numsections + numsplit.length;                  numsections = numsections + newsecs.length;
             }              }
             if ((userrole == 'st') && (numsections > 1)) {              if ((userrole == 'st') && (numsections > 1)) {
                 alert("In each course, each user may only have one student role at a time. You had selected "+numsections+" sections.\\nPlease modify your selections so they include no more than one section.")                  alert("In each course, each user may only have one student role at a time. You had selected "+numsections+" sections.\\nPlease modify your selections so they include no more than one section.")
                 return;                  return;
             }              }
             for (var j=0; j<numsplit.length; j++) {              for (var j=0; j<newsecs.length; j++) {
                 if ((numsplit[j] == 'all') || (numsplit[j] == 'none')) {                  if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) {
                     alert("'"+numsplit[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");                      alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
                     return;                      return;
                 }                  }
                 if (document.cu.groups.value != '') {                  if (document.cu.groups.value != '') {
                     var groups = document.cu.groups.value.split(/,/g);                      var groups = document.cu.groups.value.split(/,/g);
                     for (var k=0; k<groups.length; k++) {                      for (var k=0; k<groups.length; k++) {
                         if (numsplit[j] == groups[k]) {                          if (newsecs[j] == groups[k]) {
                             alert("'"+numsplit[j]+"' may not be used as the name for a section, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");                              alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
                             return;                               return; 
                         }                          }
                     }                      }
Line 1238  END Line 1240  END
  '</b><br />');   '</b><br />');
     }      }
  } elsif ($_=~/^form\.del/) {   } elsif ($_=~/^form\.del/) {
     if ($_=~/^form\.del\:([^\_]+)\_([^\_]+)$/) {      if ($_=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {
   # Delete standard role
         $r->print(&mt('Deleting').' '.$2.' in '.$1.': '.          $r->print(&mt('Deleting').' '.$2.' in '.$1.': '.
                      &Apache::lonnet::assignrole($env{'form.ccdomain'},                       &Apache::lonnet::assignrole($env{'form.ccdomain'},
                      $env{'form.ccuname'},$1,$2,$now,0,1).'<br />');                       $env{'form.ccuname'},$1,$2,$now,0,1).'<br />');
Line 1254  END Line 1257  END
                          &Apache::lonnet::escape($now.':'),                           &Apache::lonnet::escape($now.':'),
                      $env{'course.'.$cid.'.home'}).'</b><br />');                       $env{'course.'.$cid.'.home'}).'</b><br />');
  }   }
     }              }
               if ($_=~/^form\.del\:([^\_]+)\_cr\.cr\/(\w+)\/(\w+)\/(\w+)$/) {
                   my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
   # Delete custom role
                   $r->print(&mt('Deleting custom role [_1] by [_2]@[_3] in [_4]',
                         $rolename,$rnam,$rdom,$url).': <b>'.
                         &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
                            $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
                            0,1).'</b><br />');
               }
  } elsif ($_=~/^form\.ren/) {   } elsif ($_=~/^form\.ren/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
     if ($_=~/^form\.ren\:([^\_]+)\_([^\_]+)$/) {  # Re-enable standard role
       if ($_=~/^form\.ren\:([^\_]+)\_([^\_\.]+)$/) {
                 my $url = $1;                  my $url = $1;
                 my $role = $2;                  my $role = $2;
                 my $logmsg;                  my $logmsg;
Line 1278  END Line 1291  END
                 } else {                  } else {
     my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},      my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},
                                $env{'form.ccuname'},$url,$role,0,$now);                                 $env{'form.ccuname'},$url,$role,0,$now);
     $output = &mt('Re-Enabling [_1] in [_2]: [_3]',      $output = &mt('Re-enabling [_1] in [_2]: <b>[_3]</b>',
       $role,$url,$result).'<br />';        $role,$url,$result).'<br />';
  }   }
                 $r->print($output);                  $r->print($output);
     }      }
   # Re-enable custom role
               if ($_=~/^form\.ren\:([^\_]+)\_cr\.cr\/(\w+)\/(\w+)\/(\w+)$/) {
                   my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
                   my $result = &Apache::lonnet::assigncustomrole(
                                  $env{'form.ccdomain'}, $env{'form.ccuname'},
                                  $url,$rdom,$rnam,$rolename,0,$now);
                   $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',
                             $rolename,$rnam,$rdom,$url,$result).'<br />');
               }
  } elsif ($_=~/^form\.act/) {   } elsif ($_=~/^form\.act/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
Removed from v.1.115  
changed lines
  Added in v.1.116

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