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

Diff for /loncom/auth/lonroles.pm between versions 1.285 and 1.291

version 1.285, 2013/05/10 15:02:45 version 1.291, 2013/08/16 13:13:52
Line 532  ENDENTERKEY Line 532  ENDENTERKEY
                             my ($feeds,$syllabus_time);                              my ($feeds,$syllabus_time);
                             &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);                              &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
                             &Apache::lonnet::appenv({'request.course.feeds' => $feeds});                              &Apache::lonnet::appenv({'request.course.feeds' => $feeds});
                               &Apache::lonnet::get_numsuppfiles($cnum,$cdom,1);
                             unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {                              unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {
                                 unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) ||                                  unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) ||
                                         ($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {                                          ($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {
Line 691  ENDENTERKEY Line 692  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 723  ENDENTERKEY Line 724  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 737  ENDENTERKEY Line 740  ENDENTERKEY
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum});      my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum});
     my $funcs = &get_roles_functions($showcount);      my $funcs = &get_roles_functions($showcount);
     my $standby=&mt('Role selected. Please stand by.');  
     $standby=~s/\n/\\n/g;      $standby=~s/\n/\\n/g;
     my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';      my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';
   
Line 1155  sub gather_roles { Line 1157  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 1174  sub gather_roles { Line 1176  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 1347  sub roletable_headers { Line 1349  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 1486  sub privileges_info { Line 1488  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 2440  sub update_session_roles { Line 2442  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 2456  sub update_session_roles { Line 2460  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 2556  sub update_session_roles { Line 2580  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 2567  sub role_desc { Line 2597  sub role_desc {
     &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,      &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,
                                  $now,\$role,\$where,\$trolecode,                                   $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 2608  sub role_desc { Line 2639  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;
 }  }
Line 2696  sub get_roles_functions { Line 2733  sub get_roles_functions {
     }      }
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
         if ($env{'form.display'} eq 'showall') {          if ($env{'form.display'} eq 'showall') {
             push(@links,["javascript:rolesView('noshowall');",'edit-redo-22x22',&mt('Exclude expired roles')]);              push(@links,["javascript:rolesView('noshowall');",'edit-redo-22x22',&mt('Exclude expired')]);
         } else {          } else {
             push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired roles')]);              push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired')]);
         }          }
     }      }
       if (&Apache::loncommon::designparm('login.coursecatalog',$env{'user.domain'})) {
           push(@links,['/adm/coursecatalog','ccat-22x22',&mt('Course catalog')]);
       }
     my $funcs = &Apache::lonhtmlcommon::start_funclist();      my $funcs = &Apache::lonhtmlcommon::start_funclist();
     foreach my $link (@links) {      foreach my $link (@links) {
         $funcs .= &Apache::lonhtmlcommon::add_item_funclist(          $funcs .= &Apache::lonhtmlcommon::add_item_funclist(
Removed from v.1.285  
changed lines
  Added in v.1.291

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