loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.10, 2001/04/16 13:17:05	version 1.12, 2001/04/16 13:48:14
Line 57 foreach my $user (@homeusers) {	Line 57 foreach my $user (@homeusers) {

# -- process each file to get metadata and put into search catalog SQL database	# -- process each file to get metadata and put into search catalog SQL database
# Also, check to see if already there.	# Also, check to see if already there.
# I could not search first and just delete, but this works for now.	# I could just delete (without searching first), but this works for now.
foreach my $m (@metalist) {	foreach my $m (@metalist) {
my $ref=&metadata($m);	my $ref=&metadata($m);
my $m2=&declutter($m);	my $m2='/res/'.&declutter($m);
my $q2="select * from metadata where url like '$m2'";	$m2=~s/\.meta$//;
	my $q2="select * from metadata where url like binary '$m2'";
my $sth = $dbh->prepare($q2);	my $sth = $dbh->prepare($q2);
$sth->execute();	$sth->execute();
my $r1=$sth->fetchall_arrayref;	my $r1=$sth->fetchall_arrayref;
if (@$r1) {	if (@$r1) {
$sth=$dbh->prepare("delete from metadata where url like '$m2'");	$sth=$dbh->prepare("delete from metadata where url like binary '$m2'");
$sth->execute();	$sth->execute();
}	}
$sth=$dbh->prepare('insert into metadata values ('.	$sth=$dbh->prepare('insert into metadata values ('.