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

Diff for /loncom/auth/lonroles.pm between versions 1.44 and 1.46.2.2

version 1.44, 2002/11/12 22:36:38 version 1.46.2.2, 2003/03/19 22:22:18
Line 157  ENDREDIR Line 157  ENDREDIR
 <title>LON-CAPA User Roles</title>  <title>LON-CAPA User Roles</title>
 </head>  </head>
 $bodytag  $bodytag
 $helptag<p>&nbsp;</p>  $helptag<br />
 <script>  <script>
 $swinfo  $swinfo
 window.focus();  window.focus();
Line 242  ENDHEADER Line 242  ENDHEADER
         my $button = 1;          my $button = 1;
         if ($envkey=~/^user\.role\./) {          if ($envkey=~/^user\.role\./) {
     my (undef,undef,$role,@pwhere)=split(/\./,$envkey);      my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
               next if (!defined($role) || $role eq '');
             my $where=join('.',@pwhere);              my $where=join('.',@pwhere);
             my $trolecode=$role.'.'.$where;              my $trolecode=$role.'.'.$where;
             my ($tstart,$tend)=split(/\./,$ENV{$envkey});              my ($tstart,$tend)=split(/\./,$ENV{$envkey});
Line 325  ENDHEADER Line 326  ENDHEADER
     }      }
                     my $tcourseid=$tdom.'_'.$trest;                      my $tcourseid=$tdom.'_'.$trest;
                     if ($ENV{'course.'.$tcourseid.'.description'}) {                      if ($ENV{'course.'.$tcourseid.'.description'}) {
                         $twhere=                          $twhere=$ENV{'course.'.$tcourseid.'.description'};
 &Apache::loncommon::syllabuswrapper($ENV{'course.'.$tcourseid.'.description'},                          unless ($twhere eq 'Currently not available') {
 $trest,$tdom);                             $twhere.=' <font size="-2">'.
           &Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom).
                                       '</font>';
          }
                     } else {                      } else {
                         my %newhash=Apache::lonnet::coursedescription                          my %newhash=Apache::lonnet::coursedescription
                             ($tcourseid);                              ($tcourseid);
                         if (%newhash) {                          if (%newhash) {
                             $twhere=                              $twhere=$newhash{'description'}.
 &Apache::loncommon::syllabuswrapper($newhash{'description'},$trest,$tdom);                                ' <font size="-2">'.
           &Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom).
                                 '</font>';
                         } else {                          } else {
                             $twhere='Currently not available';                              $twhere='Currently not available';
                             $ENV{'course.'.$tcourseid.'.description'}=$twhere;                              $ENV{'course.'.$tcourseid.'.description'}=$twhere;
Removed from v.1.44  
changed lines
  Added in v.1.46.2.2

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