loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.72, 2001/03/22 14:13:53	version 1.73, 2001/03/22 14:16:21
Line 794 sub build_custommetadata_query {	Line 794 sub build_custommetadata_query {
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
my $oldmatchexp=$matchexp;	my $oldmatchexp=$matchexp;
# $matchexp=~s/$\?\:([^$])\\\=([^\)])\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\$2\[\^\\\<\]\\\\<\\\/$1\\\>)/g;	$matchexp=~s/$\?[\:\=]([^$])\\\=([^\)])\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\$2\[\^\\\<\]\\\\<\\\/$1\\\>)/g;
return $oldmatchexp;	return $matchexp;
}	}

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