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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1335 and 1.1337

version 1.1335, 2017/01/28 21:35:54 version 1.1337, 2017/02/25 20:00:41
Line 650  sub transfer_profile_to_env { Line 650  sub transfer_profile_to_env {
 sub check_for_valid_session {  sub check_for_valid_session {
     my ($r,$name,$userhashref) = @_;      my ($r,$name,$userhashref) = @_;
     my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));      my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
       my ($linkname,$pubname);
     if ($name eq '') {      if ($name eq '') {
         $name = 'lonID';          $name = 'lonID';
           $linkname = 'lonLinkID';
           $pubname = 'lonPubID';
     }      }
     my $lonid=$cookies{$name};      my $lonid=$cookies{$name};
       if (!$lonid) {
           if (($name eq 'lonID') && ($ENV{'SERVER_PORT'} != 443) && ($linkname)) {
               $lonid=$cookies{$linkname};
           }
           if (!$lonid) {
               if (($name eq 'lonID') && ($pubname)) {
                   $lonid=$cookies{$pubname};
               }
           }
       }
     return undef if (!$lonid);      return undef if (!$lonid);
   
     my $handle=&LONCAPA::clean_handle($lonid->value);      my $handle=&LONCAPA::clean_handle($lonid->value);
Line 4624  sub get_my_adhocroles { Line 4637  sub get_my_adhocroles {
                                     next;                                      next;
                                 } elsif ($curraccess eq 'all') {                                  } elsif ($curraccess eq 'all') {
                                     push(@possroles,$role);                                      push(@possroles,$role);
                                 } elsif ($curraccess eq 'anydh') {                                  } elsif ($curraccess eq 'dh') {
                                     if (grep(/^dh$/,@liveroles)) {                                      if (grep(/^dh$/,@liveroles)) {
                                         push(@possroles,$role);                                          push(@possroles,$role);
                                     } else {                                      } else {
                                         next;                                          next;
                                     }                                      }
                                 } elsif ($curraccess eq 'anyda') {                                  } elsif ($curraccess eq 'da') {
                                     if (grep(/^da$/,@liveroles)) {                                      if (grep(/^da$/,@liveroles)) {
                                         push(@possroles,$role);                                          push(@possroles,$role);
                                     } else {                                      } else {
Removed from v.1.1335  
changed lines
  Added in v.1.1337

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