loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.211.2.2, 2006/10/02 19:57:35	version 1.212, 2006/09/13 21:43:26
Line 856 sub store_metadata {	Line 856 sub store_metadata {
&Apache::lonnet::logthis($status);	&Apache::lonnet::logthis($status);
return ($error,undef);	return ($error,undef);
}	}
return (undef,'success');	return (undef,$status);
}	}


Line 1470 sub phasetwo {	Line 1470 sub phasetwo {
$metadatafields{'modifyinguser'}=$env{'user.name'}.':'.	$metadatafields{'modifyinguser'}=$env{'user.name'}.':'.
$env{'user.domain'};	$env{'user.domain'};
$metadatafields{'authorspace'}=$cuname.':'.$cudom;	$metadatafields{'authorspace'}=$cuname.':'.$cudom;
$metadatafields{'domain'}=$cudom;

my $allkeywords=$env{'form.addkey'};	my $allkeywords=$env{'form.addkey'};
if (exists($env{'form.keywords'})) {	if (exists($env{'form.keywords'})) {
Line 1821 sub publishdirectory {	Line 1820 sub publishdirectory {
# previously published, modified now	# previously published, modified now
$publishthis=1;	$publishthis=1;
}	}
	my $meta_cmtime = (stat($fn.'/'.$filename.'.meta'))[9];
	my $meta_rmtime = (stat($resdir.'/'.$filename.'.meta'))[9];
	if ( $meta_rmtime<$meta_cmtime ) {
	&Apache::lonnet::logthis("meta change!");
	$publishthis=1;
	}
} else {	} else {
# never published	# never published
$publishthis=1;	$publishthis=1;
}	}

if ($publishthis) {	if ($publishthis) {
&batchpublish($r,$fn.'/'.$filename,$resdir.'/'.$filename);	&batchpublish($r,$fn.'/'.$filename,$resdir.'/'.$filename);
} else {	} else {