loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1172.2.5, 2012/05/30 22:01:08	version 1.1172.2.6, 2012/06/01 12:10:46
Line 1954 sub get_domain_defaults {	Line 1954 sub get_domain_defaults {
} else {	} else {
$domdefaults{'defaultquota'} = $domconfig{'quotas'};	$domdefaults{'defaultquota'} = $domconfig{'quotas'};
}	}
my @usertools = ('aboutme','blog','portfolio');	my @usertools = ('aboutme','blog','webdav','portfolio');
foreach my $item (@usertools) {	foreach my $item (@usertools) {
if (ref($domconfig{'quotas'}{$item}) eq 'HASH') {	if (ref($domconfig{'quotas'}{$item}) eq 'HASH') {
$domdefaults{$item} = $domconfig{'quotas'}{$item};	$domdefaults{$item} = $domconfig{'quotas'}{$item};
Line 5643 sub usertools_access {	Line 5643 sub usertools_access {
%tools = (	%tools = (
aboutme => 1,	aboutme => 1,
blog => 1,	blog => 1,
	webdav => 1,
portfolio => 1,	portfolio => 1,
);	);
}	}
Line 5741 sub usertools_access {	Line 5742 sub usertools_access {
}	}
}	}
} else {	} else {
if ($context eq 'tools') {	if (($context eq 'tools') && ($tool ne 'webdav')) {
$access = 1;	$access = 1;
} else {	} else {
$access = 0;	$access = 0;