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.214, 2006/09/27 21:04:13
Line 846 sub store_metadata {	Line 846 sub store_metadata {
$status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef,	$status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef,
$metadata{'url'});	$metadata{'url'});
} else {	} else {
$status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,	$status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,undef,
\%metadata);	\%metadata);
}	}
if (defined($status) && $status ne '') {	if (defined($status) && $status ne '') {
Line 1821 sub publishdirectory {	Line 1821 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 {