loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2007/05/14 15:25:44	version 1.15, 2007/05/27 16:31:54
Line 733 sub print_quotas {	Line 733 sub print_quotas {
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td>'.&mt($othertitle).'</td>'.	'<td>'.&mt($othertitle).'</td>'.
'<td class="LC_right_item"><span class="LC_nobreak">'.	'<td class="LC_right_item"><span class="LC_nobreak">'.
'<input type="text" name="default" value="'.	'<input type="text" name="defaultquota" value="'.
$defaultquota.'" size="5" /> Mb</span></td></tr>';	$defaultquota.'" size="5" /> Mb</span></td></tr>';
return $datatable;	return $datatable;
}	}
Line 1491 sub modify_quotas {	Line 1491 sub modify_quotas {
$formhash{$1} = $env{$key};	$formhash{$1} = $env{$key};
}	}
}	}
	$formhash{'default'} = $env{'form.defaultquota'};
if (ref($domconfig{'quotas'}) eq 'HASH') {	if (ref($domconfig{'quotas'}) eq 'HASH') {
foreach my $key (keys(%{$domconfig{'quotas'}})) {	foreach my $key (keys(%{$domconfig{'quotas'}})) {
if (exists($formhash{$key})) {	if (exists($formhash{$key})) {