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

Diff for /loncom/auth/lonroles.pm between versions 1.43 and 1.46.2.1

version 1.43, 2002/08/31 00:43:12 version 1.46.2.1, 2003/03/19 21:54:32
Line 139  ENDREDIR Line 139  ENDREDIR
             }               } 
         }          }
     }      }
           
   
 # =============================================================== No Roles Init  # =============================================================== No Roles Init
   
Line 150  ENDREDIR Line 150  ENDREDIR
   
     my $swinfo=&Apache::lonmenu::rawconfig($r);      my $swinfo=&Apache::lonmenu::rawconfig($r);
     my $bodytag=&Apache::loncommon::bodytag('User Roles');      my $bodytag=&Apache::loncommon::bodytag('User Roles');
       my $helptag=&Apache::loncommon::help_open_topic("General_Intro","HELP");
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA User Roles</title>  <title>LON-CAPA User Roles</title>
 </head>  </head>
 $bodytag  $bodytag
   $helptag<br />
 <script>  <script>
 $swinfo  $swinfo
 window.focus();  window.focus();
Line 240  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 323  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,$tfont).
                                       '</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,$tfont).
                                 '</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.43  
changed lines
  Added in v.1.46.2.1

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