loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.60, 2004/08/30 14:31:42	version 1.61, 2005/03/09 18:22:19
Line 321 sub process_meta_file {	Line 321 sub process_meta_file {
my $ref=&metadata($filename);	my $ref=&metadata($filename);
#	#
# $url is the original file url, not the metadata file	# $url is the original file url, not the metadata file
my $url='/res/'.&declutter($filename);	my $target = $filename;
$url=~s/\.meta$//;	$target =~ s/\.meta$//;
	my $url='/res/'.&declutter($target);
&log(3," ".$url) if ($debug);	&log(3," ".$url) if ($debug);
#	#
# Ignore some files based on their metadata	# Ignore some files based on their metadata
Line 347 sub process_meta_file {	Line 348 sub process_meta_file {
&count_type($url);	&count_type($url);
}	}
#	#
	if (! defined($ref->{'creationdate'}) \|\|
	$ref->{'creationdate'} =~ /^\s*$/) {
	$ref->{'creationdate'} = (stat($target))[9];
	}
	if (! defined($ref->{'lastrevisiondate'}) \|\|
	$ref->{'lastrevisiondate'} =~ /^\s*$/) {
	$ref->{'lastrevisiondate'} = (stat($target))[9];
	}
$ref->{'creationdate'} = &sqltime($ref->{'creationdate'});	$ref->{'creationdate'} = &sqltime($ref->{'creationdate'});
$ref->{'lastrevisiondate'} = &sqltime($ref->{'lastrevisiondate'});	$ref->{'lastrevisiondate'} = &sqltime($ref->{'lastrevisiondate'});
my %Data = (	my %Data = (