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

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

version 1.36, 2002/05/06 14:20:27 version 1.39, 2002/05/21 15:01:12
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.36  
changed lines
  Added in v.1.39

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