loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.13, 2000/12/04 15:39:28	version 1.14, 2000/12/08 23:36:37
Line 520 if (-e $target) {	Line 520 if (-e $target) {
$copyfile=$copyfile.'.meta';	$copyfile=$copyfile.'.meta';

if (copy($target.'.meta',$copyfile)) {	if (copy($target.'.meta',$copyfile)) {
print $logfile "Copied old target metadata to ".$copyfile."\n";	print $logfile "Copied old target metadata to ".$copyfile."\n";
$scrout.='<p>Copied old metadata';	$scrout.='<p>Copied old metadata';
} else {	} else {
print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n";	print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n";
return	if (-e $target.'.meta') {
	return
"<font color=red>Failed to write old metadata copy, $!, FAIL</font>";	"<font color=red>Failed to write old metadata copy, $!, FAIL</font>";
	}
}	}