loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.70, 2001/03/22 14:03:55	version 1.75, 2001/03/22 14:24:39
Line 793 sub build_custommetadata_query {	Line 793 sub build_custommetadata_query {
$q->prepare($logic_statement);	$q->prepare($logic_statement);
my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'};	my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'};
# quick fix to change literal into xml tag-matching	# quick fix to change literal into xml tag-matching
$matchexp=~s/$\?\:([^$])\\\=([^\)])\)/\(\?\:\<$1\>\[\^\\\<\]\$2\[\^\\\<\]\\<\/$1\>)/g;	# will eventually have to write a separate builder module
return $matchexp;	my $oldmatchexp=$matchexp;
	$matchexp=~s/(\w+)\\\=(\w+)/\\\<$1\\\>\[\^\\\<\]\$2\[\^\\\<\]\\\\<\\\/$1\\\>/g;
	return $oldmatchexp . $matchexp;
}	}

# - Recursively parse a reverse notation expression into a SQL query expression	# - Recursively parse a reverse notation expression into a SQL query expression