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

Diff for /loncom/interface/loncreateuser.pm between versions 1.375 and 1.377

version 1.375, 2013/03/01 04:55:34 version 1.377, 2013/06/04 23:12:08
Line 1739  sub display_existing_roles { Line 1739  sub display_existing_roles {
                 }                  }
             }              }
             if ($role_code eq 'ca' || $role_code eq 'au' || $role_code eq 'aa') {              if ($role_code eq 'ca' || $role_code eq 'au' || $role_code eq 'aa') {
                 $class='Construction Space';                  $class='Authoring Space';
             } elsif ($role_code eq 'su') {              } elsif ($role_code eq 'su') {
                 $class='System';                  $class='System';
             } else {              } else {
Line 1810  sub display_existing_roles { Line 1810  sub display_existing_roles {
   
     my $rolesdisplay = 0;      my $rolesdisplay = 0;
     my %output = ();      my %output = ();
     foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') {      foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') {
         $output{$type} = '';          $output{$type} = '';
         foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {          foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
             if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {              if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {
Line 1836  sub display_existing_roles { Line 1836  sub display_existing_roles {
                 $contextrole = &mt('Existing Roles in this Course');                  $contextrole = &mt('Existing Roles in this Course');
             }              }
         } elsif ($env{'request.role'} =~ /^au\./) {          } elsif ($env{'request.role'} =~ /^au\./) {
             $contextrole = &mt('Existing Co-Author Roles in your Construction Space');              $contextrole = &mt('Existing Co-Author Roles in your Authoring Space');
         } else {          } else {
             $contextrole = &mt('Existing Roles in this Domain');              $contextrole = &mt('Existing Roles in this Domain');
         }          }
Line 1848  sub display_existing_roles { Line 1848  sub display_existing_roles {
 '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.  '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
 '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.  '</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 ('Construction Space','Course','Community','Domain','System','Unknown') {          foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') {
             if ($output{$type}) {              if ($output{$type}) {
                 $r->print($output{$type}."\n");                  $r->print($output{$type}."\n");
             }              }
Line 1873  sub new_coauthor_roles { Line 1873  sub new_coauthor_roles {
         my $cuname=$env{'user.name'};          my $cuname=$env{'user.name'};
         my $cudom=$env{'request.role.domain'};          my $cudom=$env{'request.role.domain'};
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                     'cs'   => "Construction Space",                      'cs'   => "Authoring Space",
                     'act'  => "Activate",                      'act'  => "Activate",
                     'rol'  => "Role",                      'rol'  => "Role",
                     'ext'  => "Extent",                      'ext'  => "Extent",
Line 1924  sub new_coauthor_roles { Line 1924  sub new_coauthor_roles {
                       '</span>');                        '</span>');
         } elsif (($env{'user.name'} eq $ccuname) &&          } elsif (($env{'user.name'} eq $ccuname) &&
              ($env{'user.domain'} eq $ccdomain)) {               ($env{'user.domain'} eq $ccdomain)) {
             $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted'));              $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Authoring Space is not permitted'));
         }          }
     }      }
     return $addrolesdisplay;;      return $addrolesdisplay;;
Line 6025  sub role_display_filter { Line 6025  sub role_display_filter {
                &mt('Context:').'</b><br /><select name="chgcontext">';                 &mt('Context:').'</b><br /><select name="chgcontext">';
     my @posscontexts;      my @posscontexts;
     if ($context eq 'course') {      if ($context eq 'course') {
         @posscontexts = ('any','auto','updatenow','createcourse','course','domain','selfenroll','requestcourses');          @posscontexts = ('any','automated','updatenow','createcourse','course','domain','selfenroll','requestcourses');
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         @posscontexts = ('any','domain','requestauthor','domconfig','server');          @posscontexts = ('any','domain','requestauthor','domconfig','server');
     } else {      } else {
Line 6037  sub role_display_filter { Line 6037  sub role_display_filter {
             $selstr = ' selected="selected"';              $selstr = ' selected="selected"';
         }          }
         if ($context eq 'course') {          if ($context eq 'course') {
             if (($chgtype eq 'auto') || ($chgtype eq 'updatenow')) {              if (($chgtype eq 'automated') || ($chgtype eq 'updatenow')) {
                 next if (!&Apache::lonnet::auto_run($cnum,$cdom));                  next if (!&Apache::lonnet::auto_run($cnum,$cdom));
             }              }
         }          }
Line 6073  sub rolechg_contexts { Line 6073  sub rolechg_contexts {
     if ($context eq 'course') {      if ($context eq 'course') {
         %lt = &Apache::lonlocal::texthash (          %lt = &Apache::lonlocal::texthash (
                                              any          => 'Any',                                               any          => 'Any',
                                              auto         => 'Automated enrollment',                                               automated    => 'Automated Enrollment',
                                              updatenow    => 'Roster Update',                                               updatenow    => 'Roster Update',
                                              createcourse => 'Course Creation',                                               createcourse => 'Course Creation',
                                              course       => 'User Management in course',                                               course       => 'User Management in course',
Removed from v.1.375  
changed lines
  Added in v.1.377

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