loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2001/03/22 13:40:07	version 1.74, 2001/03/22 14:19:17
Line 792 sub build_custommetadata_query {	Line 792 sub build_custommetadata_query {
-build => 'Text::Query::BuildAdvancedString');	-build => 'Text::Query::BuildAdvancedString');
$q->prepare($logic_statement);	$q->prepare($logic_statement);
my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'};	my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'};
return $matchexp;	# quick fix to change literal into xml tag-matching
	my $oldmatchexp=$matchexp;
	$matchexp=~s/$\?[\:\=]([^$])\\\=([^\)])\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\$2\[\^\\\<\]\\\\<\\\/$1\\\>)/g;
	return $oldmatchexp;
}	}

# - Recursively parse a reverse notation expression into a SQL query expression	# - Recursively parse a reverse notation expression into a SQL query expression
Line 1014 sub make_persistent {	Line 1017 sub make_persistent {
if (/^form\./ && !/submit/) {	if (/^form\./ && !/submit/) {
my $name=$_;	my $name=$_;
my $key=$name;	my $key=$name;
	$ENV{$key}=~s/\'//g; # do not mess with html field syntax
$name=~s/^form\.//;	$name=~s/^form\.//;
$persistent.=<<END;	$persistent.=<<END;
<input type='hidden' name='$name' value='$ENV{$key}' />	<input type='hidden' name='$name' value='$ENV{$key}' />