loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursegroups.pm between versions 1.131 and 1.132

version 1.131, 2020/09/08 23:54:40	version 1.132, 2023/07/29 20:33:25
Line 36 use Apache::lonlocal;	Line 36 use Apache::lonlocal;
use Apache::lonnavmaps();	use Apache::lonnavmaps();
use Apache::longroup();	use Apache::longroup();
use Apache::portfolio();	use Apache::portfolio();
	use Apache::lonuserutils();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use HTML::Entities;	use HTML::Entities;
use LONCAPA::map();	use LONCAPA::map();
Line 1818 sub get_quota_constraints {	Line 1819 sub get_quota_constraints {
my ($crsquota,$freespace,$maxposs);	my ($crsquota,$freespace,$maxposs);
$crsquota = $env{'course.'.$env{'request.course.id'}.'.internal.coursequota'};	$crsquota = $env{'course.'.$env{'request.course.id'}.'.internal.coursequota'};
if ($crsquota eq '') {	if ($crsquota eq '') {
$crsquota = 20;	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $crstype = &Apache::loncommon::course_type();
	my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
	my %coursehash = (
	'internal.coursecode' => $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'},
	'internal.textbook' => $env{'course.'.$env{'request.course.id'}.'.internal.textbook'},
	);
	my %staticdefaults = (
	coursequota => 20,
	);
	my $quotatype = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$crstype,\%coursehash);
	if ($crsquota eq '') {
	$crsquota = $domdefs{$quotatype.'coursequota'};
	if ($crsquota eq '') {
	$crsquota = $staticdefaults{'coursequota'};
	}
	}
}	}
$freespace = $crsquota - &Apache::longroup::sum_quotas();	$freespace = $crsquota - &Apache::longroup::sum_quotas();
if ($action eq 'create') {	if ($action eq 'create') {

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

Removed from v.1.131
changed lines
	Added in v.1.132