version 1.483, 2011/10/24 21:30:09
|
version 1.485, 2011/11/17 18:22:36
|
Line 3997 sub dump_course_id_handler {
|
Line 3997 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 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); |
} |
} |