[BACK]Return to lonpopulate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpopulate.pm between versions 1.77 and 1.82

version 1.77, 2013/07/22 18:06:51 version 1.82, 2014/12/12 14:30:47
Line 290  sub print_main_frame { Line 290  sub print_main_frame {
 # Get course settings  # Get course settings
   my %enrollvar;    my %enrollvar;
   my %settings = &Apache::lonnet::dump('environment',$dom,$crs);    my %settings = &Apache::lonnet::dump('environment',$dom,$crs);
   foreach my $item (keys %settings) {    foreach my $item (keys(%settings)) {
       if ($item =~ m/^internal\.(.+)$/) {        if ($item =~ m/^internal\.(.+)$/) {
           $enrollvar{$1} = $settings{$item};            $enrollvar{$1} = $settings{$item};
       } elsif ($item =~ /^default_enrollment_(start|end)_date$/) {        } elsif ($item =~ /^default_enrollment_(start|end)_date$/) {
Line 749  sub print_main_frame { Line 749  sub print_main_frame {
           $r->print(            $r->print(
               &mt('Currently, this LON-CAPA course is crosslisted with [quant,_1,course section,course sections].',$cross_str).' '.                &mt('Currently, this LON-CAPA course is crosslisted with [quant,_1,course section,course sections].',$cross_str).' '.
               &mt('Students enrolling in these course sections will be automatically added to the class roster for the course, if you have chosen to enable a nightly automated enrollment update.').' '.                &mt('Students enrolling in these course sections will be automatically added to the class roster for the course, if you have chosen to enable a nightly automated enrollment update.').' '.
               &mt('For each crosslisting, leave the checkbox checked if you want registered students in that course to be included in the student roster for LON-CAPA course: [_1; otherwise uncheck it.',"<b>$realm ($enrollvar{coursecode})</b>").' '.                &mt('For each crosslisting, leave the checkbox checked if you want registered students in that course to be included in the student roster for LON-CAPA course: [_1]; otherwise uncheck it.',"<b>$realm ($enrollvar{coursecode})</b>").' '.
               &mt('If you wish to change the section ID assigned in your LON-CAPA course for a crosslisted course, enter the new section ID in the appropriate textbox.').' '.                &mt('If you wish to change the section ID assigned in your LON-CAPA course for a crosslisted course, enter the new section ID in the appropriate textbox.').' '.
               &mt('The LON-CAPA section ID can be left (or set to) empty, if you do not wish to tie a section ID to this crosslisting.').' '.                &mt('The LON-CAPA section ID can be left (or set to) empty, if you do not wish to tie a section ID to this crosslisting.').' '.
               &mt('If you wish to add new crosslisted courses, enter the number of new courses to add in the textbox at the bottom of the page.').' '.                &mt('If you wish to add new crosslisted courses, enter the number of new courses to add in the textbox at the bottom of the page.').' '.
Line 1920  sub print_crosslistings_menu { Line 1920  sub print_crosslistings_menu {
  if ($numcross) {   if ($numcross) {
     $response .=       $response .= 
                 &mt('You indicated that you wish to add an additional [quant,_1,crosslisting].',$numcross).' '.                  &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 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.").                  &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.").
                 '<br /><br />                  '<br /><br />
Line 2250  sub print_sections_menu { Line 2250  sub print_sections_menu {
  if ($numsec > 0) {   if ($numsec > 0) {
     $response .=       $response .= 
                 &mt('You indicated that you wish to incorporate student enrollment in your LON-CAPA course from an additional [quant,_1,section].',$numsec).' '.                  &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 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.").'                 &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.").'
                <br /><br />                 <br /><br />
Line 2356  sub print_sections_response { Line 2356  sub print_sections_response {
  }   }
     }      }
   
     if ($putreply ne 'ok') {      if ($putreply eq 'ok') {
  $response = &mt('Students enrolling in the sections listed below will be automatically added to the class roster for LON-CAPA course [_1], if you have chosen to enable a nightly automated enrollment update.',   $response = &mt('Students enrolling in the sections listed below will be automatically added to the class roster for LON-CAPA course [_1], if you have chosen to enable a nightly automated enrollment update.',
                         "$realm ($coursecode)").'<br /><ul>'."\n";                          "$realm ($coursecode)").'<br /><ul>'."\n";
  foreach my $section (@allsections) {   foreach my $section (@allsections) {
Line 2726  sub print_update_result { Line 2726  sub print_update_result {
     my %settings =       my %settings = 
         &Apache::lonnet::get('environment',          &Apache::lonnet::get('environment',
             ['internal.coursecode','internal.sectionnums','internal.crosslistings',              ['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);              $dom,$crs);
     my $coursecode = $settings{'internal.coursecode'};      my $coursecode = $settings{'internal.coursecode'};
     my $authtype = $settings{'internal.authtype'};      my $authtype = $settings{'internal.authtype'};
     my $autharg = $settings{'internal.autharg'};      my $autharg = $settings{'internal.autharg'};
     my $showphotos = $settings{'internal.showphoto'};      my $showphotos = $settings{'internal.showphoto'};
       my $textbook = $settings{'internal.textbook'};
     my ($showcredits,$defaultcredits);      my ($showcredits,$defaultcredits);
     my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);      my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
     if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {      if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) {
         $showcredits = 1;          $showcredits = 1;
         $defaultcredits = $settings{'internal.defaultcredits'};          $defaultcredits = $settings{'internal.defaultcredits'};
         if ($defaultcredits eq '') {          if ($defaultcredits eq '') {
             if ($coursecode ne '') {              if ($coursecode ne '') {
                 $defaultcredits = $domdefaults{'officialcredits'};                     $defaultcredits = $domdefaults{'officialcredits'};   
               } elsif ($textbook ne '') {
                   $defaultcredits = $domdefaults{'textbookcredits'};
             } else {              } else {
                 $defaultcredits = $domdefaults{'unofficialcredits'};                  $defaultcredits = $domdefaults{'unofficialcredits'};
             }              }
Line 3034  sub warning_message { Line 3038  sub warning_message {
     unless ( $caller eq 'chgsettings') {      unless ( $caller eq 'chgsettings') {
         if ( (!$curradds) && (!$currdrops) ) {          if ( (!$curradds) && (!$currdrops) ) {
             $warning .= '<li>'.              $warning .= '<li>'.
                 &mt('You [_1]must[_2] now use [_3]Automated adds/drops[_4] to enable automated adds and/or drops if you want automatic enrollment updates to occur in this course.','<b>','</b>','<a href="/adm/populate?action=chgsettings">').'</li>';                  &mt('You [_1]must[_2] now use [_3]Automated adds/drops[_4] to enable automated adds and/or drops if you want automatic enrollment updates to occur in this course.','<b>','</b>','<a href="/adm/populate?action=chgsettings">','</a>').'</li>';
         }          }
     }      }
     if ($warning) {      if ($warning) {
Removed from v.1.77  
changed lines
  Added in v.1.82

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