version 1.94, 2019/04/29 22:19:24
|
version 1.96, 2021/06/15 20:52:26
|
Line 39 use Apache::lonpickcourse;
|
Line 39 use Apache::lonpickcourse;
|
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
|
my $registered_cleanup; |
|
my $modified_dom; |
|
|
sub get_dc_settable { |
sub get_dc_settable { |
my ($type,$cdom) = @_; |
my ($type,$cdom) = @_; |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
Line 681 sub print_settings_display {
|
Line 684 sub print_settings_display {
|
"<th>$lt{'dcon'}</th>\n". |
"<th>$lt{'dcon'}</th>\n". |
&Apache::loncommon::end_data_table_header_row()."\n"; |
&Apache::loncommon::end_data_table_header_row()."\n"; |
foreach my $item (@items) { |
foreach my $item (@items) { |
|
my $shown = $enrollvar{$item}; |
|
if ($item eq 'crosslistings') { |
|
my (@xlists,@lcsecs); |
|
foreach my $entry (split(/,/,$enrollvar{$item})) { |
|
my ($xlist,$lc_sec) = split(/:/,$entry); |
|
push(@xlists,$xlist); |
|
push(@lcsecs,$lc_sec); |
|
} |
|
if (@xlists) { |
|
my $crskey = $cnum.':'.$enrollvar{'coursecode'}; |
|
my %reformatted = |
|
&Apache::lonnet::auto_instsec_reformat($cdom,'declutter', |
|
{$crskey => \@xlists}); |
|
if (ref($reformatted{$crskey}) eq 'ARRAY') { |
|
my @show; |
|
my @xlcodes = @{$reformatted{$crskey}}; |
|
for (my $i=0; $i<@xlcodes; $i++) { |
|
push(@show,$xlcodes[$i].':'.$lcsecs[$i]); |
|
} |
|
if (@show) { |
|
$shown = join(',',@show); |
|
} |
|
} |
|
} |
|
} |
$disp_table .= &Apache::loncommon::start_data_table_row()."\n". |
$disp_table .= &Apache::loncommon::start_data_table_row()."\n". |
"<td><b>$longtype{$item}</b></td>\n". |
"<td><b>$longtype{$item}</b></td>\n". |
"<td>$enrollvar{$item}</td>\n"; |
"<td>$shown</td>\n"; |
if (grep(/^\Q$item\E$/,@modifiable_params)) { |
if (grep(/^\Q$item\E$/,@modifiable_params)) { |
$disp_table .= '<td align="right">'.&mt('Yes').'</td>'."\n"; |
$disp_table .= '<td align="right">'.&mt('Yes').'</td>'."\n"; |
} else { |
} else { |
Line 1484 sub modify_course {
|
Line 1512 sub modify_course {
|
my $putres = &Apache::lonnet::courseidput($cdom,\%crsinfo,$chome,'notime'); |
my $putres = &Apache::lonnet::courseidput($cdom,\%crsinfo,$chome,'notime'); |
if (($putres eq 'ok') && (($changed{'owner'} || $changed{'code'}))) { |
if (($putres eq 'ok') && (($changed{'owner'} || $changed{'code'}))) { |
&update_coowners($cdom,$cnum,$chome,\%settings,\%newattr); |
&update_coowners($cdom,$cnum,$chome,\%settings,\%newattr); |
|
if ($changed{'code'}) { |
|
&Apache::lonnet::devalidate_cache_new('instcats',$cdom); |
|
# Update cache of self-cataloging courses on institution's server(s). |
|
if (&Apache::lonnet::shared_institution($cdom)) { |
|
unless ($registered_cleanup) { |
|
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
|
$r->set_handlers('PerlCleanupHandler' => [\&devalidate_remote_instcats,@{$handlers}]); |
|
$registered_cleanup=1; |
|
$modified_dom = $cdom; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |
} |
Line 2539 sub get_permission {
|
Line 2579 sub get_permission {
|
return ($allowed,\%permission); |
return ($allowed,\%permission); |
} |
} |
|
|
|
sub devalidate_remote_instcats { |
|
if ($modified_dom ne '') { |
|
my %servers = &Apache::lonnet::internet_dom_servers($modified_dom); |
|
my %thismachine; |
|
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
|
if (keys(%servers)) { |
|
foreach my $server (keys(%servers)) { |
|
next if ($thismachine{$server}); |
|
&Apache::lonnet::remote_devalidate_cache($server,['instcats:'.$modified_dom]); |
|
} |
|
} |
|
$modified_dom = ''; |
|
} |
|
return; |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
if ($r->header_only) { |
if ($r->header_only) { |
Line 2547 sub handler {
|
Line 2603 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
$registered_cleanup=0; |
|
$modified_dom = ''; |
|
|
my $dom = $env{'request.role.domain'}; |
my $dom = $env{'request.role.domain'}; |
my $domdesc = &Apache::lonnet::domain($dom,'description'); |
my $domdesc = &Apache::lonnet::domain($dom,'description'); |
my ($allowed,$permission) = &get_permission($dom); |
my ($allowed,$permission) = &get_permission($dom); |