loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.42, 2003/10/08 14:15:03	version 1.43, 2003/10/08 19:38:41
Line 154 sub dynamicmeta {	Line 154 sub dynamicmeta {
my $regexp=$url;	my $regexp=$url;
$regexp=~s/(\W)/\\$1/g;	$regexp=~s/(\W)/\\$1/g;
$regexp='___'.$regexp.'___([a-z]+)$';	$regexp='___'.$regexp.'___([a-z]+)$';
while (my ($key,$value)=each %evaldata) {	while (my ($esckey,$value)=each %evaldata) {
$key=&unescape($key);	$key=&unescape($esckey);
if ($key=~/$regexp/) {	if ($key=~/$regexp/) {
my $ctype=$1;	my $ctype=$1;
if (defined($cnt{$ctype})) {	if (defined($cnt{$ctype})) {
Line 179 sub dynamicmeta {	Line 179 sub dynamicmeta {
}	}
}	}
if ($ctype ne 'count') {	if ($ctype ne 'count') {
$newevaldata{$_}=$value;	$newevaldata{$esckey}=$value;
}	}
}	}
}	}