loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.53, 2003/12/27 23:04:28	version 1.54, 2004/01/05 15:54:22
Line 388 foreach my $user (@homeusers) {	Line 388 foreach my $user (@homeusers) {
$m2=~s/\.meta$//;	$m2=~s/\.meta$//;
if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; }	if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; }
if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; }	if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; }
my %dyn=&dynamicmeta($m2);	my %dyn=();
&count($m2);	if ($m2=~/\/default$/) {
	$m2=~s/\/default$/\//;
	} else {
	%dyn=&dynamicmeta($m2);
	&count($m2);
	}
unless ($insert_sth->execute(	unless ($insert_sth->execute(
$ref->{'title'},	$ref->{'title'},
$ref->{'author'},	$ref->{'author'},
Line 550 sub propath {	Line 555 sub propath {

# ---------------------------- convert 'time' format into a datetime sql format	# ---------------------------- convert 'time' format into a datetime sql format
sub sqltime {	sub sqltime {
	my $time=&unsqltime(@_[0]);
	unless ($time) { return 'NULL'; }
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(&unsqltime(@_[0]));	localtime($time);
$mon++; $year+=1900;	$mon++; $year+=1900;
return "$year-$mon-$mday $hour:$min:$sec";	return "$year-$mon-$mday $hour:$min:$sec";
}	}