loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.211.2.1, 2006/09/27 21:05:50	version 1.213, 2006/09/27 20:34:26
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 ) {
	$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 {