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

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

version 1.87, 2021/06/15 20:52:26 version 1.89, 2021/08/20 21:16:13
Line 2307  sub print_crosslistings_response { Line 2307  sub print_crosslistings_response {
             my @showable;              my @showable;
             &reformat_xlists($dom,$crs,$coursecode,\@oldxlists,\@showable);              &reformat_xlists($dom,$crs,$coursecode,\@oldxlists,\@showable);
             foreach my $item (@showable) {              foreach my $item (@showable) {
  my ($xlist,$lc_sec) = split(/:/,$xl);   my ($xlist,$lc_sec) = split(/:/,$item);
  $response .= '<li>'.&mt('[_1] - ID: [_2]',$xlist,$lc_sec).'</li>'.   $response .= '<li>'.&mt('[_1] - ID: [_2]',$xlist,$lc_sec).'</li>'.
                              "\n";                               "\n";
     }      }
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.87  
changed lines
  Added in v.1.89

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