--- loncom/publisher/lonpublisher.pm 2016/06/19 01:08:01 1.296 +++ loncom/publisher/lonpublisher.pm 2016/06/19 04:27:57 1.297 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.296 2016/06/19 01:08:01 raeburn Exp $ +# $Id: lonpublisher.pm,v 1.297 2016/06/19 04:27:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1875,17 +1875,27 @@ sub phasetwo { $metadatafields{'url'} = $distarget; $metadatafields{'version'} = 'current'; - my ($error,$success) = &store_metadata(%metadatafields); - if ($success) { - $output .= '

'.&mt('Synchronized SQL metadata database').'

'; - print $logfile "\nSynchronized SQL metadata database"; - } else { - $output .= $error; - print $logfile "\n".$error; + my $crsauthor; + if ($env{'request.course.id'}) { + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + if ($distarget =~ m{^/res/$cdom/$cnum}) { + $crsauthor = 1; + } } - unless ($usebuffer) { - $r->print($output); - $output = ''; + unless ($crsauthor) { + my ($error,$success) = &store_metadata(%metadatafields); + if ($success) { + $output .= '

'.&mt('Synchronized SQL metadata database').'

'; + print $logfile "\nSynchronized SQL metadata database"; + } else { + $output .= $error; + print $logfile "\n".$error; + } + unless ($usebuffer) { + $r->print($output); + $output = ''; + } } # --------------------------------------------- Delete author resource messages my $delresult=&Apache::lonmsg::del_url_author_res_msg($target);