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

Diff for /loncom/auth/lonroles.pm between versions 1.269.2.7 and 1.269.2.10

version 1.269.2.7, 2013/01/04 04:08:34 version 1.269.2.10, 2013/06/05 15:35:32
Line 139  use Apache::lonpageflip(); Line 139  use Apache::lonpageflip();
 use Apache::lonnavdisplay();  use Apache::lonnavdisplay();
 use Apache::loncoursequeueadmin;  use Apache::loncoursequeueadmin;
 use Apache::longroup;  use Apache::longroup;
   use Apache::lonrss;
 use GDBM_File;  use GDBM_File;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities;  use HTML::Entities;
Line 316  sub handler { Line 317  sub handler {
                             my $trolecode = 'au./'.$domain.'/';                              my $trolecode = 'au./'.$domain.'/';
                             my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;                              my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
                             $r->internal_redirect($switchserver);                              $r->internal_redirect($switchserver);
                               return OK;
                         }                          }
                         last;                          last;
                     }                      }
Line 327  sub handler { Line 329  sub handler {
                                 my $trolecode = 'ca./'.$domain.'/'.$user;                                  my $trolecode = 'ca./'.$domain.'/'.$user;
                                 my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;                                  my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
                                 $r->internal_redirect($switchserver);                                  $r->internal_redirect($switchserver);
                                   return OK;
                             }                              }
                             last;                              last;
                         }                          }
