--- loncom/interface/lonpopulate.pm 2013/08/15 16:51:02 1.78
+++ loncom/interface/lonpopulate.pm 2013/12/24 19:15:11 1.80
@@ -1,5 +1,5 @@
# automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.78 2013/08/15 16:51:02 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.80 2013/12/24 19:15:11 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1920,7 +1920,7 @@ sub print_crosslistings_menu {
if ($numcross) {
$response .=
&mt('You indicated that you wish to add an additional [quant,_1,crosslisting].',$numcross).' '.
- &mt('For each new crosslisting enter the insititutional course section code (e.g., fs03zol101001, for section 001 of zol101 for fs03 semester), and the LON-CAPA section ID you wish to assign to students who will be enrolled in your LON-CAPA class as a result of their registration in the crosslisted course section.').' '.
+ &mt('For each new crosslisting enter the institutional course section code (e.g., fs03zol101001, for section 001 of zol101 for fs03 semester), and the LON-CAPA section ID you wish to assign to students who will be enrolled in your LON-CAPA class as a result of their registration in the crosslisted course section.').' '.
&mt('The LON-CAPA section ID can be left blank, if you do not wish to tie a section ID to this crosslisting.').' '.
&mt("The institutional course section code should only contain letters and/or numbers, and must be consistent with the scheme adopted by your Domain Coordinator to map course codes (and section numbers) to your institution's student information system.").
'
@@ -2250,7 +2250,7 @@ sub print_sections_menu {
if ($numsec > 0) {
$response .=
&mt('You indicated that you wish to incorporate student enrollment in your LON-CAPA course from an additional [quant,_1,section].',$numsec).' '.
- &mt('For each new section enter the insititutional section code (e.g., 004), and the LON-CAPA section ID you wish to assign to students who will be enrolled in your LON-CAPA class as a result of their registration in this particular section.').' '.
+ &mt('For each new section enter the institutional section code (e.g., 004), and the LON-CAPA section ID you wish to assign to students who will be enrolled in your LON-CAPA class as a result of their registration in this particular section.').' '.
&mt('The LON-CAPA section ID can be left blank, if you do not wish to designate a section ID for this course section.').' '.
&mt("The institutional section code should only contain letters and/or numbers, and must be consistent with the scheme adopted by your Domain Coordinator to map course section numbers to your institution's student information system.").'
@@ -2726,20 +2726,24 @@ sub print_update_result {
my %settings =
&Apache::lonnet::get('environment',
['internal.coursecode','internal.sectionnums','internal.crosslistings',
- 'internal.authtype','internal.autharg','internal.showphoto','internal.defaultcredits'],
+ 'internal.authtype','internal.autharg','internal.showphoto','internal.defaultcredits',
+ 'internal.textbook'],
$dom,$crs);
my $coursecode = $settings{'internal.coursecode'};
my $authtype = $settings{'internal.authtype'};
my $autharg = $settings{'internal.autharg'};
my $showphotos = $settings{'internal.showphoto'};
+ my $textbook = $settings{'internal.textbook'};
my ($showcredits,$defaultcredits);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
- if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {
+ if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) {
$showcredits = 1;
$defaultcredits = $settings{'internal.defaultcredits'};
if ($defaultcredits eq '') {
if ($coursecode ne '') {
$defaultcredits = $domdefaults{'officialcredits'};
+ } elsif ($textbook ne '') {
+ $defaultcredits = $domdefaults{'textbookcredits'};
} else {
$defaultcredits = $domdefaults{'unofficialcredits'};
}