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

Diff for /loncom/auth/lonroles.pm between versions 1.152 and 1.155

version 1.152, 2006/05/30 21:16:40 version 1.155, 2006/06/02 22:02:51
Line 265  ENDENTERKEY Line 265  ENDENTERKEY
     return OK;      return OK;
  } else {   } else {
                             my $type = 'Course/Group';                              my $type = 'Course/Group';
     if ($env{'request.course.id'}) {      if (!$env{'request.course.id'}) {
                                 if (defined($env{'course.'.                                  if (defined($env{'course.'.
                                             $env{'request.course.id'}.'.type'})) {                                              $env{'request.course.id'}.'.type'})) {
                                     $type = $env{'course.'.                                      $type = $env{'course.'.
Line 565  ENDHEADER Line 565  ENDHEADER
     $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$env{'user.name'}.'/');      $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$env{'user.name'}.'/');
     $sortkey=$role;      $sortkey=$role;
                 } elsif ($trest) {                  } elsif ($trest) {
                     $ttype='Course';  
                     my $tcourseid=$tdom.'_'.$trest;                      my $tcourseid=$tdom.'_'.$trest;
                     if (defined($env{'course.'.$tcourseid.'.type'})) {                      $ttype = &Apache::loncommon::course_type($tcourseid);
                         $ttype = $env{'course.'.$tcourseid.'.type'};                      $trole = &Apache::lonnet::plaintext($role,$ttype);
                         if ($ttype eq 'Group') {  
                             $trole = &Apache::loncommon::convert_role($trole,  
                                                                       $ttype);      
                         }  
                     }  
                     if ($env{'course.'.$tcourseid.'.description'}) {                      if ($env{'course.'.$tcourseid.'.description'}) {
                         $twhere=$env{'course.'.$tcourseid.'.description'};                          $twhere=$env{'course.'.$tcourseid.'.description'};
  $sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;   $sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;
Line 592  ENDHEADER Line 586  ENDHEADER
         &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont).          &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont).
                               '</font>';                                '</font>';
                             $ttype = $newhash{'type'};                              $ttype = $newhash{'type'};
                             if ($ttype eq 'Group') {                              $trole = &Apache::lonnet::plaintext($role,$ttype);
                                 $trole = &Apache::loncommon::convert_role(  
                                                                 $trole,$ttype);  
                             }  
                         } else {                          } else {
                             $twhere=&mt('Currently not available');                              $twhere=&mt('Currently not available');
                             $env{'course.'.$tcourseid.'.description'}=$twhere;                              $env{'course.'.$tcourseid.'.description'}=$twhere;
Line 998  sub display_cc_role { Line 989  sub display_cc_role {
         if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) {          if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) {
             my $tcourseid = $1.'_'.$2;              my $tcourseid = $1.'_'.$2;
             my $trolecode = 'cc./'.$1.'/'.$2;              my $trolecode = 'cc./'.$1.'/'.$2;
             my $trole = Apache::lonnet::plaintext('cc');  
             my $twhere;              my $twhere;
             my $ttype;              my $ttype;
             my $tbg='#77FF77';              my $tbg='#77FF77';
Line 1009  sub display_cc_role { Line 999  sub display_cc_role {
                         ' <font size="-2">'.                          ' <font size="-2">'.
                         &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).                          &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).
                         '</font>';                          '</font>';
                 $ttype=$newhash{'type'};                  $ttype = $newhash{'type'};
                 if ($ttype eq 'Group') {  
                     $trole = &Apache::loncommon::convert_role($trole,$ttype);  
                 }  
             } else {              } else {
                 $twhere=&mt('Currently not available');                  $twhere=&mt('Currently not available');
                 $env{'course.'.$tcourseid.'.description'}=$twhere;                  $env{'course.'.$tcourseid.'.description'}=$twhere;
                 $ttype = 'Unavailable';  
             }              }
               my $trole = &Apache::lonnet::plaintext('cc',$ttype);
             $twhere.="<br />".&mt('Domain').":".$1;              $twhere.="<br />".&mt('Domain').":".$1;
             $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,$twhere,'','','',1,'');              $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,$twhere,'','','',1,'');
         }          }
Line 1027  sub display_cc_role { Line 1014  sub display_cc_role {
   
 sub allcourses_row {  sub allcourses_row {
     my ($dcdom,$rowtype) = @_;      my ($dcdom,$rowtype) = @_;
     my $ccrole = Apache::lonnet::plaintext('cc');  
     my $output = '<tr bgcolor="#77FF77">'.      my $output = '<tr bgcolor="#77FF77">'.
                  ' <td colspan="5">';                   ' <td colspan="5">';
     foreach my $type ('Course','Group') {      foreach my $type ('Course','Group') {
         my $selectlink = &courselink($dcdom,$rowtype,$type);          my $selectlink = &courselink($dcdom,$rowtype,$type);
         if ($type eq 'Group') {          my $ccrole = &Apache::lonnet::plaintext('cc',$type);
             $ccrole = &Apache::loncommon::convert_role($ccrole,$type);  
         }  
         $output.= '<font color="#002200">'.$ccrole.'</font>'.          $output.= '<font color="#002200">'.$ccrole.'</font>'.
               ' <b>'.$selectlink.'</b>'.                ' <b>'.$selectlink.'</b>'.
               ' from '.&mt('Domain').' '.$dcdom.'<br />';                ' from '.&mt('Domain').' '.$dcdom.'<br />';
Line 1053  sub set_privileges { Line 1037  sub set_privileges {
     my $area = '/'.$dcdom.'/'.$pickedcourse;      my $area = '/'.$dcdom.'/'.$pickedcourse;
     my $role = 'cc';      my $role = 'cc';
     my $spec = $role.'.'.$area;      my $spec = $role.'.'.$area;
     my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});      my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});
     my %ccrole = ();      my %ccrole = ();
     &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);      &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
     my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);      my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);
     my @newprivs = split/\n/,$userroles;      &Apache::lonnet::appenv(%userroles);
     my %newccroles = ();  
     foreach (@newprivs) {  
         my ($key,$val) = split/=/,$_;  
         $newccroles{$key} = $val;  
     }  
     &Apache::lonnet::appenv(%newccroles);  
     &Apache::lonnet::log($env{'user.domain'},      &Apache::lonnet::log($env{'user.domain'},
                          $env{'user.name'},                           $env{'user.name'},
                          $env{'user.home'},                           $env{'user.home'},
Removed from v.1.152  
changed lines
  Added in v.1.155

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