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.69, 2001/03/22 14:00:55
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'};
	# quick fix to change literal into xml tag-matching
	s/$\?\:([^$])\\\=([^\)])\)/\(\?\:\<$1\>\[\^\\\<\]\$2\[\^\\\<\]\\<\/$1\>)/g;
return $matchexp;	return $matchexp;
}	}

Line 1014 sub make_persistent {	Line 1016 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}' />