loncom/lond - diff - 1.178.2.18

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.178.2.16, 2004/04/15 11:26:34	version 1.178.2.18, 2004/04/19 11:32:35
Line 2221 sub DumpCourseIdHandler {	Line 2221 sub DumpCourseIdHandler {
}	}
unless (defined($since)) { $since=0; }	unless (defined($since)) { $since=0; }
my $qresult='';	my $qresult='';
	logthis(" Looking for $description since $since");
my $hashref = TieDomainHash($udom, "nohist_courseids", &GDBM_WRCREAT());	my $hashref = TieDomainHash($udom, "nohist_courseids", &GDBM_WRCREAT());
if ($hashref) {	if ($hashref) {
while (my ($key,$value) = each(%$hashref)) {	while (my ($key,$value) = each(%$hashref)) {
my ($descr,$lasttime)=split(/\:/,$value);	my ($descr,$lasttime)=split(/\:/,$value);
	logthis("Got: key = $key descr = $descr time: $lasttime");
if ($lasttime<$since) {	if ($lasttime<$since) {
	logthis("Skipping .. too early");
next;	next;
}	}
if ($description eq '.') {	if ($description eq '.') {
	logthis("Adding wildcard match");
$qresult.=$key.'='.$descr.'&';	$qresult.=$key.'='.$descr.'&';
} else {	} else {
my $unescapeVal = &unescape($descr);	my $unescapeVal = &unescape($descr);
	logthis("Matching with $unescapeVal");
if (eval('$unescapeVal=~/$description/i')) {	if (eval('$unescapeVal=~/$description/i')) {
	logthis("Adding on match");
$qresult.="$key=$descr&";	$qresult.="$key=$descr&";
}	}
}	}