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

Diff for /loncom/interface/lonuserutils.pm between versions 1.41 and 1.42

version 1.41, 2008/01/02 09:01:02 version 1.42, 2008/01/05 05:22:42
Line 3399  sub upfile_drop_add { Line 3399  sub upfile_drop_add {
                      );                       );
         my $flushc=0;          my $flushc=0;
         my %student=();          my %student=();
         my (%curr_groups,@sections,@cleansec,@secs,$defaultwarn,$groupwarn);          my (%curr_groups,@sections,@cleansec,$defaultwarn,$groupwarn);
         my %userchg;          my %userchg;
         if ($context eq 'course' || $setting eq 'course') {          if ($context eq 'course' || $setting eq 'course') {
             if ($context eq 'course') {              if ($context eq 'course') {
Line 3438  sub upfile_drop_add { Line 3438  sub upfile_drop_add {
         }          }
         my (%curr_rules,%got_rules,%alerts);          my (%curr_rules,%got_rules,%alerts);
         my %customroles = &my_custom_roles();          my %customroles = &my_custom_roles();
         my ($custom_ok,@permitted_roles) =          my @permitted_roles = &roles_on_upload($context,$setting,%customroles); 
             &roles_on_upload($context,%customroles);  
         # Get new users list          # Get new users list
         foreach my $line (@userdata) {          foreach my $line (@userdata) {
               my @secs;
             my %entries=&Apache::loncommon::record_sep($line);              my %entries=&Apache::loncommon::record_sep($line);
             # Determine user name              # Determine user name
             unless (($entries{$fields{'username'}} eq '') ||              unless (($entries{$fields{'username'}} eq '') ||
Line 3475  sub upfile_drop_add { Line 3475  sub upfile_drop_add {
                     my $username = $entries{$fields{'username'}};                      my $username = $entries{$fields{'username'}};
                     if (defined($fields{'sec'})) {                      if (defined($fields{'sec'})) {
                         if (defined($entries{$fields{'sec'}})) {                          if (defined($entries{$fields{'sec'}})) {
                               $entries{$fields{'sec'}} =~ s/\W//g;
                             my $item = $entries{$fields{'sec'}};                              my $item = $entries{$fields{'sec'}};
                             $item =~ s/(\s+$|^\s+)//g;  
                             if ($item eq "none" || $item eq 'all') {                              if ($item eq "none" || $item eq 'all') {
                                 $r->print('<br />'.&mt('<b>[_1]</b>: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a reserved word.',$username,$fname,$mname,$lname,$gen,$item));                                  $r->print('<br />'.&mt('<b>[_1]</b>: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a reserved word.',$username,$fname,$mname,$lname,$gen,$item));
                                 next;                                  next;
Line 3535  sub upfile_drop_add { Line 3535  sub upfile_drop_add {
                     my $role = '';                      my $role = '';
                     if (defined($fields{'role'})) {                      if (defined($fields{'role'})) {
                         if ($entries{$fields{'role'}}) {                          if ($entries{$fields{'role'}}) {
                             if (grep(/^\Q$entries{$fields{'role'}}\E$/,@permitted_roles)) {                              $entries{$fields{'role'}}  =~ s/(\s+$|^\s+)//g;
                                 $role=$entries{$fields{'role'}};                              if ($entries{$fields{'role'}} ne '') {
                                 $role =~ s/(\s+$|^\s+)//g;                                  if (grep(/^\Q$entries{$fields{'role'}}\E$/,@permitted_roles)) {
                             }                                      $role = $entries{$fields{'role'}};
                             if ($custom_ok) {  
                                 if ($customroles{$role}) {  
                                     $role = 'cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$entries{$fields{'role'}};  
                                 }                                  }
                             }                              }
                             if ($role eq '') {                              if ($role eq '') {
Line 3636  sub upfile_drop_add { Line 3633  sub upfile_drop_add {
                         my $multiple = 0;                          my $multiple = 0;
                         my ($userresult,$authresult,$roleresult,$idresult);                          my ($userresult,$authresult,$roleresult,$idresult);
                         my (%userres,%authres,%roleres,%idres);                          my (%userres,%authres,%roleres,%idres);
                           my $singlesec = '';
                         if ($role eq 'st') {                          if ($role eq 'st') {
                             my $sec;                              my $sec;
                             if ($cid) {                              if (@secs > 0) {
                                 if (@secs > 0) {                                  $sec = $secs[0];
                                     $sec = $secs[0];  
                                 }  
                                 &modifystudent($domain,$username,$cid,$sec,  
                                                $desiredhost);  
                                 $roleresult =  
                                     &Apache::lonnet::modifystudent  
                                         ($domain,$username,$id,$amode,$password,  
                                          $fname,$mname,$lname,$gen,$sec,$enddate,  
                                          $startdate,$env{'form.forceid'},  
                                          $desiredhost,$email,'manual','',$cid);  
                                 $userresult = $roleresult;  
                             }                              }
                               &modifystudent($domain,$username,$cid,$sec,
                                              $desiredhost);
                               $roleresult =
                                   &Apache::lonnet::modifystudent
                                       ($domain,$username,$id,$amode,$password,
                                        $fname,$mname,$lname,$gen,$sec,$enddate,
                                        $startdate,$env{'form.forceid'},
                                        $desiredhost,$email,'manual','',$cid);
                               $userresult = $roleresult;
                         } else {                          } else {
                             if (($context eq 'course') ||                               if ($role ne '') { 
                                 (grep(/^\Q$role\E$/,@courseroles))) {                                  if ($context eq 'course' || $setting eq 'course') {
                                 if (!$cid) {                                      if ($customroles{$role}) {
                                     next;                                          $role = 'cr_'.$env{'user.domain'}.'_'.
                                 }                                                  $env{'user.name'}.'_'.$role;
                             }                                      }
                             my $singlesec;                                      if ($role ne 'cc') { 
                             if ((grep(/^\Q$role\E$/,@courseroles)) && ($role ne 'cc')) {                                          if (@secs > 1) {
                                 if (@secs > 1) {                                              $multiple = 1;
                                     $multiple = 1;                                              foreach my $sec (@secs) {
                                     foreach my $sec (@secs) {                                                  ($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =
                                         ($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =                                                  &modifyuserrole($context,$setting,
                                             &modifyuserrole($context,$setting,                                                      $changeauth,$cid,$domain,$username,
                                                 $changeauth,$cid,$domain,$username,                                                      $id,$amode,$password,$fname,
                                                 $id,$amode,$password,$fname,                                                      $mname,$lname,$gen,$sec,
                                                 $mname,$lname,$gen,$sec,                                                      $env{'form.forceid'},$desiredhost,
                                                 $env{'form.forceid'},$desiredhost,                                                      $email,$role,$enddate,
                                                 $email,$role,$enddate,$startdate,$checkid);                                                      $startdate,$checkid);
                                               }
                                           } elsif (@secs > 0) {
                                               $singlesec = $secs[0];
                                           }
                                     }                                      }
                                 } elsif (@secs > 0) {  
                                     $singlesec = $secs[0];  
                                 }                                  }
                             }                              }
                             if (!$multiple) {                              if (!$multiple) {
                                 ($userresult,$authresult,$roleresult,$idresult) =                                   ($userresult,$authresult,$roleresult,$idresult) = 
                                     &modifyuserrole($context,$setting,                                      &modifyuserrole($context,$setting,
                                         $changeauth,$cid,$domain,$username,                                                       $changeauth,$cid,$domain,$username, 
                                         $id,$amode,$password,$fname,                                                      $id,$amode,$password,$fname,
                                         $mname,$lname,$gen,$singlesec,                                                      $mname,$lname,$gen,$singlesec,
                                         $env{'form.forceid'},$desiredhost,                                                      $env{'form.forceid'},$desiredhost,
                                         $email,$role,$enddate,$startdate,$checkid);                                                      $email,$role,$enddate,$startdate,$checkid);
                             }                              }
                         }                          }
                         if ($multiple) {                          if ($multiple) {
                             foreach my $sec (sort(keys(%userres))) {                              foreach my $sec (sort(keys(%userres))) {
                                $flushc =                                  $flushc =
                                 &user_change_result($r,$userres{$sec},$authres{$sec},                                  &user_change_result($r,$userres{$sec},$authres{$sec},
                                                     $roleres{$sec},$idres{$sec},\%counts,$flushc,                                                      $roleres{$sec},$idres{$sec},\%counts,$flushc,
                                                     $username,\%userchg);                                                      $username,\%userchg);
Line 4556  sub authorpriv { Line 4554  sub authorpriv {
 }  }
   
 sub roles_on_upload {  sub roles_on_upload {
     my ($context,%customroles) = @_;      my ($context,$setting,%customroles) = @_;
     my (@possible_roles,@permitted_roles);      my (@possible_roles,@permitted_roles);
     if ($context eq 'domain') {      @possible_roles = &curr_role_permissions($context,$setting,1);
         @possible_roles = &curr_role_permissions($context,undef,1);  
         push(@possible_roles,&curr_role_permissions($context,'course',1));  
     } else {  
         @possible_roles = &curr_role_permissions($context,undef,1);  
     }  
     my $custom_ok = 0;  
     foreach my $role (@possible_roles) {      foreach my $role (@possible_roles) {
         if ($role eq 'cr') {          if ($role eq 'cr') {
             $custom_ok = 1;  
             push(@permitted_roles,keys(%customroles));              push(@permitted_roles,keys(%customroles));
         } else {          } else {
             push(@permitted_roles,$role);              push(@permitted_roles,$role);
         }          }
     }      }
     return ($custom_ok,@permitted_roles);      return @permitted_roles;
 }  }
   
 sub get_course_identity {  sub get_course_identity {
Removed from v.1.41  
changed lines
  Added in v.1.42

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