[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.31 and 1.269.2.32

version 1.269.2.31, 2017/01/30 18:55:33 version 1.269.2.32, 2017/03/13 20:43:13
Line 1665  sub privileges_info { Line 1665  sub privileges_info {
 sub build_roletext {  sub build_roletext {
     my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,      my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,
         $tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning) = @_;          $tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning) = @_;
     my ($roletext,$roletext_end);      my ($roletext,$roletext_end,$poss_adhoc);
     my $is_dc=($trolecode =~ m/^dc\./);      if ($trolecode =~ m/^d(c|h|a)\./) {
     my $rowspan=($is_dc) ? ''          $poss_adhoc = 1;
       }
       my $rowspan=($poss_adhoc) ? ''
                          : ' rowspan="2" ';                           : ' rowspan="2" ';
   
     unless ($nochoose) {      unless ($nochoose) {
Line 1728  sub build_roletext { Line 1730  sub build_roletext {
               .'<td>'.$twhere.'</td>'                .'<td>'.$twhere.'</td>'
               .'<td>'.$tpstart.'</td>'                .'<td>'.$tpstart.'</td>'
               .'<td>'.$tpend.'</td>';                .'<td>'.$tpend.'</td>';
     if (!$is_dc) {      unless ($poss_adhoc) {
         $roletext_end = '<td colspan="4">'.          $roletext_end = '<td colspan="4">'.
                         $tremark.'&nbsp;'.                          $tremark.'&nbsp;'.
                         '</td>';                          '</td>';
Line 1759  sub check_for_adhoc { Line 1761  sub check_for_adhoc {
     my $numhelpdesk = 0;      my $numhelpdesk = 0;
     my $numadhoc = 0;      my $numadhoc = 0;
     my $num_custom_adhoc = 0;      my $num_custom_adhoc = 0;
     if ($env{'user.adv'}) {      if (($env{'user.adv'}) || ($env{'user.rar'})) {
         foreach my $envkey (sort(keys(%env))) {          foreach my $envkey (sort(keys(%env))) {
             if ($envkey=~/^user\.role\.(dc|dh|da)\.\/($match_domain)\/$/) {              if ($envkey=~/^user\.role\.(dc|dh|da)\.\/($match_domain)\/$/) {
                 my $role = $1;                  my $role = $1;
Removed from v.1.269.2.31  
changed lines
  Added in v.1.269.2.32

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