--- loncom/lonnet/perl/lonnet.pm 2013/06/26 21:22:51 1.1228 +++ loncom/lonnet/perl/lonnet.pm 2013/07/02 19:04:56 1.1229 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1228 2013/06/26 21:22:51 raeburn Exp $ +# $Id: lonnet.pm,v 1.1229 2013/07/02 19:04:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1985,13 +1985,16 @@ sub get_domain_defaults { $domdefaults{'defaultquota'} = $domconfig{'quotas'}{'defaultquota'}; } else { $domdefaults{'defaultquota'} = $domconfig{'quotas'}; - } + } my @usertools = ('aboutme','blog','webdav','portfolio'); foreach my $item (@usertools) { if (ref($domconfig{'quotas'}{$item}) eq 'HASH') { $domdefaults{$item} = $domconfig{'quotas'}{$item}; } } + if (ref($domconfig{'quotas'}{'authorquota'}) eq 'HASH') { + $domdefaults{'authorquota'} = $domconfig{'quotas'}{'authorquota'}; + } } if (ref($domconfig{'requestcourses'}) eq 'HASH') { foreach my $item ('official','unofficial','community') { @@ -2007,7 +2010,7 @@ sub get_domain_defaults { } } if (ref($domconfig{'coursedefaults'}) eq 'HASH') { - foreach my $item ('canuse_pdfforms') { + foreach my $item ('canuse_pdfforms','uploadquota') { $domdefaults{$item} = $domconfig{'coursedefaults'}{$item}; } if (ref($domconfig{'coursedefaults'}{'coursecredits'}) eq 'HASH') {