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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.72 and 1.73

version 1.72, 2004/12/03 22:29:17 version 1.73, 2004/12/07 01:31:17
Line 691  ENDENHEAD Line 691  ENDENHEAD
                 my ($sec,$gp) = split/:/,$item;                  my ($sec,$gp) = split/:/,$item;
                 my $class = $ENV{'form.crscode'}.$sec;                  my $class = $ENV{'form.crscode'}.$sec;
                 my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$class,$cenv{'internal.courseowner'});                  my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$class,$cenv{'internal.courseowner'});
                 if ($addcheck eq 'ok') {                  $cenv{'internal.sectionnums'} .= $item.',';
                     $cenv{'internal.sectionnums'} .= $item.',';                  unless ($addcheck eq 'ok') {
                 } else {  
                     push @badclasses, $class;                      push @badclasses, $class;
                 }                  }
             }              }
Line 714  ENDENHEAD Line 713  ENDENHEAD
             foreach my $item (@xlists) {              foreach my $item (@xlists) {
                 my ($xl,$gp) = split/:/,$item;                  my ($xl,$gp) = split/:/,$item;
                 my $addcheck =  &Apache::lonnet::auto_new_course($crsunum,$crsudom,$xl,$cenv{'internal.courseowner'});                  my $addcheck =  &Apache::lonnet::auto_new_course($crsunum,$crsudom,$xl,$cenv{'internal.courseowner'});
                 if ($addcheck eq 'ok') {                  $cenv{'internal.crosslistings'} .= $item.',';
                     $cenv{'internal.crosslistings'} .= $item.',';                  unless ($addcheck eq 'ok') {
                 } else {  
                     push @badclasses, $xl;                      push @badclasses, $xl;
                 }                  }
             }              }
Line 736  ENDENHEAD Line 734  ENDENHEAD
     }      }
     if (@badclasses > 0) {      if (@badclasses > 0) {
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                 'tclb' => 'The courses listed below have not been included as sections or crosslistings affiliated with your new LON-CAPA course. If automated course roster updates are enabled for this class, these particular sections/crosslistings will not contribute towards enrollment, because the user identified as the course owner for this LON-CAPA course',                  'tclb' => 'The courses listed below were included as sections or crosslistings affiliated with your new LON-CAPA course.  However, if automated course roster updates are enabled for this class, these particular sections/crosslistings will not contribute towards enrollment, because the user identified as the course owner for this LON-CAPA course',
                 'dnhr' => 'does not have rights to access enrollment in these classes',                  'dnhr' => 'does not have rights to access enrollment in these classes',
                 'adby' => 'as determined by the policies of your institution on access to official classlists'                  'adby' => 'as determined by the policies of your institution on access to official classlists'
         );          );
Removed from v.1.72  
changed lines
  Added in v.1.73

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