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

Diff for /loncom/interface/lonpopulate.pm between versions 1.88 and 1.89

version 1.88, 2021/06/20 22:44:23 version 1.89, 2021/08/20 21:16:13
Line 2443  sub print_sections_menu { Line 2443  sub print_sections_menu {
     push(@sections,$secentry);      push(@sections,$secentry);
     $seccount ++;      $seccount ++;
  } else {   } else {
     my $newsec = $coursecode.$env{"form.$secnum"};                      my $newsec;
                       my $crskey = $crs.':'.$coursecode;
                       my %formattedsec = &Apache::lonnet::auto_instsec_reformat($dom,'clutter',
                                                                     {$crskey => [$env{"form.$secnum"}]});
                       if (ref($formattedsec{$crskey}) eq 'ARRAY') {
                           $newsec = $coursecode.$formattedsec{$crskey}->[0];
                       } else {
                           $newsec = $coursecode.$env{"form.$secnum"};
                       }
     my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);      my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
     if ($coursecheck eq 'ok') {      if ($coursecheck eq 'ok') {
  my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);   my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
Line 2631  sub print_sections_response { Line 2639  sub print_sections_response {
                         push(@matchgroup,$env{"form.$sec"}.":".$env{"form.$lc_sec"});                          push(@matchgroup,$env{"form.$sec"}.":".$env{"form.$lc_sec"});
                         next;                          next;
                     }                      }
     my $newsec = $coursecode.$env{"form.$sec"};                      my $newsec;
                       my $crskey = $crs.':'.$coursecode;
                       my %formattedsec = &Apache::lonnet::auto_instsec_reformat($dom,'clutter',
                                                                     {$crskey => [$env{"form.$sec"}]});
                       if (ref($formattedsec{$crskey}) eq 'ARRAY') {
                           $newsec = $coursecode.$formattedsec{$crskey}->[0];
                       } else {
                           $newsec = $coursecode.$env{"form.$sec"};
                       }
     my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);      my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
     if ($coursecheck eq 'ok') {      if ($coursecheck eq 'ok') {
  my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);   my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
Removed from v.1.88  
changed lines
  Added in v.1.89

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