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

Diff for /loncom/auth/lonroles.pm between versions 1.35 and 1.39

version 1.35, 2002/05/04 02:30:00 version 1.39, 2002/05/21 15:01:12
Line 115  sub handler { Line 115  sub handler {
                  $r->content_type('text/html');                   $r->content_type('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;                           my $swinfo=&Apache::lonmenu::rawconfig($r);
                          print (<<ENDREDIR);                           print (<<ENDREDIR);
 <head><title>Entering Course</title>  <head><title>Entering Course</title>
 <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">  <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">
Line 146  ENDREDIR Line 146  ENDREDIR
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my $swinfo=&Apache::lonmenu::rawconfig;      my $swinfo=&Apache::lonmenu::rawconfig($r);
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 212  ENDHEADER Line 212  ENDHEADER
                ("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n");                 ("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n");
            $r->print("Your home server is ".             $r->print("Your home server is ".
                      $Apache::lonnet::hostname{&Apache::lonnet::homeserver                       $Apache::lonnet::hostname{&Apache::lonnet::homeserver
                      ($ENV{'user.name'},$ENV{'user.domain'})}."<br />\n");                       ($ENV{'user.name'},$ENV{'user.domain'})}.
        "<br />\n");
            $r->print("Author and Co-Author roles may not be available on ".             $r->print("Author and Co-Author roles may not be available on ".
                      "servers other than your home server.");                       "servers other than your home server.");
         } else {          } else {
Line 318  ENDHEADER Line 319  ENDHEADER
                     $ttype='Course';                      $ttype='Course';
                     if ($tsection) {                      if ($tsection) {
                         $ttype.='<br>Section/Group: '.$tsection;                          $ttype.='<br>Section/Group: '.$tsection;
                     }           }
                     my $tcourseid=$tdom.'_'.$trest;                      my $tcourseid=$tdom.'_'.$trest;
                     if ($ENV{'course.'.$tcourseid.'.description'}) {                      if ($ENV{'course.'.$tcourseid.'.description'}) {
                         $twhere=$ENV{'course.'.$tcourseid.'.description'};                          $twhere=$ENV{'course.'.$tcourseid.'.description'};
Line 331  ENDHEADER Line 332  ENDHEADER
                             $twhere='Currently not available';                              $twhere='Currently not available';
                             $ENV{'course.'.$tcourseid.'.description'}=$twhere;                              $ENV{'course.'.$tcourseid.'.description'}=$twhere;
                         }                          }
                         if ($trole ne 'st') {  
                             $twhere.="<br />Domain:".$tdom;  
                         }  
                     }                      }
       if ($role ne 'st') { $twhere.="<br />Domain:".$tdom; }
                 } elsif ($tdom) {                  } elsif ($tdom) {
                     $ttype='Domain';                      $ttype='Domain';
                     $twhere=$tdom;                      $twhere=$tdom;
Removed from v.1.35  
changed lines
  Added in v.1.39

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