version 1.15, 2014/06/14 19:05:00
|
version 1.16, 2022/10/22 17:24:55
|
Line 678 sub savemap {
|
Line 678 sub savemap {
|
} |
} |
} |
} |
$outstr.="</map>\n"; |
$outstr.="</map>\n"; |
|
my ($cdom,$cnum,$mapname); |
if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) { |
if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) { |
|
($cdom,$cnum,$mapname) = ($1,$2,$3); |
$env{'form.output'}=$outstr; |
$env{'form.output'}=$outstr; |
my $result=&Apache::lonnet::finishuserfileupload($2,$1, |
my $result=&Apache::lonnet::finishuserfileupload($cnum,$cdom, |
'output',$3); |
'output',$mapname); |
if ($result != m|^/uploaded/|) { |
if ($result != m|^/uploaded/|) { |
$errtext.='Map not saved: A network error occurred when trying to save the map. '; |
$errtext.='Map not saved: A network error occurred when trying to save the map. '; |
} |
} |
Line 696 sub savemap {
|
Line 698 sub savemap {
|
if ($dotimeupdate) { |
if ($dotimeupdate) { |
unless ($errtext) { |
unless ($errtext) { |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $now = time; |
if (($cdom eq $env{'course.'.$env{'request.course.id'}.'.domain'}) && |
&Apache::lonnet::put('environment',{'internal.contentchange' => $now}, |
($cnum eq $env{'course.'.$env{'request.course.id'}.'.num'}) && |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
($mapname =~ /^supplemental(|_\d+)\.sequence$/)) { |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
&Apache::lonnet::update_supp_caches($cdom,$cnum); |
&Apache::lonnet::appenv( |
} else { |
{'course.'.$env{'request.course.id'}.'.internal.contentchange' => $now}); |
my $now = time; |
&Apache::lonnet::do_cache_new('crschange',$env{'request.course.id'},$now,600); |
&Apache::lonnet::put('environment',{'internal.contentchange' => $now}, |
|
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
|
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
&Apache::lonnet::appenv( |
|
{'course.'.$env{'request.course.id'}.'.internal.contentchange' => $now}); |
|
&Apache::lonnet::do_cache_new('crschange',$env{'request.course.id'},$now,600); |
|
} |
} |
} |
} |
} |
} |
} |