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

Diff for /loncom/interface/loncreateuser.pm between versions 1.338 and 1.345

version 1.338, 2010/04/02 14:18:50 version 1.345, 2010/06/15 02:29:43
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]defined by [_2]",'"'.$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 2297  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 2387  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 2440  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 2574  sub update_user_data { Line 2581  sub update_user_data {
         }          }
         my ($quotachanged,$oldportfolioquota,$newportfolioquota,$oldinststatus,          my ($quotachanged,$oldportfolioquota,$newportfolioquota,$oldinststatus,
             $newinststatus,$oldisdefault,$newisdefault,%oldsettings,              $newinststatus,$oldisdefault,$newisdefault,%oldsettings,
             %oldsettingstext,%newsettings,%newsettingstext,@disporder);              %oldsettingstext,%newsettings,%newsettingstext,@disporder,
               $olddefquota,$oldsettingstatus,$newdefquota,$newsettingstatus);
         @disporder = ('inststatus');          @disporder = ('inststatus');
         if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) {          if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) {
             push(@disporder,'requestcourses');              push(@disporder,'requestcourses');
Line 2583  sub update_user_data { Line 2591  sub update_user_data {
         }          }
         push(@disporder,('quota','tools'));          push(@disporder,('quota','tools'));
         $oldinststatus = $userenv{'inststatus'};          $oldinststatus = $userenv{'inststatus'};
         my ($defquota,$settingstatus) =           ($olddefquota,$oldsettingstatus) = 
             &Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus);              &Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus);
           ($newdefquota,$newsettingstatus) = ($olddefquota,$oldsettingstatus);
         my %canshow;          my %canshow;
         if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {          if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
             $canshow{'quota'} = 1;              $canshow{'quota'} = 1;
Line 2620  sub update_user_data { Line 2629  sub update_user_data {
                     $changeHash{'inststatus'} = $newinststatus;                      $changeHash{'inststatus'} = $newinststatus;
                     if ($newinststatus ne $oldinststatus) {                      if ($newinststatus ne $oldinststatus) {
                         $changed{'inststatus'} = $newinststatus;                          $changed{'inststatus'} = $newinststatus;
                           ($newdefquota,$newsettingstatus) =
                               &Apache::loncommon::default_quota($env{'form.ccdomain'},$newinststatus);
                     }                      }
                     if (ref($usertypes) eq 'HASH') {                      if (ref($usertypes) eq 'HASH') {
                         $newsettings{'inststatus'} = join(', ',map{ $usertypes->{$_}; } (@inststatuses));                           $newsettings{'inststatus'} = join(', ',map{ $usertypes->{$_}; } (@inststatuses)); 
Line 2633  sub update_user_data { Line 2644  sub update_user_data {
                 $newsettings{'inststatus'} = $othertitle;                  $newsettings{'inststatus'} = $othertitle;
                 if ($newinststatus ne $oldinststatus) {                  if ($newinststatus ne $oldinststatus) {
                     $changed{'inststatus'} = $changeHash{'inststatus'};                      $changed{'inststatus'} = $changeHash{'inststatus'};
                       ($newdefquota,$newsettingstatus) =
                           &Apache::loncommon::default_quota($env{'form.ccdomain'},$newinststatus);
                 }                  }
             }              }
         } elsif ($context ne 'selfcreate') {          } elsif ($context ne 'selfcreate') {
Line 2655  sub update_user_data { Line 2668  sub update_user_data {
                     }                      }
                 } else {                  } else {
                     $changed{'quota'} = &quota_admin('',\%changeHash);                      $changed{'quota'} = &quota_admin('',\%changeHash);
                     $newportfolioquota = $defquota;                      $newportfolioquota = $newdefquota;
                     $newisdefault = 1;                      $newisdefault = 1;
                 }                  }
             } else {              } else {
                 $oldisdefault = 1;                  $oldisdefault = 1;
                 $oldportfolioquota = $defquota;                  $oldportfolioquota = $olddefquota;
                 if ($env{'form.customquota'} == 1) {                  if ($env{'form.customquota'} == 1) {
                     if ($env{'form.portfolioquota'} eq '') {                      if ($env{'form.portfolioquota'} eq '') {
                         $newportfolioquota = 0;                          $newportfolioquota = 0;
Line 2670  sub update_user_data { Line 2683  sub update_user_data {
                     }                      }
                     $changed{'quota'} = &quota_admin($newportfolioquota,\%changeHash);                      $changed{'quota'} = &quota_admin($newportfolioquota,\%changeHash);
                 } else {                  } else {
                     $newportfolioquota = $defquota;                      $newportfolioquota = $newdefquota;
                     $newisdefault = 1;                      $newisdefault = 1;
                 }                  }
             }              }
             if ($oldisdefault) {              if ($oldisdefault) {
                 $oldsettingstext{'quota'} = &get_defaultquota_text($settingstatus);                  $oldsettingstext{'quota'} = &get_defaultquota_text($oldsettingstatus);
             }              }
             if ($newisdefault) {              if ($newisdefault) {
                 $newsettingstext{'quota'} = &get_defaultquota_text($settingstatus);                  $newsettingstext{'quota'} = &get_defaultquota_text($newsettingstatus);
             }              }
             &tool_changes('tools',\@usertools,\%oldsettings,\%oldsettingstext,\%userenv,              &tool_changes('tools',\@usertools,\%oldsettings,\%oldsettingstext,\%userenv,
                           \%changeHash,\%changed,\%newsettings,\%newsettingstext);                            \%changeHash,\%changed,\%newsettings,\%newsettingstext);
Line 4380  sub print_main_menu { Line 4393  sub print_main_menu {
          [           [
             {              {
              linktext => $links{$linkcontext}{'upload'},               linktext => $links{$linkcontext}{'upload'},
              icon => 'sctr.png',               icon => 'uplusr.png',
              #help => 'Course_Create_Class_List',               #help => 'Course_Create_Class_List',
              url => '/adm/createuser?action=upload',               url => '/adm/createuser?action=upload',
              permission => $permission->{'cusr'},               permission => $permission->{'cusr'},
Line 4388  sub print_main_menu { Line 4401  sub print_main_menu {
             },              },
             {              {
              linktext => $links{$linkcontext}{'listusers'},               linktext => $links{$linkcontext}{'listusers'},
              icon => 'edit-find.png',               icon => 'mngcu.png',
              #help => 'Course_View_Class_List',               #help => 'Course_View_Class_List',
              url => '/adm/createuser?action=listusers',               url => '/adm/createuser?action=listusers',
              permission => ($permission->{'view'} || $permission->{'cusr'}),               permission => ($permission->{'view'} || $permission->{'cusr'}),
Line 4520  sub print_main_menu { Line 4533  sub print_main_menu {
             push(@{ $menu[2]->{items} },               push(@{ $menu[2]->{items} }, 
                 {                  {
                  linktext => 'User Self-Enrollment',                   linktext => 'User Self-Enrollment',
                  icon => 'cstr.png',                   icon => 'self_enroll.png',
                  #help => 'Course_Self_Enrollment',                   #help => 'Course_Self_Enrollment',
                  url => '/adm/createuser?action=selfenroll',                   url => '/adm/createuser?action=selfenroll',
                  permission => $permission->{'cusr'},                   permission => $permission->{'cusr'},
Line 4946  ENDSCRIPT Line 4959  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 4963  ENDSCRIPT Line 4976  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.338  
changed lines
  Added in v.1.345

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