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

Diff for /loncom/auth/lonroles.pm between versions 1.37 and 1.38

version 1.37, 2002/05/13 09:10:15 version 1.38, 2002/05/21 13:07:40
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};
Removed from v.1.37  
changed lines
  Added in v.1.38

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