[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.1242 and 1.1244

version 1.1242, 2013/10/12 01:15:38 version 1.1244, 2013/12/05 05:19:18
Line 606  sub transfer_profile_to_env { Line 606  sub transfer_profile_to_env {
   
 # ---------------------------------------------------- Check for valid session   # ---------------------------------------------------- Check for valid session 
 sub check_for_valid_session {  sub check_for_valid_session {
     my ($r,$name) = @_;      my ($r,$name,$userref) = @_;
     my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));      my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
     if ($name eq '') {      if ($name eq '') {
         $name = 'lonID';          $name = 'lonID';
Line 637  sub check_for_valid_session { Line 637  sub check_for_valid_session {
  || !defined($disk_env{'user.domain'})) {   || !defined($disk_env{'user.domain'})) {
  return undef;   return undef;
     }      }
     if (($r->user() eq '') && ($apache >= 2.4)) {      if ($apache >= 2.4) {
         if ($disk_env{'user.domain'} eq $r->dir_config('lonDefDomain')) {          if ($r->user() eq '') {
             $r->user($disk_env{'user.name'});              if ($disk_env{'user.domain'} eq $r->dir_config('lonDefDomain')) {
         } else {                  $r->user($disk_env{'user.name'});
             $r->user($disk_env{'user.name'}.':'.$disk_env{'user.domain'});              } else {
                   $r->user($disk_env{'user.name'}.':'.$disk_env{'user.domain'});
               }
           }
           if (($r->user() ne '') && (ref($userref))) {
               $$userref = $r->user();
         }          }
     }      }
     return $handle;      return $handle;
Line 3502  sub extract_embedded_items { Line 3507  sub extract_embedded_items {
                     }                      }
                 }                  }
     }      }
               if (lc($tagname) eq 'iframe') {
                   my $src = $attr->{'src'} ;
                   if (($src ne '') && ($src !~ m{^(/|https?://)})) {
                       &add_filetype($allfiles,$src,'src');
                   } elsif ($src =~ m{^/}) {
                       if ($env{'request.course.id'}) {
                           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                           my $url = &hreflocation('',$fullpath);
                           if ($url =~ m{^/uploaded/$cdom/$cnum/docs/(\w+/\d+)/}) {
                               my $relpath = $1;
                               if ($src =~ m{^/uploaded/$cdom/$cnum/docs/\Q$relpath\E/(.+)$}) {
                                   &add_filetype($allfiles,$1,'src');
                               }
                           }
                       }
                   }
               }
             if ($t->[4] =~ m{/>$}) {              if ($t->[4] =~ m{/>$}) {
                 pop(@state);                    pop(@state);
             }              }
  } elsif ($t->[0] eq 'E') {   } elsif ($t->[0] eq 'E') {
     my ($tagname) = ($t->[1]);      my ($tagname) = ($t->[1]);
Removed from v.1.1242  
changed lines
  Added in v.1.1244

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