Line 348  sub handler { Line 351  sub handler {
                                 my $switchserver = '/adm/switchserver?'                                  my $switchserver = '/adm/switchserver?'
                                                   .'otherserver='.$home.'&role='.$trolecode;                                                    .'otherserver='.$home.'&role='.$trolecode;
                                 $r->internal_redirect($switchserver);                                  $r->internal_redirect($switchserver);
                                   return OK;
                             }                              }
                         } else {                          } else {
                             delete($env{$envkey});                              delete($env{$envkey});
Line 522  ENDENTERKEY Line 526  ENDENTERKEY
   
     if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {      if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {
                         my $msg;                          my $msg;
  my ($furl,$ferr)=                          my ($furl,$ferr)=
     &Apache::lonuserstate::readmap($cdom.'/'.$cnum);                              &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
                         unless (($ferr) || ($env{'form.switchrole'}) ||                          unless ($ferr) {
                                 ($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {                              unless (($env{'form.switchrole'}) ||
                             &Apache::lonnet::put('nohist_crslastlogin',                                      ($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {
                                 {$env{'user.name'}.':'.$env{'user.domain'}.                                  &Apache::lonnet::put('nohist_crslastlogin',
                                 ':'.$csec.':'.$role => $now},$cdom,$cnum);                                      {$env{'user.name'}.':'.$env{'user.domain'}.
                                        ':'.$csec.':'.$role => $now},$cdom,$cnum);
                               }
                               my ($feeds,$syllabus_time);
                               &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
                               &Apache::lonnet::appenv({'request.course.feeds' => $feeds});
                               unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {
                                   unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) ||
                                           ($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {
                                       my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
                                       $syllabus_time = $syllabus{'uploaded.lastmodified'};
                                       if ($syllabus_time) {
                                           &Apache::lonnet::appenv({'request.course.syllabustime' => $syllabus_time});
                                       }
                                   }
                               }
                         }                          }
  if (($env{'form.orgurl'}) &&    if (($env{'form.orgurl'}) && 
     ($env{'form.orgurl'}!~/^\/adm\/flip/)) {      ($env{'form.orgurl'}!~/^\/adm\/flip/)) {
Line 678  ENDENTERKEY Line 697  ENDENTERKEY
                             $redirect_url .= $where;                              $redirect_url .= $where;
                         }                          }
                         $redirect_url .= '/';                          $redirect_url .= '/';
                         &redirect_user($r,&mt('Entering Construction Space'),                          &redirect_user($r,&mt('Entering Authoring Space'),
                                        $redirect_url);                                         $redirect_url);
                         return OK;                          return OK;
                     }                      }
Line 710  ENDENTERKEY Line 729  ENDENTERKEY
     my $crumbtext = 'User Roles';      my $crumbtext = 'User Roles';
     my $pagetitle = 'My Roles';      my $pagetitle = 'My Roles';
     my $recent = &mt('Recent Roles');      my $recent = &mt('Recent Roles');
       my $standby = &mt('Role selected. Please stand by.');
     my $show_course=&Apache::loncommon::show_course();      my $show_course=&Apache::loncommon::show_course();
     if ($show_course) {      if ($show_course) {
         $crumbtext = 'Courses';          $crumbtext = 'Courses';
         $pagetitle = 'My Courses';          $pagetitle = 'My Courses';
         $recent = &mt('Recent Courses');          $recent = &mt('Recent Courses');
           $standby = &mt('Course selected. Please stand by.');
     }      }
     my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];      my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];
   
Line 1142  sub gather_roles { Line 1163  sub gather_roles {
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = &Apache::lonnet::hostname($home);                      $home = &Apache::lonnet::hostname($home);
                     $ttype='Construction Space';                      $ttype='Authoring Space';
                     $twhere=&mt('User').': '.$trest.'<br />'.&mt('Domain').                      $twhere=&mt('User').': '.$trest.'<br />'.&mt('Domain').
                         ': '.$tdom.'<br />'.                          ': '.$tdom.'<br />'.
                         ' '.&mt('Server').':&nbsp;'.$home;                          ' '.&mt('Server').':&nbsp;'.$home;
Line 1161  sub gather_roles { Line 1182  sub gather_roles {
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = &Apache::lonnet::hostname($home);                      $home = &Apache::lonnet::hostname($home);
                     $ttype='Construction Space';                      $ttype='Authoring Space';
                     $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').                      $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').
                         ':&nbsp;'.$home;                          ':&nbsp;'.$home;
                     $env{'course.'.$tdom.'_'.$trest.'.description'}='ca';                      $env{'course.'.$tdom.'_'.$trest.'.description'}='ca';
Line 1334  sub roletable_headers { Line 1355  sub roletable_headers {
 }  }
   
 sub roletypes {  sub roletypes {
     my @types = ('Domain','Construction Space','Course','Community','Unavailable','System');      my @types = ('Domain','Authoring Space','Course','Community','Unavailable','System');
     return @types;       return @types; 
 }  }
   
Line 1473  sub privileges_info { Line 1494  sub privileges_info {
  my (undef,$tdom,$trest,$tsec)=split(m{/},$where);   my (undef,$tdom,$trest,$tsec)=split(m{/},$where);
  if ($trest) {   if ($trest) {
     if ($env{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') {      if ($env{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') {
  $ttype='Construction Space';   $ttype='Authoring Space';
  $twhere='User: '.$trest.', Domain: '.$tdom;   $twhere='User: '.$trest.', Domain: '.$tdom;
     } else {      } else {
  $ttype= &Apache::loncommon::course_type($tdom.'_'.$trest);   $ttype= &Apache::loncommon::course_type($tdom.'_'.$trest);
Line 2427  sub update_session_roles { Line 2448  sub update_session_roles {
                                 &unescape($groupinfo{'description'});                                  &unescape($groupinfo{'description'});
                         }                          }
                         $groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};                          $groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};
                         $groupmsg .= '<li>'.                          if ($groupdesc) {
                                      &mt('[_1] with status: [_2].',                              $groupmsg .= '<li>'.
                                      '<b>'.$groupdesc.'</b>',$newgroup{$item}).'</li>';                                           &mt('[_1] with status: [_2].',
                                            '<b>'.$groupdesc.'</b>',$newgroup{$item}).'</li>';
                           }
                     }                      }
                 }                  }
                 if ($groupmsg) {                  if ($groupmsg) {
Line 2443  sub update_session_roles { Line 2466  sub update_session_roles {
             }              }
         }          }
         if (keys(%newrole) > 0) {          if (keys(%newrole) > 0) {
             $changemsg .= '<li>'.&mt('New roles').              my $newmsg;
                           '<ul>';  
             foreach my $item (sort(keys(%newrole))) {              foreach my $item (sort(keys(%newrole))) {
                 my $desc = &role_desc($item,$update,$refresh,$now);                  my $desc = &role_desc($item,$update,$refresh,$now);
                 $changemsg .= '<li>'.                  if ($desc) {
                               &mt('[_1] with status: [_2].',                      $newmsg .= '<li>'.
                               $desc,$newrole{$item}).'</li>';                                 &mt('[_1] with status: [_2].',
                                  $desc,$newrole{$item}).'</li>';
                   }
               }
               if ($newmsg) {
                   $changemsg .= '<li>'.&mt('New roles').
                                 '<ul>'.$newmsg.'</ul>'.
                                 '</li>';
             }              }
             $changemsg .= '</ul></li>';  
         }          }
         if (keys(%customprivchg) > 0) {          if (keys(%customprivchg) > 0) {
             $changemsg .= '<li>'.              my $privmsg;
                           &mt('Custom roles with privilege changes').  
                           '<ul>';  
             foreach my $item (sort(keys(%customprivchg))) {              foreach my $item (sort(keys(%customprivchg))) {
                 my $desc = &role_desc($item,$update,$refresh,$now);                  my $desc = &role_desc($item,$update,$refresh,$now);
                 $changemsg .= '<li>'.$desc.'</li>';                  if ($desc) {
                       $privmsg .= '<li>'.$desc.'</li>';
                   }
             }              }
             $changemsg .= '</ul></li>';              if ($privmsg) {
                   $changemsg .= '<li>'.
                                 &mt('Custom roles with privilege changes').
                                 '<ul>'.$privmsg.'</ul>'.
                                 '</li>';
                }
         }          }
         if (keys(%rolechange) > 0) {          if (keys(%rolechange) > 0) {
             $changemsg .= '<li>'.              my $rolemsg;
                           &mt('Existing roles with status changes').'</li>'.  
                           '<ul>';  
             foreach my $item (sort(keys(%rolechange))) {              foreach my $item (sort(keys(%rolechange))) {
                 my $desc = &role_desc($item,$update,$refresh,$now);                  my $desc = &role_desc($item,$update,$refresh,$now);  
                   if ($desc) {
                       $rolemsg .= '<li>'.
                                   &mt('[_1] status now: [_2].',$desc,
                                   $rolechange{$item}).'</li>';
                   }
               }
               if ($rolemsg) {
                 $changemsg .= '<li>'.                  $changemsg .= '<li>'.
                               &mt('[_1] status now: [_2].',$desc,                                &mt('Existing roles with status changes').'</li>'.
                               $rolechange{$item}).'</li>';                                '<ul>'.$rolemsg.'</ul>'.
                                 '</li>';
             }              }
             $changemsg .= '</ul></li>';  
         }          }
         if (keys(%deletedroles) > 0) {          if (keys(%deletedroles) > 0) {
             $changemsg .= '<li>'.              my $delmsg;
                           &mt('Existing roles now expired').'</li>'.  
                           '<ul>';  
             foreach my $item (sort(keys(%deletedroles))) {              foreach my $item (sort(keys(%deletedroles))) {
                 my $desc = &role_desc($item,$update,$refresh,$now);                  my $desc = &role_desc($item,$update,$refresh,$now);
                 $changemsg .= '<li>'.$desc.'</li>';                  if ($desc) {
                       $delmsg .= '<li>'.$desc.'</li>';
                   }
               }
               if ($delmsg) {
                   $changemsg .= '<li>'.
                                 &mt('Existing roles now expired').'</li>'.
                                 '<ul>'.$delmsg.'</ul>'.
                                 '</li>';
             }              }
             $changemsg .= '</ul></li>';  
         }          }
     }      }
     if ((keys(%changed_groups) > 0) || (keys(%groupchange) > 0)) {      if ((keys(%changed_groups) > 0) || (keys(%groupchange) > 0)) {
Line 2543  sub update_session_roles { Line 2586  sub update_session_roles {
     }      }
     if ($changemsg) {      if ($changemsg) {
         $msg .= '<ul>'.$changemsg.'</ul>';          $msg .= '<ul>'.$changemsg.'</ul>';
       } else {
           if (&Apache::loncommon::show_course()) {
               $msg = &mt('No new courses or communities');
           } else {
               $msg = &mt('No role changes');
           }
     }      }
     return $msg;      return $msg;
 }  }
Line 2551  sub role_desc { Line 2600  sub role_desc {
     my ($item,$update,$refresh,$now) = @_;      my ($item,$update,$refresh,$now) = @_;
     my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,      my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,
         $trole,$tremark);          $trole,$tremark);
     &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,                                      $now,\$role,\$where, \$trolecode,      &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,
                                    $now,\$role,\$where,\$trolecode,
                                  \$tstatus,\$tstart,\$tend);                                   \$tstatus,\$tstart,\$tend);
       return unless ($role);
     if ($role =~ /^cr\//) {      if ($role =~ /^cr\//) {
         my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);          my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
         $tremark = &mt('Customrole defined by [_1].',$rauthor.':'.$rdomain);          $tremark = &mt('Customrole defined by [_1].',$rauthor.':'.$rdomain);
Line 2594  sub role_desc { Line 2645  sub role_desc {
     } elsif ($tdom) {      } elsif ($tdom) {
         $twhere = &mt('Domain').':&nbsp;'.$tdom;          $twhere = &mt('Domain').':&nbsp;'.$tdom;
     }      }
     my $output = "$trole -- $twhere";      my $output;
     if ($tremark) {      if ($trole) {
         $output .= '<br />'.$tremark;          $output = $trole;
           if ($twhere) {
               $output .= " -- $twhere";
           }
           if ($tremark) {
               $output .= '<br />'.$tremark;
           }
     }      }
     return $output;      return $output;
 }  }
Removed from v.1.269.2.7  
changed lines
  Added in v.1.269.2.10

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