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); |