--- loncom/interface/lonpopulate.pm	2021/06/15 20:52:26	1.87
+++ loncom/interface/lonpopulate.pm	2021/08/20 21:16:13	1.89
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.87 2021/06/15 20:52:26 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.89 2021/08/20 21:16:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2307,7 +2307,7 @@ sub print_crosslistings_response {
             my @showable;
             &reformat_xlists($dom,$crs,$coursecode,\@oldxlists,\@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>'.
                              "\n";
 	    }
@@ -2443,7 +2443,15 @@ sub print_sections_menu {
 		    push(@sections,$secentry);
 		    $seccount ++;
 		} 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);
 		    if ($coursecheck eq 'ok') {
 			my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
@@ -2631,7 +2639,15 @@ sub print_sections_response {
                         push(@matchgroup,$env{"form.$sec"}.":".$env{"form.$lc_sec"});
                         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);
 		    if ($coursecheck eq 'ok') {
 			my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);