[BACK]Return to lond CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/lond between versions 1.483 and 1.486

version 1.483, 2011/10/24 21:30:09 version 1.486, 2012/02/28 15:54:07
Line 2350  sub fetch_user_file_handler { Line 2350  sub fetch_user_file_handler {
  my $transname=$udir.'/'.$ufile.'.in.transit';   my $transname=$udir.'/'.$ufile.'.in.transit';
         my $clientprotocol=$Apache::lonnet::protocol{$clientname};          my $clientprotocol=$Apache::lonnet::protocol{$clientname};
         $clientprotocol = 'http' if ($clientprotocol ne 'https');          $clientprotocol = 'http' if ($clientprotocol ne 'https');
  my $remoteurl=$clientprotocol.'://'.$clientip.'/userfiles/'.$fname;   my $clienthost = &Apache::lonnet::hostname($clientname);
    my $remoteurl=$clientprotocol.'://'.$clienthost.'/userfiles/'.$fname;
  my $response;   my $response;
  Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname");   Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname");
  alarm(120);   alarm(120);
Line 3997  sub dump_course_id_handler { Line 3998  sub dump_course_id_handler {
         $creationcontext = '.';          $creationcontext = '.';
     }      }
     my $unpack = 1;      my $unpack = 1;
     if ($description eq '.' && $instcodefilter eq '.' && $coursefilter eq '.' &&       if ($description eq '.' && $instcodefilter eq '.' && $ownerfilter eq '.' && 
         $typefilter eq '.') {          $typefilter eq '.') {
         $unpack = 0;          $unpack = 0;
     }      }
Line 6742  sub manage_permissions { Line 6743  sub manage_permissions {
     my ($request, $domain, $user, $authtype) = @_;      my ($request, $domain, $user, $authtype) = @_;
     # See if the request is of the form /$domain/_au      # See if the request is of the form /$domain/_au
     if($request =~ /^(\/\Q$domain\E\/_au)$/) { # It's an author rolesput...      if($request =~ /^(\/\Q$domain\E\/_au)$/) { # It's an author rolesput...
         my $path="/home/httpd/html/priv/".$domain;          my $path=$perlvar{'lonDocRoot'}."/priv/$domain";
         unless (-e $path) {                  unless (-e $path) {        
            mkdir($path);             mkdir($path);
         }          }
Removed from v.1.483  
changed lines
  Added in v.1.486

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