loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.12, 2001/04/16 13:48:14	version 1.13, 2001/04/16 20:32:20
Line 81 foreach my $m (@metalist) {	Line 81 foreach my $m (@metalist) {
'"'.delete($ref->{'abstract'}).'"'.','.	'"'.delete($ref->{'abstract'}).'"'.','.
'"'.delete($ref->{'mime'}).'"'.','.	'"'.delete($ref->{'mime'}).'"'.','.
'"'.delete($ref->{'language'}).'"'.','.	'"'.delete($ref->{'language'}).'"'.','.
'"'.delete($ref->{'creationdate'}).'"'.','.	'"'.sqltime(delete($ref->{'creationdate'})).'"'.','.
'"'.delete($ref->{'lastrevisiondate'}).'"'.','.	'"'.sqltime(delete($ref->{'lastrevisiondate'})).'"'.','.
'"'.delete($ref->{'owner'}).'"'.','.	'"'.delete($ref->{'owner'}).'"'.','.
'"'.delete($ref->{'copyright'}).'"'.')');	'"'.delete($ref->{'copyright'}).'"'.')');
$sth->execute();	$sth->execute();
Line 183 sub propath {	Line 183 sub propath {
my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";	my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
return $proname;	return $proname;
}	}

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