[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.15 and 1.282

version 1.269.2.15, 2014/01/13 03:56:42 version 1.282, 2013/04/03 20:46:55
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;
    
   
 sub redirect_user {  sub redirect_user {
     my ($r,$title,$url,$msg) = @_;      my ($r,$title,$url,$msg) = @_;
Line 151  sub redirect_user { Line 150  sub redirect_user {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     my $swinfo=&Apache::lonmenu::rawconfig();  
   
     # Breadcrumbs      # Breadcrumbs
     my $brcrum = [{'href' => $url,      my $brcrum = [{'href' => $url,
Line 166  sub redirect_user { Line 164  sub redirect_user {
     $url=~s/ /\%20/g;      $url=~s/ /\%20/g;
     $r->print(<<ENDREDIR);      $r->print(<<ENDREDIR);
 $start_page  $start_page
 <script type="text/javascript">  
 // <![CDATA[  
 $swinfo  
 // ]]>  
 </script>  
 <p>$msg</p>  <p>$msg</p>
 $end_page  $end_page
 ENDREDIR  ENDREDIR
Line 221  sub handler { Line 214  sub handler {
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
 # -------------------------------------------------- Check if setting hot list  # -------------------------------------------------- Check if setting hot list 
     my $hotlist;      my $hotlist;
     if ($env{'form.action'} eq 'verify_and_change_rolespref') {      if ($env{'form.action'} eq 'verify_and_change_rolespref') {
         $hotlist = &Apache::lonpreferences::verify_and_change_rolespref($r);          $hotlist = &Apache::lonpreferences::verify_and_change_rolespref($r);
Line 317  sub handler { Line 310  sub handler {
                             my $trolecode = 'au./'.$domain.'/';                              my $trolecode = 'au./'.$domain.'/';
                             my $switchserver = '/adm/switchserver?otherserver='.$home.'&amp;role='.$trolecode;                              my $switchserver = '/adm/switchserver?otherserver='.$home.'&amp;role='.$trolecode;
                             $r->internal_redirect($switchserver);                              $r->internal_redirect($switchserver);
                             return OK;  
                         }                          }
                         last;                          last;
                     }                      }
Line 329  sub handler { Line 321  sub handler {
                                 my $trolecode = 'ca./'.$domain.'/'.$user;                                  my $trolecode = 'ca./'.$domain.'/'.$user;
                                 my $switchserver = '/adm/switchserver?otherserver='.$home.'&amp;role='.$trolecode;                                  my $switchserver = '/adm/switchserver?otherserver='.$home.'&amp;role='.$trolecode;
                                 $r->internal_redirect($switchserver);                                  $r->internal_redirect($switchserver);
                                 return OK;  
                             }                              }
                             last;                              last;
                         }                          }
Line 351  sub handler { Line 342  sub handler {
                                 my $switchserver = '/adm/switchserver?'                                  my $switchserver = '/adm/switchserver?'
                                                   .'otherserver='.$home.'&amp;role='.$trolecode;                                                    .'otherserver='.$home.'&amp;role='.$trolecode;
                                 $r->internal_redirect($switchserver);                                  $r->internal_redirect($switchserver);
                                 return OK;  
                             }                              }
                         } else {                          } else {
                             delete($env{$envkey});                              delete($env{$envkey});
Line 526  ENDENTERKEY Line 516  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) {                          unless (($ferr) || ($env{'form.switchrole'}) ||
                             unless (($env{'form.switchrole'}) ||                                  ($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {
                                     ($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {                              &Apache::lonnet::put('nohist_crslastlogin',
                                 &Apache::lonnet::put('nohist_crslastlogin',                                  {$env{'user.name'}.':'.$env{'user.domain'}.
                                     {$env{'user.name'}.':'.$env{'user.domain'}.                                  ':'.$csec.':'.$role => $now},$cdom,$cnum);
                                      ':'.$csec.':'.$role => $now},$cdom,$cnum);  
                             }  
                             my ($feeds,$syllabus_time);  
                             &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$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.'.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/)) {
                             ($env{'form.orgurl'} ne '/adm/roles')) {  
     my $dest=$env{'form.orgurl'};      my $dest=$env{'form.orgurl'};
                             if ($env{'form.symb'}) {                              if ($env{'form.symb'}) {
                                 if ($dest =~ /\?/) {                                  if ($dest =~ /\?/) {
                                     $dest .= '&';                                      $dest .= '&';
                                 } else {                                  } else {
                                     $dest .= '?';                                      $dest .= '?'
                                 }                                  }
                                 $dest .= 'symb='.$env{'form.symb'};                                  $dest .= 'symb='.$env{'form.symb'};
                             }                              }
Line 623  ENDENTERKEY Line 596  ENDENTERKEY
                                                 if ($env{'request.role.adv'}) {                                                  if ($env{'request.role.adv'}) {
                                                     $dest = &Apache::lonenc::unencrypted($dest);                                                      $dest = &Apache::lonenc::unencrypted($dest);
                                                     if ($destsymb eq '') {                                                      if ($destsymb eq '') {
                                                         ($destsymb) = ($dest =~ /(?:\?|\&)symb=([^\&]*)/);                                                           ($destsymb) = ($dest =~ /(?:\?|\&)symb=([^\&]*)/);
                                                         $destsymb = &unescape($destsymb);                                                          $destsymb = &unescape($destsymb);
                                                     }                                                      }
                                                 }                                                  }
Line 648  ENDENTERKEY Line 621  ENDENTERKEY
                                                 }                                                  }
                                             }                                              }
                                         }                                          }
                                         unless (($dest =~ m{^/enc/}) || ($dest =~ /(\?|\&)symb=.+___\d+___.+/)) {                                           unless (($dest =~ m{^/enc/}) || ($dest =~ /(\?|\&)symb=.+___\d+___.+/)) {
                                             if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {                                              if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {
                                                 my $esc_symb = &escape($destsymb);                                                  my $esc_symb = &escape($destsymb);
                                                 $dest .= '?symb='.$esc_symb;                                                  $dest .= '?symb='.$esc_symb;
Line 699  ENDENTERKEY Line 672  ENDENTERKEY
                             $redirect_url .= $where;                              $redirect_url .= $where;
                         }                          }
                         $redirect_url .= '/';                          $redirect_url .= '/';
                         &redirect_user($r,&mt('Entering Authoring Space'),                          &redirect_user($r,&mt('Entering Construction Space'),
                                        $redirect_url);                                         $redirect_url);
                         return OK;                          return OK;
                     }                      }
Line 731  ENDENTERKEY Line 704  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 747  ENDENTERKEY Line 718  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 780  function rolesView (caller) { Line 752  function rolesView (caller) {
         document.rolechoice.display.value = caller;          document.rolechoice.display.value = caller;
     } else {      } else {
         if ((caller == 'doupdate') || (caller == 'requestauthor') ||          if ((caller == 'doupdate') || (caller == 'requestauthor') ||
             (caller == 'queued')) {              (caller == 'queued')) { 
             document.rolechoice.state.value = caller;              document.rolechoice.state.value = caller;
         }          }
     }      }
Line 864  ENDHEADER Line 836  ENDHEADER
             }              }
             if ($hotlist) {              if ($hotlist) {
                 $showresult .= $hotlist;                  $showresult .= $hotlist;
             }              } 
             $showresult .= '</div>';              $showresult .= '</div>';
             $r->print($showresult);              $r->print($showresult);
         } elsif ($env{'form.state'} eq 'queued') {          } elsif ($env{'form.state'} eq 'queued') {
Line 889  ENDHEADER Line 861  ENDHEADER
                       \%sortrole,\%roleclass,\%futureroles,\%timezones,$loncaparev);                        \%sortrole,\%roleclass,\%futureroles,\%timezones,$loncaparev);
     $refresh = $now;      $refresh = $now;
     &Apache::lonnet::appenv({'user.refresh.time'  => $refresh});      &Apache::lonnet::appenv({'user.refresh.time'  => $refresh});
     unless ($env{'user.adv'}) {      unless ($env{'user.adv'}) { 
         if ($countactive > 0) {          if ($countactive > 0) {
             my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');              my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
             my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');               my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); 
Line 1164  sub gather_roles { Line 1136  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='Authoring Space';                      $ttype='Construction 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 1183  sub gather_roles { Line 1155  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='Authoring Space';                      $ttype='Construction 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 1356  sub roletable_headers { Line 1328  sub roletable_headers {
 }  }
   
 sub roletypes {  sub roletypes {
     my @types = ('Domain','Authoring Space','Course','Community','Unavailable','System');      my @types = ('Domain','Construction Space','Course','Community','Unavailable','System');
     return @types;       return @types; 
 }  }
   
Line 1495  sub privileges_info { Line 1467  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='Authoring Space';   $ttype='Construction 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 2437  sub update_session_roles { Line 2409  sub update_session_roles {
                         }                          }
                         my $groupdesc;                          my $groupdesc;
                         unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {                          unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {
                             %{$curr_groups{$cdom.'_'.$cnum}} =                              %{$curr_groups{$cdom.'_'.$cnum}} = 
                                 &Apache::longroup::coursegroups($cdom,$cnum);                                  &Apache::longroup::coursegroups($cdom,$cnum);
                         }                          }
                         unless ((ref($groupdescs{$cdom.'_'.$cnum}) eq 'HASH') &&                          unless ((ref($groupdescs{$cdom.'_'.$cnum}) eq 'HASH') &&
                             ($groupdescs{$cdom.'_'.$cnum}{$group})) {                              ($groupdescs{$cdom.'_'.$cnum}{$group})) {
   
                             my %groupinfo =                              my %groupinfo = 
                                 &Apache::longroup::get_group_settings($curr_groups{$cdom.'_'.$cnum}{$group});                                  &Apache::longroup::get_group_settings($curr_groups{$cdom.'_'.$cnum}{$group});
                             $groupdescs{$cdom.'_'.$cnum}{$group} =                              $groupdescs{$cdom.'_'.$cnum}{$group} = 
                                 &unescape($groupinfo{'description'});                                  &unescape($groupinfo{'description'});
                         }                          }
                         $groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};                          $groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};
                         if ($groupdesc) {                          $groupmsg .= '<li>'.
                             $groupmsg .= '<li>'.                                       &mt('[_1] with status: [_2].',
                                          &mt('[_1] with status: [_2].',                                       '<b>'.$groupdesc.'</b>',$newgroup{$item}).'</li>';
                                          '<b>'.$groupdesc.'</b>',$newgroup{$item}).'</li>';  
                         }  
                     }                      }
                 }                  }
                 if ($groupmsg) {                  if ($groupmsg) {
Line 2467  sub update_session_roles { Line 2437  sub update_session_roles {
             }              }
         }          }
         if (keys(%newrole) > 0) {          if (keys(%newrole) > 0) {
             my $newmsg;              $changemsg .= '<li>'.&mt('New roles').
                             '<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);
                 if ($desc) {                  $changemsg .= '<li>'.
                     $newmsg .= '<li>'.                                &mt('[_1] with status: [_2].',
                                &mt('[_1] with status: [_2].',                                $desc,$newrole{$item}).'</li>';
                                $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) {
             my $privmsg;              $changemsg .= '<li>'.
                             &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);
                 if ($desc) {                  $changemsg .= '<li>'.$desc.'</li>';
                     $privmsg .= '<li>'.$desc.'</li>';  
                 }  
             }              }
             if ($privmsg) {              $changemsg .= '</ul></li>';
                 $changemsg .= '<li>'.  
                               &mt('Custom roles with privilege changes').  
                               '<ul>'.$privmsg.'</ul>'.  
                               '</li>';  
              }  
         }          }
         if (keys(%rolechange) > 0) {          if (keys(%rolechange) > 0) {
             my $rolemsg;              $changemsg .= '<li>'.
                             &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('Existing roles with status changes').'</li>'.                                &mt('[_1] status now: [_2].',$desc,
                               '<ul>'.$rolemsg.'</ul>'.                                $rolechange{$item}).'</li>';
                               '</li>';  
             }              }
               $changemsg .= '</ul></li>';
         }          }
         if (keys(%deletedroles) > 0) {          if (keys(%deletedroles) > 0) {
             my $delmsg;              $changemsg .= '<li>'.
                             &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);
                 if ($desc) {                  $changemsg .= '<li>'.$desc.'</li>';
                     $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 2564  sub update_session_roles { Line 2514  sub update_session_roles {
                 my $cdom = $env{'course.'.$cid.'.domain'};                  my $cdom = $env{'course.'.$cid.'.domain'};
                 my $cnum = $env{'course.'.$cid.'.num'};                  my $cnum = $env{'course.'.$cid.'.num'};
                 my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);                  my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
                 my %groupdesc;                  my %groupdesc; 
                 if (ref($groupchange{$crs}) eq 'HASH') {                  if (ref($groupchange{$crs}) eq 'HASH') {
                     $groupchgmsg .= '<li>'.&mt('Course/Community: [_1]','<b>'.$crsdesc.'</b><ul>');                      $groupchgmsg .= '<li>'.&mt('Course/Community: [_1]','<b>'.$crsdesc.'</b><ul>');
                     foreach my $group (sort(keys(%{$groupchange{$crs}}))) {                      foreach my $group (sort(keys(%{$groupchange{$crs}}))) {
Line 2587  sub update_session_roles { Line 2537  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 2604  sub role_desc { Line 2548  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 2646  sub role_desc { Line 2589  sub role_desc {
     } elsif ($tdom) {      } elsif ($tdom) {
         $twhere = &mt('Domain').':&nbsp;'.$tdom;          $twhere = &mt('Domain').':&nbsp;'.$tdom;
     }      }
     my $output;      my $output = "$trole -- $twhere";
     if ($trole) {      if ($tremark) {
         $output = $trole;          $output .= '<br />'.$tremark;
         if ($twhere) {  
             $output .= " -- $twhere";  
         }  
         if ($tremark) {  
             $output .= '<br />'.$tremark;  
         }  
     }      }
     return $output;      return $output;
 }  }
Line 2740  sub get_roles_functions { Line 2677  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')]);              push(@links,["javascript:rolesView('noshowall');",'edit-redo-22x22',&mt('Exclude expired roles')]);
         } else {          } else {
             push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired')]);              push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired roles')]);
         }          }
     }      }
     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(
Line 2782  sub get_queued { Line 2716  sub get_queued {
             if (ref($history{'details'}) eq 'HASH') {              if (ref($history{'details'}) eq 'HASH') {
                 $description = $history{details}{'cdescr'};                  $description = $history{details}{'cdescr'};
             }              }
             @{$reqcrs{$reqtime}} = ($description,$showtype);              @{$reqcrs{$reqtime}} = ($description,$showtype); 
         }          }
     }      }
     my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));      my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));
Removed from v.1.269.2.15  
changed lines
  Added in v.1.282

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