Diff for /loncom/lond between versions 1.483 and 1.484

version 1.483, 2011/10/24 21:30:09 version 1.484, 2011/11/07 18:13:37
Line 6742  sub manage_permissions { Line 6742  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.484


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