[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.38

version 1.35, 2002/05/04 02:30:00 version 1.38, 2002/05/21 13:07:40
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'}, 'true')}.
        "<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 296  ENDHEADER Line 297  ENDHEADER
                     split(/\//,Apache::lonnet::declutter($where));                      split(/\//,Apache::lonnet::declutter($where));
                 # First, Co-Authorship roles                  # First, Co-Authorship roles
                 if ($role eq 'ca') {                  if ($role eq 'ca') {
                     my $home = &Apache::lonnet::homeserver($trest,$tdom);                      my $home = &Apache::lonnet::homeserver($trest,$tdom, 
      'true');
                     $button = 0 if ($home ne $r->dir_config('lonHostID'));                      $button = 0 if ($home ne $r->dir_config('lonHostID'));
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Line 307  ENDHEADER Line 309  ENDHEADER
                 } elsif ($role eq 'au') {                  } elsif ($role eq 'au') {
                     # Authors                      # Authors
                     my $home = &Apache::lonnet::homeserver                      my $home = &Apache::lonnet::homeserver
                         ($ENV{'user.name'},$ENV{'user.domain'});                          ($ENV{'user.name'},$ENV{'user.domain'}, 'true');
                     $button = 0 if ($home ne $r->dir_config('lonHostID'));                      $button = 0 if ($home ne $r->dir_config('lonHostID'));
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Line 318  ENDHEADER Line 320  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 333  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.38

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