loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.11, 2001/04/16 13:45:20	version 1.12, 2001/04/16 13:48:14
Line 61 foreach my $user (@homeusers) {	Line 61 foreach my $user (@homeusers) {
foreach my $m (@metalist) {	foreach my $m (@metalist) {
my $ref=&metadata($m);	my $ref=&metadata($m);
my $m2='/res/'.&declutter($m);	my $m2='/res/'.&declutter($m);
my $q2="select * from metadata where url like binary '/res/$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 binary '/res/$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 ('.
'"'.delete($ref->{'title'}).'"'.','.	'"'.delete($ref->{'title'}).'"'.','.
'"'.delete($ref->{'author'}).'"'.','.	'"'.delete($ref->{'author'}).'"'.','.
'"'.delete($ref->{'subject'}).'"'.','.	'"'.delete($ref->{'subject'}).'"'.','.
'"/res/'.$m2.'"'.','.	'"'.$m2.'"'.','.
'"'.delete($ref->{'keywords'}).'"'.','.	'"'.delete($ref->{'keywords'}).'"'.','.
'"'.'current'.'"'.','.	'"'.'current'.'"'.','.
'"'.delete($ref->{'notes'}).'"'.','.	'"'.delete($ref->{'notes'}).'"'.','.