--- loncom/interface/lonmodifycourse.pm 2013/08/30 13:22:23 1.63
+++ loncom/interface/lonmodifycourse.pm 2014/01/15 18:47:56 1.66
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# handler for DC-only modifiable course settings
#
-# $Id: lonmodifycourse.pm,v 1.63 2013/08/30 13:22:23 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.66 2014/01/15 18:47:56 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -409,7 +409,7 @@ sub print_settings_display {
'
'.$lt{'cose'}.'
'.
'- '.&mt('Settings modifiable by a [_1] via the [_2]Automated Enrollment Manager[_3] in a course.',$cctitle,'','').'
');
if (&showcredits($cdom)) {
- $r->print('- '.&mt('Settings modifiable by a [_1] via [_2]View/Modify course owner, institutional code, default authentication and credits[_3].',$dctitle,'','')."\n");
+ $r->print('
- '.&mt('Settings modifiable by a [_1] via [_2]View/Modify course owner, institutional code, and default authentication and credits[_3].',$dctitle,'','')."\n");
} else {
$r->print('
- '.&mt('Settings modifiable by a [_1] via [_2]View/Modify course owner, institutional code, and default authentication[_3].',$dctitle,'','')."\n");
}
@@ -449,6 +449,8 @@ sub print_setquota {
$uploadquota = $domdefs{$lctype.'quota'};
} elsif ($settings{'internal.instcode'}) {
$uploadquota = $domdefs{'officialquota'};
+ } elsif ($settings{'internal.textbook'}) {
+ $uploadquota = $domdefs{'textbookquota'};
} else {
$uploadquota = $domdefs{'unofficialquota'};
}
@@ -994,18 +996,19 @@ sub modify_course {
$reply = '
'.$mainheader.' '.$cdesc.'
'."\n".
''.$reply.'
'."\n".
'';
+ $reply .= &Apache::lonhtmlcommon::actionbox(\@actions).'';
$r->print($reply);
return;
}
@@ -1636,7 +1639,7 @@ sub hidden_form_elements {
sub showcredits {
my ($dom) = @_;
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
- if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {
+ if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbokcredits'}) {
return 1;
}
}