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

Diff for /loncom/interface/lonuserutils.pm between versions 1.109.2.5 and 1.109.2.6

version 1.109.2.5, 2010/09/20 00:26:44 version 1.109.2.6, 2010/11/08 21:08:27
Line 4150  sub upfile_drop_add { Line 4150  sub upfile_drop_add {
         my (%curr_rules,%got_rules,%alerts,%cancreate);          my (%curr_rules,%got_rules,%alerts,%cancreate);
         my %customroles = &my_custom_roles($crstype);          my %customroles = &my_custom_roles($crstype);
         my @permitted_roles =           my @permitted_roles = 
             &roles_on_upload($context,$setting,$crstype,%customroles);               &roles_on_upload($context,$setting,$crstype,%customroles);
         my %longtypes = &Apache::lonlocal::texthash(          my %longtypes = &Apache::lonlocal::texthash(
                             official   => 'Institutional',                              official   => 'Institutional',
                             unofficial => 'Non-institutional',                              unofficial => 'Non-institutional',
Line 4351  sub upfile_drop_add { Line 4351  sub upfile_drop_add {
                                 }                                  }
                             }                              }
                         }                          }
                     }                          my $usertype = 'unofficial';
                     my $usertype = 'unofficial';                          if (ref($rulematch{$user}) eq 'HASH') {
                     if (ref($rulematch{$user}) eq 'HASH') {                              if ($rulematch{$user}{'username'}) {
                         if ($rulematch{$user}{'username'}) {                                  $usertype = 'official';
                             $usertype = 'official';                              }
                           }
                           if (!$cancreate{$usertype}) {
                               $r->print('<br />'.
                                         &mt("[_1]: The user does not exist, and you are not permitted to create users of type: $longtypes{$usertype}.",'<b>'.$username.'</b>'));
                               next;
                         }                          }
                     }  
                     if (!$cancreate{$usertype}) {  
                         r->print('<br />'.  
                                  &mt("[_1]: The user does not exist, and you are not permitted to create users of type: $longtypes{$usertype}.",'<b>'.$username.'</b>'));  
                         next;  
                     }  
                     } else {                      } else {
                         if ($context eq 'course' || $context eq 'author') {                          if ($context eq 'course' || $context eq 'author') {
                             if ($userdomain eq $domain ) {                              if ($userdomain eq $domain ) {
Line 5119  sub setsections_javascript { Line 5118  sub setsections_javascript {
                     accr => 'A course coordinator role will be added with access to all sections.',                      accr => 'A course coordinator role will be added with access to all sections.',
                     acor => 'A coordinator role will be added with access to all sections',                      acor => 'A coordinator role will be added with access to all sections',
                     inea => 'In each course, each user may only have one student role at a time.',                      inea => 'In each course, each user may only have one student role at a time.',
                     inco => 'In each community, each user may only have on member role at a time.',                      inec => 'In each community, each user may only have on member role at a time.',
                     youh => 'You had selected ',                      youh => 'You had selected ',
                     secs => 'sections.',                      secs => 'sections.',
                     plmo => 'Please modify your selections so they include no more than one section.',                      plmo => 'Please modify your selections so they include no more than one section.',
Line 5184  function setSections(formname,crstype) { Line 5183  function setSections(formname,crstype) {
                         if (crstype == 'Community') {                          if (crstype == 'Community') {
                             alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");                              alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
                         } else {                          } else {
                             alert("$alerts{'inco'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");                              alert("$alerts{'inec'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
                         }                          }
                         return;                          return;
                     }                      }
Removed from v.1.109.2.5  
changed lines
  Added in v.1.109.2.6

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